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实践 ， 还 对 许多 其 他 细节 做 了 相应 的 修改 。 
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出 版 者 的 话 


文艺 复兴 以 来 ， 源 远 流 长 的 科学 精神 和 逐步 形成 的 学 术 规 范 ， 使 西方 国家 在 自然 科学 的 
各 个 领域 取得 了 垄断 性 的 优势 也 正 是 这 样 的 优势 ， 使 美国 在 信息 技术 发 展 的 六 十 多 年 间 名 
家 辈出 、 独 领 风 骚 。 在 商业 化 的 进程 中 ， 美 国 的 产业 界 与 教育 界 越 来 越 紧密 地 结合 ， 计 算 机 
学 科 中 的 许多 泰山 北斗 同时 身 处 科研 和 教学 的 最 前 线 ， 由 此 而 产生 的 经 典 科 学 著作 ， 不 仅 璧 
划 了 研究 的 范畴 ， 还 揭示 了 学 术 的 源 变 ， 既 遵循 学 术 规 范 ， 又 自 有 学 者 个 性 ， 其 价值 并 不 会 
因 年 月 的 流逝 而 减退 。 

近年 ， 在 全 球 信息 化 大 潮 的 推动 下 ,我国 的 计算 机 产业 发 展 迅 猛 ， 对 专业 人 才 的 需求 日 
益 迫 切 。 这 对 计算 机 教育 界 和 出 版 界 都 既是 机 遇 ， 也 是 挑战 ; 而 专业 教材 的 建设 在 教育 战略 
上 显得 举足轻重 。 在 我 国信 息 技 术 发 展 时 间 较 短 的 现状 下 ， 美国 等 发 达 国 家 在 其 计算 机 科学 
发 展 的 几 十 年 间 积淀 和 发 展 的 经 典 教材 仍 有 许多 值得 借鉴 之 处 。 因 此 ， 引 进 一 批 国外 优秀 计 
算 机 教材 将 对 我 国 计 算 机 教育 事业 的 发 展 起 到 积极 的 推动 作用 ， 也 是 与 世界 接轨 、 建 设 真正 
的 世界 一 流 大 学 的 必由之路 。 

机 械 工 业 出 版 社 华章 公司 较 早 意识 到 “出 版 要 为 教育 服务 ”。 自 1998 年 开始 ， 我 们 
就 将 工作 重点 放 在 了 六 选 、 移 译 国外 优秀 教材 上 。 经 过 多 年 的 不 懈 努 力 ， 我 们 与 Pearson, 
McGraw-Hill, Elsevier, MIT, John Wiley & Sons, Cengage 等 世界 著名 出 版 公司 建立 了 良 
好 的 合作 关系 ， 从 它们 现 有 的 数 百 种 教材 中 甄选 出 Andrew S. Tanenbaum, Bjarne Stroustrup、 
Brian W. Kernighan, Dennis Ritchie, Jim Gray, Afred V. Aho, John E. Hopcroft, Jeffrey 
D. Ullman, Abraham Silberschatz, William Stallings, Donald E. Knuth, John L. Hennessy , 
Larry L. Peterson 等 大 师 名 家 的 一 批 经 典 作 品 ， 以 “计算 机 科学 丛书 ”为 总 称 出 版 ， 供 读者 
学 习 、 研 究 及 珍藏 。 大 理 石 纹理 的 封面 ， 也 正体 现 了 这 套 丛书 的 品位 和 格调 。 

“计算 机 科学 丛书 ”的 出 版 工作 得 到 了 国内 外 学 者 的 易 力 相助 ， 国 内 的 专家 不 仅 提供 了 
中 肯 的 选 题 指导 ， 还 不 套 劳 苗 地 担任 了 翻译 和 审 校 的 工作 ; 而 原 书 的 作者 也 相当 关注 其 作品 
在 中 国 的 传播 ， 有 的 还 专门 为 其 书 的 中 译本 作 序 。 迄 今 ,“ 计 算 机 科学 丛书 ”已 经 出 版 了 近 
500 个 品种 ， 这 些 书籍 在 读者 中 树立 了 良好 的 口碑 ， 并 被 许多 高 校 采 用 为 正式 教材 和 参考 书 
籍 。 其 影印 版 “经 典 原 版 书库 ”作为 姊妹 篇 也 被 越 来 越 多 实施 双语 教学 的 学 校 所 采用 。 

权威 的 作者 、 经 典 的 教材 、 一 流 的 译 者 、 严 格 的 审 校 、 精 细 的 编辑 ， 这 些 因素 使 我 们 的 
图 书 有 了 质量 的 保证 。 随 着 计算 机 科学 与 技术 专业 学 科 建 设 的 不 断 完善 和 教材 改革 的 逐渐 
深化 ， 教 育 界 对 国外 计算 机 教材 的 需求 和 应 用 都 将 步 人 一 个 新 的 阶段 ,我 们 的 目标 是 尽 善 尽 
美 ， 而 反馈 的 意见 正 是 我 们 达到 这 一 终极 目标 的 重要 帮助 。 华 章 公 司 欢 迎 老师 和 读者 对 我 们 
的 工作 提出 建议 或 给 予 指 正 ， 我 们 的 联系 方法 如 下 : 

华章 网 站 : www.hzbook.com 

电子 邮件 : hzjsj@hzbook.com 

联系 电话 : (010) 88379604 三 

联系 地 址 ， 北 京 市 西城 区 百 万 庄 南 街 1 号 FTT 
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“我 认为 在 计算 机 科学 中 保持 计算 中 的 趣味 性 是 特别 重要 的 事情 。 这 一 
学 科 在 起 步 时 饱含 着 趣味 性 。 当 然 ， 那 些 付 钱 的 客户 们 时 常 党 得 有 过 了 骗 。 一 
段 时 间 之 后 ， 我 们 开始 严肃 地 看 待 他 们 的 抱 妇 。 我 们 开始 感 党 到 ， 自 己 真 的 
像 是 要 人 负 起 成 功 地 、 无 差错 地 、 完 美 地 使 用 这 些 机 器 的 责任 。 我 不 认为 我 们 
可 以 做 到 这 些 。 我 认为 我 们 的 责任 是 拓展 这 一 领域 ,寻求 新 的 发 展 方 向 ， 并 
在 自己 的 家 里 保持 趣味 性 。 我 希望 计算 机 科学 领域 不 要 豆 失 趣味 意识 。 最 重 
要 的 是 。 我 希望 我 们 不 要 照 本 宣 科 。 你 所 知道 的 有 关 计 算 的 东西 。 其 他 人 也 
者 能 学 到 。 绝 不 要 认为 似乎 成 功 计 算 的 钥 是 就 掌握 在 你 的 手 里 。 你 所 掌握 的 ， 
也 是 我 认为 并 希望 的 ,就 是 智慧 : 那 种 看 到 这 一 机 器 比 你 第 一 次 站 在 它 面前 
时 能 做 得 更 多 的 能 力 ， 这样 你 才能 将 它 向 前 推进 。 


Alan J. Perlis ( 1922 年 4 月 1 日 一 1990 年 1 月 7 日 ) 
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教育 者 、 将 军 、 减 肥 专 家 、 心 理学 家 和 父母 做 规划 (program) ， 而 军人 、 学 生 和 另 一 些 
社会 阶层 则 被 规划 (programmed)。 解 决 大 规模 问题 需要 经 过 一 系列 规划 ， 其 中 的 大 部 分 东西 
只 有 在 工作 进程 中 才能 做 出 来 ， 这 些 规划 中 充满 着 与 手头 问题 的 特殊 性 相关 的 情况 。 如 果 想 
要 把 做 规划 这 件 事 情 本 身 作 为 一 种 智力 活动 来 欣赏 ， 你 就 必须 转 到 计算 机 的 程序 设计 
(programming)， 你 需要 读 或 者 写 计 算 机 程序 一 一 而 且 要 大 量 地 做 。 有 关 这 些 程序 具体 是 关于 
什么 的 、 服 务 于 哪 类 应 用 等 通常 并 不 重要 ， 重 要 的 是 它们 的 性 能 如 何 ， 在 用 于 构造 更 大 的 程 
序 时 能 否 与 其 他 程序 平滑 衔接 。 程 序 员 必须 同时 追求 具体 部 分 的 完美 和 集成 的 适宜 性 。 在 本 
书 里 使 用 “程序 设计 ”一 词 时 ， 所 关注 的 是 程序 的 创建 、 执 行 和 研究 ， 这 些 程 序 是 用 一 种 
Lisp 方 言 书写 的 ， 以 便 在 数字 计算 机 上 执行 。 采 用 Lisp 并 没有 对 我 们 可 以 编程 的 范围 施 以 任何 
约束 或 者 限制 ， 只 不 过 确定 了 程序 描述 的 记 法 形式 。 

本 书 中 要 讨论 的 各 种 问题 都 牵涉 三 类 需要 关注 的 对 象 : 人 的 大 脑 、 计 算 机 程序 的 集合 以 
及 计算 机 本 身 。 每 一 个 计算 机 程序 都 是 现实 中 或 者 精神 中 的 某 个 过 程 的 一 个 模型 ， 通 过 人 的 
头脑 孵化 出 来 。 这 些 过 程 出 现在 人 们 的 经 验 或 者 思维 之 中 ， 数 量 上 数不胜数 ， 详 情 琐碎 繁杂 ， 
任何 时 候 人 们 都 只 能 部 分 地 理解 它们 。 我 们 很 少 能 通过 自己 的 程序 将 这 种 过 程 模拟 到 永远 令 
人 满意 的 程度 。 正 因为 如 此 ， 即 使 我 们 写 出 的 程序 是 一 个 经 过 仔细 雕琢 的 离散 符号 集 ， 是 一 
组 交织 在 一 起 的 函数 ， 也 需要 不 断 地 演化 ， 当 我 们 对 于 模型 的 认识 更 深入 、 更 扩大 、 更 广泛 
时 ， 就 需要 去 修改 程序 ， 直 至 这 一 模型 最 终 到 达 了 一 种 亚 稳定 状态 。 而 在 这 时 ， 程 序 中 就 又 
会 出 现 另 一 个 需要 我 们 去 为 之 奋斗 的 模型 。 计 算 机 程序 设计 领域 之 令 人 兴奋 的 源泉 ， 就 在 于 
它 所 引起 的 连绵 不 绝 的 发 现 ， 在 我 们 的 头脑 之 中 ， 在 由 程序 所 表达 的 计算 机 制 之 中 ， 甚 至 在 
由 此 所 导致 的 认识 爆炸 之 中 。 如 果 说 艺术 解释 了 我 们 的 梦想 ， 那 么 计算 机 就 是 以 程序 的 名 义 
执行 着 它们 。 

就 其 本 身 的 所 有 人 能力 而 言 ， 计 算 机 是 一 位 一 丝 不 萄 的 “工匠 ”: 它 的 程序 必须 正确 ， 我 们 
希望 的 所 有 东西 ， 都 必须 表述 得 准确 到 每 一 点 细节 。 就 像 在 其 他 所 有 使 用 符号 的 活动 中 一 样 ， 
我 们 需要 通过 论证 使 自己 相信 程序 的 真 。 可 以 为 Lisp 本 身 赋予 一 个 语义 (可 以 说 是 另 一 个 模 
型 )， 比 如 说 ， 一 个 程序 的 功能 可 以 在 谓词 演算 里 描述 ， 那 么 就 可 以 用 逻辑 方法 做 出 一 个 可 接 
受 的 正确 性 论证 。 不 幸 的 是 ， 随 着 程序 变 得 更 大 、 更 复杂 (实际 上 它们 几乎 总 是 如 此 )， 这 种 
描述 本 身 的 适宜 性 、 一 致 性 和 正确 性 也 都 变 得 非常 值得 怀疑 了 。 因 此 ， 很 少 能 够 看 到 有 关 大 
程序 正确 性 的 完全 形式 化 的 论证 。 因 为 大 的 程序 是 从 小 东西 成 长 起 来 的 ， 所 以 开发 出 一 个 标 
准 化 的 程序 结构 的 武器 库 ， 并 保证 其 中 每 种 结构 的 正确 性 一 一 我 们 称 它们 为 惯用 法 ， 再 学 会 
如 何 利用 一 些 已 经 证 明 很 有 价值 的 组 织 技术 ， 将 这 些 结构 组 合成 更 大 的 结构 ， 都 是 至 关 重 要 
的 。 本 书 中 将 详尽 地 讨论 这 些 技术 。 理 解 这 些 技术 ， 对 于 参与 被 称 为 程序 设计 的 具有 创造 性 
的 事业 是 最 本 质 的 。 特 别 值得 提出 的 是 ， 发 现 并 掌握 强 有 力 的 组 织 技术 ， 将 提升 我 们 构造 大 
型 的 重要 程序 的 能 力 。 反 过 来 说 ， 由 于 写 大 程序 非常 耗 时 费力 ， 这 也 推动 着 我 们 去 发 明 新 方 
法 ， 以 减轻 由 于 大 程序 的 功能 和 细节 而 带 来 的 沉重 负担 。 
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与 程序 不 同 ， 计 算 机 必须 遵守 物理 定律 。 如 果 它 们 要 快速 执行 一 一 儿 个 纳 秒 做 一 次 状态 转 
换 一 那么 就 必须 在 很 短 的 距离 内 传导 电子 (至 多 1.5 英 尺 ”) 。 必 须 消除 由 于 大 量 元 件 而 产生 
的 热量 集中 。 人 们 已 经 开发 出 了 一 些 巧妙 的 工程 艺术， 用 于 在 功能 多 样 性 与 元 件 密度 之 间 求 
得 一 种 平衡 。 在 任何 情况 下 ,硬件 都 是 在 比 我 们 编程 时 所 需要 关心 的 层次 更 低 的 层次 上 操作 
的 。 将 Lisp 程 序 变换 到 “机 器 ”程序 的 过 程 本 身 也 是 抽象 模型 ， 是 通过 程序 设计 做 出 来 的 。 
研究 和 构造 它们 ， 能 使 人 更 加 深刻 地 理解 与 任何 模型 的 程序 设计 有 关 的 程序 组 织 问题 。 当 然 ， 
计算 机 本 身 也 可 以 这 样 模拟 。 请 想 一 想 : 最 小 的 物理 开关 元 件 在 量子 力学 里 建 模 ， 而 量子 力 
学 又 由 一 组 微分 方程 描述 ， 微 分 方程 的 细节 行为 可 以 由 数值 去 近似 ， 这 种 数值 又 由 计算 机 程 
序 所 描述 ， 计 算 机 程序 的 组 成 …… 

区 分 出 上 述 三 类 需要 关注 的 对 象 ， 并 不 仅仅 是 为 了 策略 上 的 便利 。 即 使 有 人 说 这 种 逻辑 
区 分 不 过 是 人 头脑 里 的 东西 ， 它 也 加 速 了 这 些 关 注 对 象 之 间 的 转换 ， 它 们 的 丰富 性 、 活 力 和 
潜力 ， 只 能 通过 现实 生活 中 的 不 断 演化 去 超越 。 我 们 至 多 只 能 说 ， 这 些 关注 对 象 之 间 的 关系 
是 基本 稳定 的 。 计 算 机 永远 都 不 够 大 也 不 够 快 。 硬 件 技 术 的 每 一 次 突破 都 带 来 了 更 大 规模 的 
程序 设计 事业 、 新 的 组 织 原 理 ， 以 及 更 加 丰富 的 抽象 模型 。 每 个 读者 都 应 该 反复 地 问 自己 : 
“到 哪里 才 是 尽头 ?” 但 是 不 要 问 得 过 于 频繁 ， 以 免 忽 略 了 程序 设计 的 乐趣 ,使 自己 陷入 
一 种 喜忧参半 的 呆滞 状态 中 。 

在 我 们 写 出 的 程序 里 ， 有 些 程序 执行 了 某 个 精确 的 数学 函数 (但 是 绝 不 够 精确 )， 例 如 排 
序 ， 或 者 找 出 一 系列 数 中 的 最 大 元 ， 确 定 素数 性 ， 找 出 平方 根 。 我 们 将 这 种 程序 称 为 算法 ， 
关于 它们 的 最 佳 行为 已 经 有 了 许多 认识 ， 特 别 是 关于 两 个 重要 的 参数 : 执行 的 时 间 和 对 数据 
存储 的 需求 。 程 序 员 应 该 扎 求 好 的 算法 和 惯用 法 。 即 使 某 些 程序 难以 精确 地 描述 ， 程 序 员 也 
有 责任 去 估计 它们 的 性 能 ， 并 要 继续 设法 去 改进 之 。 

Lisp 是 一 个 幸存 者 ， 已 经 使 用 了 四 分 之 一 个 世纪 。 在 现存 的 活 语言 里 ， 只 有 Fortran 比 它 
的 寿命 长 些 。 这 两 种 语言 都 用 于 一 些 重 要 领域 中 的 程序 设计 ，Fortran 用 于 科学 与 工程 计算 ， 
Lisp 用 于 人 工 智 能 。 这 两 个 领域 现在 仍然 很 重要 ， 它 们 的 程序 员 都 倾心 于 这 两 种 语言 ， 因 此 ， 
Lisp 和 Fortran 都 还 可 能 继续 生存 至 少 四 分 之 一 个 世纪 。 

Lisp 一 直 在 改变 着 。 这 本 书 中 所 用 的 Scheme 方言 就 是 从 原来 的 Lisp 里 演化 出 来 的 ， 并 在 套 
干 重要 方面 与 之 相 异 ， 包 括 变量 约束 的 静态 作用 域 ， 以 及 允许 函数 产生 出 函数 作为 值 。 在 语 
义 结 构 上 ，Scheme 更 接近 于 Algol 60 而 不 是 早期 的 Lisp。Algol 60 已 经 不 可 能 再 变 为 活 的 语言 
了 ， 但 它 还 扎根 在 Scheme 和 Pascal 的 基因 里 。 很 难 找到 这 样 的 两 种 语言 ， 它 们 清晰 地 代表 着 围 
绕 这 两 种 语言 而 聚集 起 来 的 两 种 差异 巨大 的 文化 。Pascal 是 为 了 建造 金字 塔 一 一 壮丽 辉煌 、 令 
人 震撼 ， 是 由 各 就 各 位 的 沉重 巨石 筑 起 的 静态 结构 。 而 Lisp 则 是 为 了 构造 有 机 体 一 一 同样 壮丽 
辉煌 并 令 人 震撼 ， 是 由 各 就 各 位 但 却 永 不 静止 的 无 数 简单 的 有 机 体 片 段 构成 的 动态 结构 。 在 
两 种 语言 里 都 采用 了 同样 的 组 织 原则 ， 除 了 其 中 特别 重要 的 一 点 不 同 之 外 : 赋予 Lisp 程 序 员 个 
人 可 用 的 自由 支配 权 ， 要 远 远 超过 在 Pascal 社 团 里 可 找到 的 东西 。Lisp 程 序 大 大 抬 高 了 函数 库 
的 地 位 ， 使 其 可 用 性 超越 了 催生 它们 的 那些 具体 应 用 。 作 为 Lisp 的 内 在 数据 结构 ， 表 对 于 这 种 
可 用 性 的 提升 起 着 最 重要 的 作用 。 表 的 简单 结构 和 自然 可 用 性 反映 到 函数 里 ， 就 使 它们 有 具 有 
了 一 种 奇异 的 普 适 性 。 而 在 Pascal 里 ， 数 据 结 构 的 过 度 声明 导致 函数 的 专用 性 。 采 用 100 个 函 
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数 在 1 个 数据 结构 上 操作 ， 远 远 优 于 用 10 个 国 数 在 10 个 数据 结构 上 操作 。 这 带 来 的 必然 后 果 是 ， 
金字 塔 意 立 在 那里 千年 不 变 ， 而 有 机 体 则 必须 演化 ， 否 则 就 会 死亡 。 

为 了 看 清楚 这 种 差异 ， 请 将 本 书 中 给 出 的 材料 和 练习 与 任何 第 一 门 Pascal 课 程 的 教科 书 中 
的 材料 做 一 个 比较 。 请 不 要 费力 地 去 想象 ， 认 为 这 不 过 是 一 本 在 MIT 采 用 的 教科 书 ， 其 特异 
性 仅仅 是 因为 它 出 自 那 个 地 方 。 准 确 地 说 ， 任 何 一 本 严肃 的 关于 Lisp 程 序 设计 的 书 都 应 该 如 
此 ， 无 论 其 学 生 是 谁 ， 在 什么 地 方 使 用 。 

请 注意 ， 这 是 一 本 有 关 程 序 设计 的 教科 书 ， 它 不 像 大 部 分 关于 Lisp 的 书 ， 因 为 那些 书 多 
半 是 为 人 们 在 人 工 智能 领域 工作 做 准备 。 当 然 ， 无 论 如 何 ， 在 研究 工作 规模 不 断 增长 的 过 程 
中 ， 软 件 工程 和 人 工 智能 所 关心 的 重要 程序 设计 工作 正 趋 于 相互 结合 。 这 也 解释 了 为 什么 在 
人 工 智 能 领域 之 外 的 人 们 对 Lisp 的 兴趣 在 不 断 增 加 。 

正如 从 人 工 智能 的 目标 可 以 预见 到 的 ， 其 研究 产生 出 许多 重要 的 程序 设计 问题 。 在 其 他 
程序 设计 文化 中 ， 源 源 不 断 的 问题 旷 化 出 一 种 又 一 种 新 的 语言 。 确 实 ， 在 任何 非常 大 的 程序 
设计 工作 中 ， 一 条 有 用 的 组 织 原则 就 是 通过 发 明 新 语言 去 控制 和 隔离 作业 模块 之 间 的 信息 流 
动 。 这 些 语 言 越 来 越 不 基础 ， 逐 渐 有 逼近 系 统 的 边界 ， 融 近 我 们 人 类 最 经 常 与 之 交互 的 地 方 。 
结果 是 ， 系 统 里 包含 着 大 量 重复 的 、 复 杂 的 语言 处 理 功能 。Lisp 有 着 非常 简单 的 语法 和 语义 ， 
程序 的 语法 分 析 可 以 看 作 一 种 很 简单 的 工作 。 这 样 ， 语 法 分 析 技 术 对 于 Lisp 程 序 几乎 就 没有 
价值 ， 语 言 处 理 器 的 构造 不 会 成 为 大 型 Lisp 系 统 发 展 和 变化 的 阻碍 。 最 后 ， 正 是 这 种 语法 和 
语义 的 极端 简单 性 ， 给 所 有 Lisp 程 序 员 带 来 了 负担 和 自由 。 任 何 规模 的 Lisp 程 序 ， 除 了 那 种 室 
室 几 行 的 程序 外 ， 都 包含 着 考虑 周到 的 各 种 功能 。 发 明 并 调整 ， 调 整 恰当 后 再 去 发 明 ! 让 我 
们 举 起 杯 ， 祝 福 那些 将 思想 镶 髓 在 重重 括号 之 间 的 Lisp 程 序 员 。 


Alan J. Perlis 
康 湿 狄 格 州 纽 黑 文 市 


第 2 版 前 言 


软件 女 可 能 确实 与 其 他 任何 东西 都 不 同 ， 它 的 本 意 就 是 被 抛弃 : 这 一 观点 就 是 总 
将 它 看 作 一 个 肥皂 泡 吗 ? 


— Alan J. Perlis 


自 1980 年 以 来 ， 本 书 的 材料 就 一 直 在 MIT 作 为 计算 机 科学 入 门 课程 的 基础 。 在 本 书 第 1 版 
出 版 之 前 ， 我 们 已 经 用 这 一 材料 教 了 4 年 课 ， 而 到 第 2 版 出 版 ， 时 间 又 过 去 了 12 年 。 我 们 非常 
高 兴 地 看 到 这 一 工作 得 到 广泛 认可 ， 并 被 结合 到 其 他 一 些 教材 中 。 我 们 已 经 看 到 我 们 的 学 生 
掌握 了 本 书 中 的 思想 和 程序 ， 并 将 它们 构筑 到 新 的 计算 机 系统 或 者 语言 的 核心 里 一 一 我 们 的 
学 生 已 经 变 成 了 我 们 的 创造 者 。 我 们 非常 幸运 能 有 如 此 有 能 力 的 学 生 和 如 此 有 建树 的 创造 者 。 

在 准备 这 一 新 版 本 的 过 程 中 ， 我 们 采纳 了 成 百 条 淤 清 性 建议 ， 它 们 来 自我 们 自己 的 教学 
经 验 ， 也 来 自 MIT 和 其 他 地 方 的 同行 们 的 评述 。 我 们 重新 设计 了 本 书 里 大 部 分 主要 程序 设计 
系统 ， 包 括 通用 型 算术 系统 、 解 释 器 、 寄 存 器 机 器 模拟 器 和 编译 器 ， 也 重 写 了 所 有 的 程序 实 
例 ， 以 保证 任何 符合 IEEE 的 Scheme 标准 (IEEE 1990) 的 Scheme 实现 都 能 运行 这 些 代码 。 

这 一 版 本 中 强调 了 儿 个 新 问题 ， 其 中 最 重要 的 是 计算 模型 里 对 于 时 间 的 处 理 所 起 的 中 心 
作用 : 带 有 状态 的 对 象 、 并 发 程序 设计 、 函 数 式 程序 设计 、 惰 性 求 值 和 非 确 定性 程序 设计 。 
这 里 为 并 发 和 非 确定 性 新 增加 了 几 节 ， 我 们 也 设法 将 这 一 论题 集成 到 整 本 书 里 ， 贯 穿 始 终 。 

本 书 第 1 版 基本 上 是 按照 我 们 在 MIT 一 学 期 课程 的 教学 大 纲 撰写 的 。 第 2 版 中 由 于 有 了 增 
加 的 这 些 新 材料 ， 已 经 不 可 能 在 一 个 学 期 里 覆盖 所 有 内 容 了 ， 所 以 教师 需要 从 中 做 一 些 选择 。 
在 我 们 自己 的 教学 里 ， 有 时 会 跳 过 有 关 逻 辑 程序 设计 的 一 节 (4.40) ; 让 学 生 使 用 寄存 器 机 
器 模拟 器 ， 但 不 去 讨论 它 的 实现 (5.255) ， 对 于 编译 器 则 只 给 出 粗略 的 概述 (5.5 节 )。 即 便 
如 此 ， 这 仍然 是 一 门 内 容 非 常 多 的 课程 。 一 些 教师 可 能 希望 只 覆盖 前 面 的 三 章 或 者 四 章 ， 而 
将 其 他 内 容留 给 后 续 课 程 。 


第 1 版 前 言 


一 台 计 算 机 就 像 是 一 把 小 提琴 。 你 可 以 想象 一 个 新 手 试 了 一 个 音符 后 埋 掉 了 它 。 
后 来 他 说 ， 听 起 来 真 难 听 。 我 们 已 经 从 大 众 和 我 们 的 大 部 分 和 计算 机 科学 家 那里 反复 
听 到 这 种 说 法 。 他 们 说 ， 和 计算 机 程序 对 个 别 具 体 用 泛 而 言 确 实 是 好 东西 但 它们 太 
缺乏 弹性 。 一 把 小 提琴 或 者 一 台 打 字 机 也 同样 缺乏 弹性 ， 那 是 在 你 学 会 了 如 何 去 使 
用 它们 之 前 。 


— Marvin Minsky, “为 什么 说 程序 设计 和 浸 容易 成 为 一 种 媒介 ， 
用 于 表述 理解 浮 浅 、 草 率 而 就 的 思想 ” 


本 书 是 麻 省 理工 学 院 (MIT) 计算 机 科学 的 入 门 教 材 。 在 MIT 主 修 电子 工程 或 者 计算 机 科 
学 的 所 有 学 生 都 必须 学 这 门 课 ， 作 为 “公共 核心 课程 计划 ”的 四 分 之 一 。 该 计划 还 包含 两 个 
关于 电路 和 线性 系统 的 科目 ， 以 及 一 个 关于 数字 系统 设计 的 科目 。 我 们 从 1978 年 开始 涉足 这 
些 科 目的 开发 ， 从 1980 年 秋季 以 后 ， 我 们 就 一 直 按照 现在 这 种 形式 教授 这 门 课程 ， 每 年 600 到 
700 个 学 生 。 大 部 分 学 生 此 前 没有 或 者 很 少 有 计算 方面 的 正式 训练 ， 虽 然 许 多 人 玩 过 计算 机 ， 
也 有 少数 人 有 丰富 的 程序 设计 或 者 硬件 设计 经 验 。 

我 们 所 设计 的 这 门 计算 机 科学 入 门 课程 主要 考虑 了 两 个 方面 。 首 先 ， 我 们 希望 建立 起 一 
种 认识 : 计算 机 语言 并 不 仅仅 是 一 种 让 计算 机 去 执行 操作 的 方式 ， 更 重要 的 ， 它 是 一 种 表述 
有 关 方 法 学 的 思想 的 新 颖 的 形式 化 媒介 。 因 此 ， 程 序 必 须 写 得 能 够 供 人 们 了 阅读， 偶尔 地 去 供 
计算 机 执行 。 其 次 ， 我 们 相信 ， 在 这 一 层次 的 课程 里 ， 最 基本 的 材料 并 不 是 特定 程序 设计 语 
言 的 语法 ， 不 是 高 效 完成 某 种 功能 的 巧妙 算法 ， 也 不 是 算法 的 数学 分 析 或 者 计算 的 本 质 基 础 ， 
而 是 一 些 能 够 控制 大 型 软件 系统 的 复杂 性 的 技术 。 

我 们 的 目标 是 ， 完 成 了 这 一 科目 的 学 生 能 对 程序 设计 的 风格 要 素 有 一 种 很 好 的 审美 观 。 
他 们 应 该 掌握 了 控制 大 型 系统 的 复杂 性 的 主要 技术 。 他 们 应 该 能 够 去 读 50 页 长 的 程序 ， 只 要 
该 程序 是 以 一 种 值得 模仿 的 形式 写 出 来 的 。 他 们 应 该 知道 在 什么 时 候 哪 些 东 西 不 需要 去 读 ， 
哪些 东西 不 需要 去 理解 。 他 们 应 该 很 有 把 握 地 去 修改 一 个 程序 ， 同 时 又 能 保持 原来 作者 的 精 
神 和 风格 。 

这 些 技能 并 不 仅仅 适用 于 计算 机 程序 设计 。 我 们 所 教授 和 提炼 出 来 的 这 些 技 术 ， 对 于 所 
有 的 工程 设计 都 是 通用 的 。 我 们 在 适当 的 时 候 隐藏 起 一 些 细节 ， 通 过 创建 抽象 去 控制 复杂 性 。 
我 们 通过 建立 约定 的 界面 ， 以 一 种 “混合 与 匹配 ”的 方式 组 合 起 一 些 标准 的 、 已 经 很 好 理解 
的 片段 去 控制 复杂 性 。 我 们 通过 建立 一 些 新 的 语言 去 描述 各 种 设计 ， 每 种 语言 强调 设计 中 的 
一 个 特定 方面 并 降低 其 他 方面 的 重要 性 ， 以 控制 复杂 性 。 

设计 这 门 课程 的 基础 是 我 们 的 一 种 信念 一 “计算 机 科学 ”并 不 是 一 种 科学 ， 而 且 其 重 
要 性 也 与 计算 机 本 身 并 无 太 大 关系 。 计 算 机 革命 是 关于 我 们 如 何 去 思考 ， 以 及 如 何 去 表达 自 
己 的 思考 的 。 在 这 个 变化 里 ， 最 基本 的 东西 就 是 出 现 了 一 种 或 许 最 好 称 为 过 程 性 认识 论 的 现 
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象 一 一 如 何 从 命令 式 的 观点 去 研究 知识 的 结构 ， 这 一 观点 与 经 典 数学 领域 中 所 采用 的 更 具 说 
明 性 的 观点 是 完全 不 同 的 。 数 学 为 精确 处 理 “ 是 什么 ”提供 了 一 种 框架 ， 而 计算 则 为 精确 处 
理 “ 怎 样 做 ”提供 了 一 种 框架 。 

在 教授 这 里 的 材料 时 ， 我 们 采用 的 是 Lisp 语 言 的 一 种 方言 。 我 们 绝 没 有 形式 化 地 教授 这 
一 语言 ， 因 为 完全 不 必 那 样 做 。 我 们 只 是 使 用 它 ， 学 生 可 以 在 几 天 之 内 就 学 会 它 。 这 也 是 类 
Lisp 语 言 的 重要 优点 : 只 有 为 数 不 多 的 几 种 构造 复合 表达 式 的 方式 ， 几 乎 没有 语法 结构 。 所 
有 的 形式 化 性 质 都 可 以 在 一 个 小 时 里 讲 完 ， 就 像 下 象棋 的 规则 一 样 。 在 很 短 时 间 之 后 ， 我 们 
就 可 以 不 再 去 管 语 言 的 语法 细节 (因为 这 里 根本 就 没有 )， 而 进入 真正 的 问题 一 一 弄 清楚 我 们 
需要 计算 什么 ， 怎 样 将 问题 分 解 为 一 组 可 以 控制 的 部 分 ， 如 何 对 各 个 部 分 开展 工作 。Lisp 的 
另 一 优势 在 于 ， 与 我 们 所 知 的 任何 其 他 语言 相 比 ， 它 可 以 支持 (但 并 不 是 强制 性 的 ) 更 多 以 
模块 化 的 方式 分 解 程序 的 大 规模 策略 。 我 们 可 以 做 过 程 性 抽象 和 数据 抽象 ， 可 以 通过 高 阶 函 
数 抓 住 公共 的 使 用 模式 ， 可 以 用 赋值 和 数据 操作 去 模拟 局 部 状态 ， 可 以 利用 流 和 延 时 求 值 连 
接 起 一 个 程序 里 的 各 个 部 分 ， 可 以 很 容易 地 实现 嵌入 性 语言 。 所 有 这 些 都 融合 在 一 个 交互 式 
的 环境 里 ， 带 有 对 递增 式 程序 设计 、 构 造 、 测 试 和 排除 错误 的 绝 佳 支 持 功能 。 我 们 要 感谢 一 
代 又 一 代 的 Lisp 大 师 ， 从 John McCarthy 开 始 ， 是 他 们 打造 了 这 样 一 个 优美 的 、 具 有 空前 威力 
的 好 工具 。 

作为 我 们 所 用 的 Lisp 方 言 ，Scheme 试 图 将 Lisp 和 Algol 的 威力 和 优雅 集成 到 一 起 。 我 们 从 
Lisp 那 里 取 来 了 元 语言 的 威力 一 一 简单 的 语法 形式 、 程 序 与 数据 对 象 的 统一 表示 ， 以 及 带 有 废 
料 收集 的 堆 分 配 数 据 。 我 们 从 Algol 那 里 取 来 了 词法 作用 域 和 块 结构 ， 这 是 来 自 当年 参加 Algol 
委员 会 的 程序 设计 语言 先驱 者 的 礼物 。 这 些 先 驱 者 包括 丘 奇 (Alonzo Church)、 罗 塞 尔 
(Barkley Rosser) 、 克 里 尼 (Stephen Kleene) #44 (Haskell Curry) 。 我 们 想 特 别 感谢 John 
Reynolds 和 Peter Landin 对 丘 奇 的 lambda 演 算 与 程序 设计 语言 的 结构 之 间 关 系 的 真知 灼 见 。 我 
们 也 感谢 那些 数学 家 们 ， 他 们 在 计算 机 出 现 之 前 ， 就 已 经 在 这 一 领域 中 探索 了 许多 年 。 
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第 1 章 构造 过 程 抽象 


心智 的 活动 ， 除 了 尽力 产生 各 种 简单 的 认识 之 外 ， 主 要 表现 在 如 下 三 个 方面 : 1) 
将 若干 简单 认识 组 合 为 一 个 复合 认识 ， 由 此 产生 出 各 种 复杂 的 认识 。2 ) 将 两 个 认识 
放 在 一 起 对 照 ， 不 管 它们 如 何 简 单 或 者 复杂 ,在 这 样 做 时 并 不 将 它们 合 而 为 一 。 由 
此 得 到 有 关 它 们 的 相互 关系 的 认识 。3 ) 将 有 关 认 识 与 那些 在 实际 中 和 它们 同 在 的 所 
有 其 他 认识 隔离 开 ， 这 就 是 抽象 ， 所 有 具有 普遍 性 的 认识 都 是 这 样 得 到 的 。 


John Locke, - Bn Esay Cuneerning 5 Human 6 Understanding 
( 有 关 人 类 理解 的 随笔 ，1690 ) 


我 们 准备 学 习 的 是 有 关 计 算 过 程 的 知识 。 计 算 过 程 是 存在 于 计算 机 里 的 一 类 抽象 事物 ， 
在 其 演化 进程 中 ， 这 些 过 程 会 去 操作 一 些 被 称 为 数据 的 抽象 事物 。 人 们 创建 出 一 些 称 为 程序 
的 规则 模式 ， 以 指导 这 类 过 程 的 进行 。 从 作用 上 看 ， 就 像 是 我 们 在 通过 自己 的 写作 魔力 去 控 
制 计算 机 里 的 精灵 似 的 。 

一 个 计算 过 程 确实 很 像 一 种 神灵 的 巫 术 ， 它 看 不 见 也 摸 不 到 ， 根 本 就 不 是 由 物质 组 成 的 。 
然而 它 却 又 是 非常 真实 的 ， 可 以 完成 某 些 智力 性 的 工作 。 它 可 以 回答 提问 ， 可 以 通过 在 银行 
里 支付 现金 或 者 在 工厂 里 操纵 机 器 人 等 等 方式 影响 这 个 世界 。 我 们 用 于 指挥 这 种 过 程 的 程序 
就 像 是 巫师 的 咒语 ， 它 们 是 用 一 些 诡 秘 而 深奥 的 程序 设计 语言 ， 通 过 符号 表达 式 的 形式 精心 
编排 而 成 ， 它 们 描述 了 我 们 希望 相应 的 计算 过 程 去 完成 的 工作 。 

在 正常 工作 的 计算 机 里 ， 一 个 计算 过 程 将 精密 而 准确 地 执行 相应 的 程序 。 这 样 ， 初 学 程 
序 设计 的 人 们 就 像 巫 师 的 徒弟 们 那样 ， 必 须 学 习 如 何 去 理 解 和 预期 他 们 所 发 出 的 咒语 的 效果 。 
程序 里 即使 有 一 点 小 错误 (常常 被 称 为 程序 错误 (bug) 或 者 故障 (glitch) ) ， 也 可 能 产生 复 
杂 而 无 法 预料 的 后 果 。 

幸运 的 是 ， 学 习 程序 的 危险 性 远 远 小 于 学 习 巫 术 ， 因 为 我 们 要 去 控制 的 神灵 以 一 种 很 安 
全 的 方式 被 约束 着 。 而 真实 的 程序 设计 则 需要 极度 细心 ， 需 要 经 验 和 智慧 。 例 如 ， 在 一 个 计 
算 机 辅助 设计 系统 里 的 一 点 小 毛病 ， 就 可 能 导致 一 架 飞 机 或 者 一 座 水 坝 的 灾难 性 损毁 ， 或 者 
一 个 工业 机 器 人 的 自我 破坏 。 

软件 工程 大 师 们 能 组 织 好 自己 的 程序 ， 使 自己 能 合理 地 确信 这 些 程序 所 产生 的 计算 过 程 
将 能 完成 预期 的 工作 。 他 们 可 以 事先 看 到 自己 系统 的 行为 方式 ， 知 道 如 何 去 构 造 这 些 程序 ， 
使 其 中 出 现 的 意外 问题 不 会 导致 灾难 性 的 后 果 。 而 且 ， 在 发 生 了 这 种 问题 时 ， 他 们 也 能 排除 
程序 中 的 错误 。 设 计 良 好 的 计算 系统 就 像 设 计 良 好 的 汽车 或 者 核反应 堆 一 样 ， 具 有 某 种 模块 
化 的 设计 ， 其 中 的 各 个 部 分 都 可 以 独立 地 构造 、 替 换 、 排 除 错 误 。 

用 Lisp 编 程 

为 了 描述 这 类 计算 过 程 ， 我 们 需要 有 一 种 适用 的 语言 。 我 们 将 为 此 使 用 程序 设计 语言 
Lisp。 正 如 人 们 每 天 用 自然 语言 (如 英语 、 法 语 或 日 语 等 ) 表述 自己 的 想法 ， 用 数学 形式 的 
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记 法 描述 定量 的 现象 一 样 ， 我 们 将 要 用 Lisp 表 述 过 程 性 的 思想 。Lisp 是 20 世 纪 50 年 代 后 期 发 明 
的 一 种 记 法 形式 ， 是 为 了 能 对 某 种 特定 形式 的 逻辑 表达 式 ( 称 为 递归 方程 ) 的 使 用 做 推理 。 
递归 方程 可 以 作为 计算 的 模型 。 这 一 语言 是 由 John McCarthy 设 计 的 ， 基 于 他 的 论文 
“Recursive Functions of Symbolic Expressions and Their Computation by Machine” (符号 表达 
式 的 递归 函数 及 其 机 械 计算 ,McCarthy 1960)。 

虽然 在 开始 时 ，McCarthy 是 想 以 Lisp 作 为 一 种 数学 记述 形式 ， 但 它 确实 是 一 种 实用 的 程 
序 设 计 语言 。 一 个 Lisp 解 释 器 就 像 是 一 台 机 器 ， 它 能 实现 用 Lisp 语 言 描述 的 计算 过 程 。 第 一 个 
Lisp 解 释 器 是 McCarthy 在 MIT 电 子 研究 实验 室 的 人 工 智能 组 和 MIT 计 算 中 心里 他 的 同事 和 学 生 
的 帮助 下 实现 的 !。Lisp 的 名 字 来 自 表 处 理 (LISt Processing)， 其 设计 是 为 了 提供 符号 计算 的 
能 力 ， 以 便 能 用 于 解决 一 些 程 序 设计 问题 ， 例 如 代数 表达 式 的 符号 微分 和 积分 。 它 包含 了 适 
用 于 这 类 目的 的 一 些 新 数据 对 象 ， 称 为 原子 和 表 ， 这 是 它 与 那 一 时 代 的 所 有 其 他 语言 之 间 最 
明显 的 不 同 之 处 。 

Lisp 并 不 是 一 个 刻意 的 设计 努力 的 结果 ， 它 以 一 种 试验 性 的 非 正 式 的 方式 不 断 演化 ， 以 
满足 用 户 的 需要 和 实际 实现 的 各 种 考 虚 。Lisp 的 这 种 非 官方 演化 持续 了 许多 年 ，Lisp 用 户 社 团 
具有 抵制 制定 这 一 语言 的 “官方 ”定义 企图 的 传统 。 这 种 演化 方式 以 及 语言 初始 概念 的 灵活 
和 优美 ， 使 得 Lisp 成 为 今天 还 在 广泛 使 用 的 历史 第 二 悠久 的 语言 (只 有 Fortran 比 它 更 老 )。 这 
一 语言 还 在 不 断 调 整 ， 以 便 去 包容 有 关 程 序 设 计 的 最 新 思想 。 正 因为 这 样 ， 今 天 的 Lisp 已 经 
形成 了 一 族 方言 ， 它 们 共享 着 初始 语言 的 大 部 分 特征 ， 也 可 能 有 这 样 或 那样 的 重要 差异 。 用 
于 本 书 的 Lisp 方 言 名 为 Scheme 。 

由 于 Lisp 的 试验 性 质 以 及 强调 符号 操作 的 特点 ， 开 始 时 的 这 个 语言 对 于 数值 计算 而 言 是 
很 低 效 的 ， 至 少 与 Fortran 比 较 时 是 这 样 。 经 过 这 么 多 年 的 发 展 ， 人 们 已 经 开发 出 了 Lisp 编 译 
器 ， 它 们 可 以 将 程序 翻译 为 机 器 代码 ， 这 样 的 代码 能 相当 高 效 地 完成 各 种 数值 计算 。Lisp 已 
经 可 以 非常 有 效 地 用 于 一 些 特殊 的 应 用 领域 3。 虽然 Lisp 还 没有 完全 战胜 有 关 它 特别 低 效 的 旗 
毁 ， 但 它 现 在 已 被 用 于 许多 性 能 并 不 是 最 重要 考虑 因素 的 应 用 领域 。 例 如 ，Lisp 已 经 成 为 操 
作 系 统 外 壳 语 言 的 一 种 选择 ， 作 为 编辑 器 和 计算 机 辅助 设计 系统 的 扩充 语言 等 等 。 

既然 Lisp 并 不 是 一 种 主流 语言 ， 我 们 为 什么 要 用 它 作 为 讨论 程序 设计 的 基础 呢 ? 这 是 因 
为 ， 这 一 语言 具有 许多 独 有 的 特征 ， 这 些 特征 使 它 成 为 研究 重要 程序 的 设计 、 构 造 ， 以 及 各 
种 数据 结构 ， 并 将 其 关联 于 支持 它们 的 语言 特征 的 一 种 极 佳 媒 介 。 这 些 特征 之 中 最 重要 的 就 


' Lisp 1 Programmer's Manual 在 1960 年 发 表 ，Lisp 1.5 Programmer's Manual (McCarthy 1965) 在 1962 年 发 表 。 
有 关 Lisp 的 早期 历史 见 McCarthy 1978。 

2 在 20 世 纪 70 年 代 ， 最 主要 的 两 个 Lisp 方 言 是 MIT 的 MAC 项 目 中 开发 的 MacLisp (Moon 1978; Pitman 1983)， 以 
及 在 Bolt Beranek and Newman Inc. 和 Xerox Palo Alto Research Center 开 发 的 Interlisp (Teitelman 1974) ， 那 时 
主要 的 Lisp 程 序 都 是 用 它们 写 的 。Portable Standard Lisp (Hearn 1969; Griss 1981) 是 另 一 种 Lisp 方 言 ， 甚 设计 
就 是 为 能 更 容易 地 移植 到 不 同 的 计算 机 上 。MacLisp 又 发 展 出 一 些 子 方言 ， 例 如 加 州 大 学 伯克利 分 校 开 发 的 
Franz Lisp， 还 有 ZetaLisp (Moon 1981)， 它 基于 MIT 人 工 智能 实验 室 设 计 的 一 种 专用 处 理 器 ， 这 一 处 理 器 可 以 
非常 高 效 地 运行 Lisp。 本 书 所 用 的 Lisp 方 言 称 为 Scheme (Steele 1975) ， 是 1975 年 由 MIT 人 工 智能 实验 室 的 Guy 
Lewis Steele Jr. 和 Gerald Jay Sussman 设 计 的 ， 后 来 在 MIT 为 了 教学 使 用 而 重新 实现 。 在 1990 年 Scheme 变 成 了 
IEEE 标 准 (IEEE 1990), Common Lisp 方 言 (Steele 1982, Steele 1990) 是 由 Lisp 社 团 综合 了 早 前 各 种 Lisp 方 言 
的 特征 而 开发 出 来 的 ， 希 望 能 做 成 Lisp 的 工业 标准 。Common Lisp 在 1994 年 成 为 ANSI 标 准 (ANSI 1994) 。 

”这 方面 有 一 个 应 用 是 科学 计算 的 重要 突破 一 -有 关 太 阳 系 统 运 动 的 整合 ， 它 将 以 前 的 结果 提高 了 两 个 数量 级 ， 
并 显示 出 太阳 系统 动力 学 的 混沌 性 。 完 成 这 一 计算 依靠 了 一 种 新 的 整合 算法 、 一 个 特殊 的 编译 器 以 及 一 台 专 用 
计算 机 ， 所 有 这 些 都 是 在 用 Lisp 写 的 软件 工具 的 帮助 下 实现 的 (Abelson et al. 1992; Sussman 和 Wisdom 1992)。 
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是 : 计算 过 程 的 Lisp 描 述 〈 称 为 过 程 ) 本 身 又 可 以 作为 Lisp 的 数据 来 表示 和 操作 。 这 一 事实 的 
重要 性 在 于 ， 现 存 的 许多 威力 强大 的 程序 设计 技术 ， 都 依赖 于 填 平 在 “被 动 的 ”数据 和 “ 主 
动 的 ”过 程 之 间 的 传统 划分 。 正 如 我 们 将 要 看 到 的 ，Lisp 可 以 将 过 程 作为 数据 进行 处 理 的 灵 
活性 ， 使 它 成 为 探索 这 些 技术 的 最 方便 的 现存 语言 之 一 。 能 将 过 程 表示 为 数据 的 能 力 ， 也 使 
Lisp 成 为 编写 那些 必须 将 其 他 程序 当 作 数据 去 操作 的 程序 的 最 佳 语 言 ， 例 如 支持 计算 机 语言 
的 解释 器 和 编译 器 。 除 了 这 些 考 虑 之 外 ， 用 Lisp 编 程 本 身 也 是 极其 有 趣 的 。 


1.1 程序 设计 的 基本 元 素 


一 个 强 有 力 的 程序 设计 语言 ， 不 仅 是 一 种 指挥 计算 机 执行 任务 的 方式 ， 它 还 应 该 成 为 一 
种 框架 ， 使 我 们 能 够 在 其 中 组 织 自 己 有 关 计 算 过 程 的 思想 。 这 样 ， 当 我 们 描述 一 个 语言 时 ， 
就 需要 将 注意 力 特别 放 在 这 一 语言 所 提供 的 ， 能 够 将 简单 的 认识 组 合 起 来 形成 更 复杂 认识 的 
方法 方面 。 每 一 种 强 有 力 的 语言 都 为 此 提供 了 三 种 机 制 |: 

* 基本 表达 形式 ， 用 于 表示 语言 所 关心 的 最 简单 的 个 体 。 

* 组合 的 方法 ， 通 过 它们 可 以 从 较 简单 的 东西 出 发 构造 出 复合 的 元 素 。 

“ 抽象 的 方法 ， 通 过 它们 可 以 为 复合 对 象 命名 ， 并 将 它们 当 作 单元 去 操作 。 

在 程序 设计 中 ， 我们 需要 处 理 两 类 要 素 : 过 程 和 数据 (以 后 读者 将 会 发 现 ， 它 们 实际 上 
并 不 是 这 样 严格 分 离 的 )。 非 形式 地 说 ， 数 据 是 一 种 我 们 希望 去 操作 的 “东西 "， 而 过 程 就 是 
有 关 操 作 这 些 数 据 的 规则 的 描述 。 这 样 ， 任 何 强 有 力 的 程序 设计 语言 都 必须 能 表述 基本 的 数 
据 和 基本 的 过 程 ， 还 需要 提供 对 过 程 和 数据 进行 组 合 和 抽象 的 方法 。 

本 章 只 处 理 简单 的 数值 数据 ， 这 就 使 我 们 可 以 把 注意 力 集中 到 过 程 构造 的 规则 方面 *。 在 
随后 几 章 里 我 们 将 会 看 到 ， 用 于 构造 过 程 的 这 些 规则 同样 也 可 以 用 于 操作 各 种 数据 。 


1.1.1 表达 式 


开始 做 程序 设计 ， 最 简单 方式 就 是 去 观看 一 些 与 Lisp 方 言 Scheme 解释 器 交互 的 典型 实例 。 
设想 你 坐 在 一 台 计 算 机 的 终端 前 ， 用 键盘 输入 了 一 个 表达 式 ， 解 释 器 的 响应 就 是 将 它 对 这 一 
表达 式 的 求 值 结果 显示 出 来 。 

尔 可 以 键入 的 一 种 基本 表达 式 就 是 数 (更 准确 地 说 ， 你 键入 的 是 由 数字 组 成 的 表达 式 ， 
它 表示 的 是 以 10 作 为 基数 的 数 )。 如 果 你 给 Lisp 一 个 数 
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“将 数值 作为 “简单 数据 ”看 待 实际 上 完全 是 一 种 虚 张 声势 。 事 实 上 ， 对 于 数值 的 处 理 是 任何 程序 设计 语言 里 
最 错综复杂 而 且 也 最 迷惑 人 的 事项 之 一 ， 其 中 涉及 的 典型 问题 包括 : 某 些 计算 机 系统 区 分 了 整数 〈 例 如 2) 和 
实数 〈 例 如 2.71)。 那 么 实数 2.00 和 整数 2 不 同 吗 ? 用 于 整数 的 算术 运算 是 否 与 用 于 实数 的 运算 相同 呢 ? 用 6 除 
以 2 的 结果 是 3 还 是 3.0? 我 们 可 以 表示 的 最 大 的 数 是 多 少 ? 最 多 能 表示 的 精度 包含 了 多 少 个 十 进 制 位 ? 整数 的 
表示 范围 与 实数 一 样 四 ?显然 ， 上 述 这 些 问题 以 及 许多 其 他 问题 ， 都 会 带 来 有 关 舍 入 和 截断 误差 的 一 系列 问 
题 一 -这 就 是 数值 分 析 的 整个 科学 领域 。 因为 我 们 在 本 书 中 主要 关心 的 是 大 规模 程序 的 设计 , 而 不 是 数值 技术 ， 
因此 将 忽略 对 这 些 问题 的 讨论 。 本 章 中 有 关 数 值 的 实例 将 没有 常规 的 舍 入 动作 ， 而 如 果 对 非 整 数 使 用 具有 有 
限 的 十 进 制 位 数 精度 的 算术 运算 ， 就 会 看 到 这 方面 的 情况 。 

在 这 本 书 里 的 任何 地 方 ， 当 我 们 希望 强调 用 户 键入 的 输入 和 解释 器 的 响应 之 间 的 差异 时 ， 就 用 斜体 的 形式 显 
示 后 者 。 
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486 

可 以 用 表示 基本 过 程 的 表达 形式 〈 例 如 + 或 者 * ) ， 将 表示 数 的 表达 式 组 合 起 来 ， 形 成 复 
合 表达 式 ， 以 表示 求 要 把 有 关 过 程 应 用 于 这 些 数 。 例 如 : 

(+ 137 349) 


486 


(- 1000 334) 
666 


(* 5 99) 
495 


(/ 10 5) 
2 


(+ 2.7 10) 

12.7 

像 上 面 这 样 的 表达 式 称 为 组 合式 ， 其 构成 方式 就 是 用 一 对 括号 括 起 一 些 表 达 式 ， 形 成 一 
个 表 ， 用 于 表示 一 个 过 程 应 用 。 在 表 里 最 左 的 元 素 称 为 运算 符 ， 其 他 元 素 都 称 为 运算 对 象 。 
要 得 到 这 种 组 合式 的 值 ， 采 用 的 方式 就 是 将 由 运算 符 所 刻画 的 过 程 应 用 于 有 关 的 实际 参数 ， 
而 所 谓 实际 参数 也 就 是 那些 运算 对 象 的 值 。 

将 运算 符 放 在 所 有 运算 对 象 左 边 ， 这 种 形式 称 为 前 组 表示 。 刚 开始 看 到 这 种 表示 时 会 感 
到 有 些 不 习惯 ， 因 为 它 与 常规 数学 表示 差别 很 大 。 然 而 前 绥 表 示 也 有 一 些 优点 ， 其 中 之 一 就 
是 它 完全 适用 于 可 能 带 有 任意 个 实 参 的 过 程 ， 例 如 在 下 面 实例 中 的 情况 : 

(+ 21 35 12 7) 

7S 

(* 25 4 12) 

1200 
在 这 里 不 会 出 现 歧义 ， 因 为 运算 符 总 是 最 左边 的 元 素 ， 而 整个 表达 式 的 范围 也 由 括号 界定 。 

前 缀 表示 的 第 二 个 优点 是 它 可 以 直接 扩充 ,允许 出 现 组 合式 嵌 套 的 情况 ， 也 就 是 说 ， 允 
许 组 合式 的 元 素 本 身 又 是 组 合式 : 

(+ (* 3.5) (= 20 6)) 

19 

SUEDE, SPAR ETRE, LA Be Lisp fie FE ar PT DAR BLA Ze SCY ME SS ARTE, #8 
没有 任何 限制 。 倒 是 我 们 自己 有 可 能 被 一 些 并 不 很 复杂 的 表达 式 搞 糊涂 ， 例 如 : 


(+ (* 3 (+ (* 2 4) (+ 3 5))) (+ (- 10 7) 6)) 
对 于 这 个 表达 式 ， 解 释 器 可 以 马上 求 值 出 57。 将 上 述 表 达 式 写成 下 面 的 形式 有 助 于 阅读 : 
(+ (* 3 
(+ (* 2 4) 
(+ 3 5))) 
(+ (- 10 7) 


6)) 


这 就 是 遵循 一 种 称 为 美观 打印 的 格式 规则 。 按 照 这 种 规则 ， 在 写 一 个 很 长 的 组 合式 时 ， 我 们 
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令 其 中 的 各 个 运算 对 象 垂直 对 齐 。 这 样 缩 格 排列 的 结果 能 很 好 地 显示 出 表达 式 的 结构 5。 

即使 对 于 非常 复杂 的 表达 式 ， 解 释 器 也 总 是 按 同样 的 基本 循环 运作 : 从 终端 读 入 一 个 表 
达 式 ， 对 这 个 表达 式 求 值 ， 而 后 打印 出 得 到 的 结果 。 这 种 运作 模式 常常 被 人 们 说 成 是 解释 器 
运行 在 一 个 读 入 一 求 值 一 打印 循环 之 中 。 请 特别 注意 ， 在 这 里 完全 没有 必要 显 式 地 去 要 求解 
释 器 打印 表达 式 的 值 ”。 


1.1.2 命名 和 环境 


程序 设计 语言 中 一 个 必 不 可 少 的 方面 ， 就 是 它 需 要 提供 一 种 通过 名 字 去 使 用 计算 对 象 的 
方式 。 我 们 将 名 字 标 识 符 称 为 变量 ， 它 的 值 也 就 是 它 所 对 应 的 那个 对 象 。 

在 Lisp 方 言 Scheme 里 ， 给 事物 命名 通过 define (定义 ) 的 方式 完成 ， 输 入 : 

(define size 2) 
会 导致 解释 器 将 值 2 与 名 字 size 相 关联 s。 一 旦 名 字 size 与 2 关联 之 后 ， 我 们 就 可 以 通过 这 个 
名 字 去 引用 值 2 了 : 

2 


(* 5 size) 
10 


下 面 是 另外 几 个 使 用 aefine 的 例子 : 
(define pi 3.14159) 

(define radius 10) 

(* pi (* radius radius) ) 

314.159 

(define circumference (* 2 pi radius) ) 


circumference 
62.8318 


define 是 我 们 所 用 的 语言 里 最 简单 的 抽象 方法 ， 它 允许 我 们 用 一 个 简单 的 名 字 去 引用 一 
个 组 合 运算 的 结果 ， 例 如 上 面 算出 的 cizcumference。 一 般 而 言 ， 计 算得 到 的 对 象 完全 可 
以 具有 非常 复杂 的 结构 ， 如 果 每 次 需要 使 用 它们 时 ， 都 必须 记 住 并 重复 地 写 出 它们 的 细节 ， 
那 将 是 极端 不 方便 的 事情 。 实 际 上 ， 构 造 一 个 复杂 的 程序 ， 也 就 是 为 了 去 一 步 步 地 创建 出 越 
来 越 复杂 的 计算 性 对 象 。 解 释 器 使 这 种 逐步 的 程序 构造 过 程 变 得 非常 方便 ， 因 为 我 们 可 以 通 
过 一 系列 交互 式 动 作 ， 逐 步 创建 起 所 需要 的 名 字 一 对 象 关 联 。 这 种 特征 鼓励 人 们 采用 递增 的 
方式 去 开发 和 调试 程序 。 在 很 大 程度 上 ， 这 一 情况 也 出 于 另 一 个 事实 ， 那 就 是 ， 一 个 Lisp 程 
序 通 常 总 是 由 一 大 批 相 对 简单 的 过 程 组 成 的 。 

“Lisp 系 统 通常 都 为 用 户 提供 了 一 些 对 表达 式 进 行 格式 化 的 特征 。 其 中 包含 两 个 最 有 用 的 特征 ， 其 一 是 在 开始 一 

个 新 行 时 ， 自 动 缩 格 到 美观 打印 形式 的 准确 位 置 ， 男 一 特征 是 在 输入 右 括号 时 自动 加 亮 显示 与 之 对 应 的 左 括号 。 

7Lisp 遵 循 一 种 约定 ， 规 定 每 个 表达 式 都 有 一 个 值 。 这 一 约定 和 有 关 Lisp 是 一 个 低 效 语言 的 陈旧 说 法 一 起 ， 形 成 

了 Alan Perlis 的 妙语 (由 Oscar Wilde 释 义 ):“Lisp 程 序 员 知 道 所 有 东西 的 值 (value, (HA), ， 但 却 不 知道 任何 


东西 的 代价 (cost)。” 
8 本 书 中 将 不 给 出 解释 器 在 对 定义 求 值 时 的 响应 ， 因 为 这 依赖 于 具体 实现 。 
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护 某 种 存储 能 力 ， 以 便 保 持 有 关 的 名 字 - 值 对 偶 的 轨迹 。 这 种 存储 被 称 为 环境 (更 精确 地 说 ， 
是 全 局 环境 ， 因 为 我 们 以 后 将 看 到 ， 在 一 个 计算 过 程 中 完全 可 能 涉及 若干 不 同 环境 ) ”。 


1.1.3 组 合式 的 求 值 


本 章 的 一 个 目标 ， 就 是 要 把 与 过 程 性 思维 有 关 的 各 种 问题 隔离 出 来 。 现 在 让 我 们 考虑 组 
合式 的 求 值 问题 。 解 释 器 本 身 就 是 按照 下 面 过 程 工作 的 。 

“要 求 值 一 个 组 合式 ， 做 下 面 的 事情 : 

1) 求 值 该 组 合式 的 各 个 子 表 达 式 。 

2) 将 作为 最 左 子 表达 式 (运算 符 ) 的 值 的 那个 过 程 应 用 于 相应 的 实际 参数 ， 所 谓 实际 参 
数 也 就 是 其 他 子 表达 式 (运算 对 象 ) 的 值 。 

即使 是 一 条 这 样 简单 的 规则 ， 也 显示 出 计算 过 程 里 的 一 些 上 共有 普遍 性 的 重要 问题 。 首 先 ， 
由 上 面 的 第 一 步 可 以 看 到 ， 为 了 实现 对 一 个 组 合式 的 求 值 过 程 ， 我 们 必须 先 对 组 合式 里 的 每 
个 元 素 执行 同样 的 求 值 过 程 。 因 此 ， 在 性 质 上 ， 这 一 求 值 过 程 是 递归 的 ， 也 就 是 说 ， 它 在 自 
己 的 工作 步骤 中 ， 包 含 着 调用 这 个 规则 本 身 的 需要 "。 

在 这 里 应 该 特别 注意 ， 采 用 递归 的 思想 可 以 多 么 简洁 地 描述 深度 嵌 套 的 情况 。 如 果 不 用 
递归 ， 我 们 就 需要 把 这 种 情况 看 成 相当 复杂 的 计算 过 程 。 例 如 ， 对 下 列表 达 式 求 值 : 

(* (+ 2 ( 4 6)) 

(e 305 79 

需要 将 求 值 规则 应 用 于 4 个 不 同 的 组 合式 。 如 图 1-1 中 所 示 ， 我 们 可 以 采用 一 棵 树 的 形式 ， 用 
图 形 表示 这 一 组 合式 的 求 值 过 程 ， 其 中 的 每 个 组 合式 用 一 个 带 分 支 的 结 点 表示 ， 由 它 发 出 的 
分 支 对 应 于 组 合式 里 的 运算 符 和 各 个 运算 对 象 。 终 端 结 点 〈 即 那些 不 再 发 出 分 支 的 结 点 ) K 
示 的 是 运算 符 或 者 数值 。 以 树 的 观点 看 这 种 求 值 过 程 ， 可 以 设想 那些 运算 对 象 的 值 向 上 穿行 ， 
从 终端 结 点 开始 ， 而 后 在 越 来 越 高 的 层次 中 组 合 起 来 。 一 般 而 言 ， 我 们 应 该 把 递归 看 作 一 种 
处 理 层 次 性 结构 的 〈 像 树 这 样 的 对 象 ) 极 强 有 力 的 技术 。 事 实 上 ,“ 值 向 上 穿行 ”形式 的 求 值 
形式 是 一 类 更 一 般 的 计算 过 程 的 一 个 例子 ， 这 种 计算 过 程 称 为 树 形 积 累 。 

进一步 的 观察 告诉 我 们 ， 反 复 地 应 用 第 一 个 步骤 ， 总 可 以 把 我 们 带 到 求 值 中 的 某 一 点 ， 
在 这 里 遇 到 的 不 是 组 合式 而 是 基本 表达 式 ， 例 如 数 、 内 部 运算 符 或 者 其 他 名 字 。 处 理 这 些 基 
础 情况 的 方式 如 下 规定 : 

“ 数 的 值 就 是 它们 所 表示 的 数值 。 

* 内 部 运算 符 的 值 就 是 能 完成 相应 操作 的 机 器 指令 序列 。 

© 其 他 名 字 的 值 就 是 在 环境 中 关联 于 这 一 名 字 的 那个 对 象 。 
我 们 可 以 将 第 二 种 规定 看 作 是 第 三 种 规定 的 特殊 情况 ， 为 此 只 需 将 像 + 和 * 一 类 的 运算 符 也 
包含 在 全 局 环境 里 ， 并 将 相应 的 指令 序列 作为 与 之 关联 的 “ 值 ”。 对 于 初学 者 ， 应 该 指出 的 关 
键 一 点 是 ， 环 境 所 扮演 的 角色 就 是 用 于 确定 表达 式 中 各 个 符号 的 意义 。 在 如 Lisp 这 样 的 交互 


”第 3 章 将 说 明 ， 无 论 对 于 理解 解释 器 的 工作 ， 还 是 实现 解释 器 而 言 ， 环 境 的 概念 都 是 至 关 重 要 的 。 

"这 一 求 值 规则 说 ， 在 它 的 第 一 步 要 对 组 合式 的 最 左 元 素 求 值 ， 这 一 说 法 看 起 来 好 像 有 点 奇怪 ， 因 为 在 这 里 出 
RAE + Al * 一 类 的 运算 符 ， 它 们 表示 的 是 内 部 基本 过 程 ， 例 如 求 和 和 求 乘积 。 后 面 将 看 到 这 一 规则 是 有 
用 的 ， 因 为 我 们 还 需要 处 理 那 些 运算 符 部 分 也 是 组 合 表达 式 的 情况 。 
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图 1-1 树 形 表示 方法 ， 其 中 显示 了 每 个 子 表达 式 的 值 


式 语言 里 ， 如 果 没 有 关于 有 关 环 境 的 任何 信息 ， 那 么 说 例如 表达 式 (+ x 1) 的 值 是 毫 无 意 
义 的 ， 因 为 需要 有 环境 为 符号 x 提供 意义 (甚至 需要 它 为 符号 二 提供 意义 )。 正 如 我 们 将 要 在 
第 3 章 看 到 的 ， 环 境 是 具有 普遍 性 的 概念 ， 它 为 求 值 过 程 的 进行 提供 了 一 种 上 下 文 ， 对 于 我 们 
理解 程序 的 执行 起 着 极其 重要 的 作用 。 

请 注意 ， 上 面 给 出 的 求 值 规则 里 并 没有 处 理 定义 。 例 如 ,对 (define x 3) 的 求 值 并 
不 是 将 aefine 应 用 于 它 的 两 个 实际 参数 : 其 中 的 一 个 是 符号 x 的 值 ， 另 一 个 是 3。 这 是 因为 
define 的 作用 就 是 为 x 关联 一 个 值 (也 就 是 说 ，(aefine x 3) 并 不 是 一 个 组 合式 )。 

一 般 性 求 值 规 则 的 这 种 例外 称 为 特殊 形式 ，define 是 至 今 我 们 已 经 看 到 的 唯一 的 一 种 特 
殊 形式 ， 下 面 还 将 看 到 另外 一 些 特 殊 形 式 。 每 个 特殊 形式 都 有 其 自身 的 求 值 规则 ， 各 种 不 同 
种 类 的 表达 式 (每 种 有 着 与 之 相关 联 的 求 值 规则 ) 组 成 了 程序 设计 语言 的 语法 形式 。 与 大 部 
分 其 他 程序 设计 语言 相 比 ，Lisp 的 语法 非常 简单 。 也 就 是 说 ， 对 各 种 表达 式 的 求 值 规 则 可 以 
描述 为 一 个 简单 的 通用 规则 和 一 组 针对 不 多 的 特殊 形式 的 专门 规则 "。 


1.1.4 复合 过 程 


我 们 已 经 看 到 了 Lisp 里 的 某 些 元 素 ， 它 们 必然 也 会 出 现在 任何 一 种 强 有 力 的 程序 设计 语 
言 里 。 这 些 东西 包括 : 

* 数 和 算术 运算 是 基本 的 数据 和 过 程 。 

“组 合式 的 柳 套 提供 了 一 种 组 织 起 多 个 操作 的 方法 。 

* 定义 是 一 种 受 限 的 抽象 手段 ， 它 为 名 字 关 联 相应 的 值 。 

现在 我 们 来 学 习 过 程 定 义 ， 这 是 一 种 威力 更 加 强大 的 抽象 技术 ， 通 过 它 可 以 为 复合 操作 


1 这 里 的 特殊 语法 形式 ， 只 不 过 是 为 那些 完全 可 以 采用 统一 形式 描述 的 东西 给 出 的 另 一 种 表面 结构 ， 通 常 被 称 
为 语法 的 糖衣 ， 这 个 术语 源 自 Peter Landin。 与 其 他 语言 相 比 ，Lisp 程 序 员 更 少 关心 语法 的 问题 (与 此 相对 应 ， 
查看 一 下 Pascal 的 和 手册， 就 可 以 看 到 它 将 多 少 篇 幅 用 于 描述 语法 )。Lisp 对 语法 的 蓝 视 情况 ， 部 分 地 归 因 于 它 
的 灵活 性 ， 因 此 使 它 很 容易 改变 表面 的 语法 形式 。 此 外 还 源 自 对 许多 “方便 的 ”语法 结构 的 看 法 ， 认 为 那样 
做 产生 出 的 语言 更 少 统一 性 ， 在 程序 变 得 更 大 更 复杂 时 ， 最 终 带 来 的 麻烦 比 它们 的 价值 更 大 。 按 照 Alan Perlis 
的 说 法 ,“ 语 法 的 糖衣 会 导致 分 号 的 癌症 ”。 
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提供 名 字 ， 而 后 就 可 以 将 这 样 的 操作 作为 一 个 单元 使 用 了 。 
现在 我 们 要 考察 如 何 表 述 “ 平 方 ”的 想法 。 我 们 可 能 想 说 “ 求 某 个 东西 的 平方 ， 就 是 用 
它 自 身 去 乘 以 它 自身 。 在 这 个 语言 里 ， 这 件 事情 应 该 表述 为 : 


(define (square x) (* x x)) 

可 以 按 如 下 方式 理解 这 一 描述 : 

(define (square x) {* x x) ) 
f 1 1 | 4 1 
去 平方 某 个 东西 RE če m 它 自身 


这 样 我 们 就 有 了 一 个 复合 过 程 ， 给 它 取 的 名 字 是 square。 这 一 过 程 表示 的 是 将 一 个 东西 乘 以 
它 自身 的 操作 。 被 乘 的 东西 也 给 定 了 一 个 局 部 名 字 x, 它 扮 演 着 与 自然 语言 里 代词 同样 的 角色 。 
求 值 这 一 定义 的 结果 是 创建 起 一 个 复合 过 程 ， 并 将 它 关 联 于 名 字 square"。 

过 程 定义 的 一 般 形 式 是 : 

(define (<name> <formal parameters>) <body>) 
其 中 <name> 是 一 个 符号 ， 过程 定义 将 在 环境 中 关联 于 这 个 符号 。<formal parameters> (形式 参 
数 ) 是 一 些 名 字 ， 它 们 用 在 过 程 体 中 ， 用 于 表示 过 程 应 用 时 与 它们 对 应 的 各 个 实际 参数 。 
<body> 是 一 个 表达 式 ， 在 应 用 这 一 过 程 时 ， 这 一 表达 式 中 的 形式 参数 将 用 与 之 对 应 的 实际 参 
数 取 代 ， 对 这 样 取代 后 的 表达 式 的 求 值 ， 产 生出 这 个 过 程 应 用 的 值 *。<name> 和 <formal 
parameters> 被 放 在 一 对 括号 里 ， 成 为 一 组 ， 就 像 实际 调用 被 定义 过 程 时 的 写法 。 

定义 好 square 之 后 ,我们 就 可 以 使 用 它 了 : 

(square 21) 


441 


(square (+ 2 5)) 
49 


(square (square 3)) 
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我 们 还 可 以 用 square 作 为 基本 构件 去 定义 其 他 过 程 。 例 如 ， 台 十 阅 可 以 表述 为 : 
(+ (square x) (square y)) 


现在 我 们 很 容易 定义 一 个 过 程 sum-of -squares， 给 它 两 个 数 作 为 实际 参数 ， 让 它 产 生 这 两 
个 数 的 平方 和 : 


(define (sum-of-squares x y) 


(+ (square x) (square y))) 


(sum-of-squares 3 4) 
25 


可 以 看 到 ， 这 里 实际 上 组 合 了 两 个 不 同 操作 : 建立 了 一 个 过 程 ， 并 为 它 给 定 了 名 字 square。 完 全 可 能 将 这 两 
个 概念 分 离开 ， 能 够 那样 做 也 是 非常 重要 的 。 我 们 可 以 创建 一 个 过 程 但 并 不 予以 命名 ， 也 可 以 给 以 前 创建 好 
的 过 程 命 名 。 在 1.3.2 节 里 将 会 做 这 些 事情 。 

”在 本 书 里 描述 表达 式 的 语法 形式 时 , 用 尖 括 号 括 起 的 斜体 符号 〈 例 如 <name>) 表示 表达 式 中 的 一 些 “ 空 位 置 ”。 
在 实际 采用 这 种 表达 式 时 就 需要 填充 它们 。 

“更 一 般 的 情况 是 ， 过 程 体 可 以 是 一 系列 的 表达 式 。 此 时 解释 器 将 顺序 求 值 这 个 序列 中 的 各 个 表达 式 ， 并 将 最 
后 一 个 表达 式 的 值 作为 整个 过 程 应 用 的 值 并 返回 它 。 


11 程序 变 计 的 基本 元 寻 9 





现在 我 们 又 可 以 用 sum-of -squares 作 为 构件 ， 进 一 步 去 构造 其 他 过 程 : 

(define (f a) 

(sum-of-squares (+ a 1) (* a 2))) 

(£ 5) 

136 
复合 过 程 的 使 用 方式 与 基本 过 程 完 全 一 样 。 实 际 上 ， 如 果 人 们 只 看 上 面 sum-of-squares 的 定 
义 ， 根 本 就 无 法 分 辨 出 square 究 竟 是 〈 像 + 和 * 那样 ) 直接 做 在 解释 器 里 呢 ， 还 是 被 定义 为 
一 个 复合 过 程 。 


1.1.5 过 程 应 用 的 代 换 模型 


为 了 求 值 一 个 组 合式 〈 其 运算 符 是 一 个 复合 过 程 的 名 字 ) ， 解 释 器 的 工作 方式 将 完全 按照 
1.1.3 节 中 所 描述 的 那样 ， 采 用 与 以 运算 符 名 为 基本 过 程 的 组 合式 一 样 的 计算 过 程 。 也 就 是 说 ， 
解释 器 将 对 组 合式 的 各 个 元 素 求 值 ， 而 后 将 得 到 的 那个 过 程 (也 就 是 该 组 合式 里 运算 符 的 值 ) 
应 用 于 那些 实际 参数 ( 即 组 合式 里 那些 运算 对 象 的 值 )。 

我 们 可 以 假定 ， 把 基本 运算 符 应 用 于 实 参 的 机 制 已 经 在 解释 器 里 做 好 了 。 对 于 复合 过 程 ， 
过 程 应 用 的 计算 过 程 是 : 

“将 复合 过 程 应 用 于 实际 参数 ， 就 是 在 将 过 程 体 中 的 每 个 形 参 用 相应 的 实 参 取代 之 后 ， 对 

这 一 过 程 体 求 值 。 

为 了 说 明 这 种 计算 过 程 ， 让 我 们 看 看 下 面 组 合式 的 求 值 : 

(E 8) 

其 中 的 f 是 1.1.4 布 定义 的 那个 过 程 。 我 们 首先 提取 出 £ 的 体 : 

(sum-of-squares (+ a 1) (* a 2)) 

而 后 用 实际 参数 5 代 换 其 中 的 形式 参数 : 

(sum-of-squares (+ 5 1) (* 5 2)) 
这 样 ， 问 题 就 被 归 约 为 对 另 一 个 组 合式 的 求 值 ， 其 中 有 两 个 运算 对 象 ， 有 关 的 运算 符 是 sum- 
of-sgquares。 求 值 这 一 组 合式 牵涉 三 个 子 问 题 : 我 们 必须 对 其 中 的 运算 符 求 值 ， 以 便 得 到 
应 该 去 应 用 的 那个 过 程 ， 还 需要 求 值 两 个 运算 对 象 ， 以 得 到 过 程 的 实际 参数 。 这 里 的 (+5 
1) 产生 出 6，(* 5 2) 产生 出 10， 因 此 我 们 就 需要 将 sum-of -squares 过 程 用 于 6 和 10。 
用 这 两 个 值 代 换 sum-of -squares 体 中 的 形式 参数 x 和 y， 表 达 式 被 归 约 为 : 

(+ (square 6) (square 10)) 
使 用 square 的 定义 又 可 以 将 它 归 约 为 : 

(+ (* 6 6) (* 10 10)) 
通过 乘法 又 能 将 它 进 一 步 归 约 为 : 

(+ 36 100) 

最 后 得 到 : 


136 


上 面 描述 的 这 种 计算 过 程 称 为 过 程 应 用 的 代 换 模型 ， 在 考虑 本 章 至 今 所 定义 的 过 程 时 ， 
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我 们 可 以 将 它 看 作 确定 过 程 应 用 的 “意义 ”的 一 种 模型 。 但 这 里 还 需要 强调 两 点 : 
。 代 换 的 作用 只 是 为 了 帮助 我 们 领会 过 程 调用 中 的 情况 ， 而 不 是 对 解释 器 实际 工作 方式 的 
具体 描述 。 通 常 的 解释 器 都 不 采用 直接 操作 过 程 的 正文 ， 用 值 去 代 换 形式 参数 的 方式 去 
完成 对 过 程 调用 的 求 值 。 在 实际 中 ， 它 们 一 般 采 用 提供 形式 参数 的 局 部 环境 的 方式 ， 产 
生 “ 代 换 ”的 效果 。 我 们 将 在 第 3 章 和 第 4 章 考察 一 个 解释 器 的 细节 实现 ， 在 那里 更 完整 
地 讨论 这 一 问题 。 
© 随 着 本 书 讨论 的 进展 ， 我 们 将 给 出 有 关 解 释 器 如 何 工作 的 一 系列 模型 ， 一 个 比 一 个 更 精 
细 ， 并 最 终 在 第 5 章 给 出 一 个 完整 的 解释 器 和 一 个 编译 器 。 这 里 的 代 换 模型 只 是 这 些 模 
型 中 的 第 一 个 一 作为 形式 化 地 考虑 这 种 求 值 过 程 的 起 点 。 一 般 来 说 ， 在 模拟 科学 研究 
或 者 工程 中 的 现象 时 ， 我 们 总 是 从 最 简单 的 不 完全 的 模型 开始 。 随 着 更 细致 地 检查 所 考 
虑 的 问题 ， 这 些 简单 模型 也 会 变 得 越 来 越 不 合适 ， 从 而 必须 用 进一步 精 化 的 模型 取代 。 
代 换 模型 也 不 例外 。 特 别 地 ， 在 第 3 章 中 ， 我 们 将 要 讨论 将 过 程 用 于 “变化 的 数据 ”的 
问题 ， 那 时 就 会 看 到 替换 模型 完全 不 行 了 ， 必 须 用 更 复杂 的 过 程 应 用 模型 来 代替 它 '。 
应 用 序 和 正则 序 
按照 1.1.3 节 给 出 的 有 关 求 值 的 描述 ， 解 释 器 首先 对 运算 符 和 各 个 运算 对 象 求 值 ， 而 后 将 

得 到 的 过 程 应 用 于 得 到 的 实际 参数 。 然 而 ， 这 并 不 是 执行 求 值 的 唯一 可 能 方式 。 另 一 种 求 值 

模型 是 先 不 求 出 运算 对 象 的 值 ， 直 到 实际 需要 它们 的 值 时 再 去 做 。 采 用 这 种 求 值 方式 ， 我 们 

就 应 该 首先 用 运算 对 象 表达 式 去 代 换 形式 参数 ， 直 至 得 到 一 个 只 包含 基本 运算 符 的 表达 式 ， 

然后 再 去 执行 求 值 。 如 果 我 们 采用 这 一 方式 ， 对 下 面 表达 式 的 求 值 : 


(£ 5) 
将 按照 下 面 的 序列 逐步 展开 : 

(sum-of-squares (+ 5 1) (* 5 2)) 

(+ (square (+ 5 1)) (square (* 5 2)) ) 

(+ CH Ce S 1) te & yy tr ee S 2) t* & 209) 
而 后 是 下 面 归 约 : 

(+ (* 6 6) (* 10 10) ) 

(+ 36 100) 
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表达 式 的 归 约 中 ， 对 于 (+5 1) 和 (* 5 2) 的 求 值 各 做 了 两 次 : 
(* x x) 
其 中 的 x 分 别 被 代 换 为 (+5 1) 和 (* 5 2), 
这 种 “完全 展开 而 后 归 约 ”的 求 值 模 型 称 为 正则 序 求 值 ， 与 之 对 应 的 是 现在 解释 器 里 实 
际 使 用 的 “ 先 求 值 参数 而 后 应 用 ”的 方式 ， 它 称 为 应 用 序 求 值 。 可 以 证 明 ， 对 那些 可 以 通过 
5 虽然 代 换 模型 看 起 来 似乎 非常 简单 ， 但 令 人 吃惊 的 是 ， 给 出 代 换 过 程 的 严格 数学 定义 却 异 常 复杂 。 问 题 在 于 ， 
用 作 过 程 中 形式 参数 的 名 字 ， 可 能 会 与 该 过 程 可 能 应 用 的 那些 表达 式 中 的 (同样) 名 字 相 互 混 清 。 在 逻辑 和 


程序 设计 的 语义 学 文献 里 ， 关 于 代 换 的 充满 错误 的 定义 有 一 个 很 长 的 历史 。 请 参考 Stoy 1977 中 有 关 代 换 的 详 
细 讨 论 。 
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标 换 去 模拟 ， 并 能 产生 出 合法 值 的 过 程 应 用 (包括 本 书 前 两 章 中 的 所 有 过 程 )， 正 则 序 和 应 用 
序 求 值 将 产生 出 同样 的 值 (参见 练习 1.5 中 一 个 “非法 ” 值 的 例子 ， 其 中 正则 序 和 应 用 序 将 给 
出 不 同 的 结果 )。 

Lisp 采 用 应 用 序 求 值 ， 部 分 原因 在 于 这 样 做 能 避免 对 于 表达 式 的 重复 求 值 (例如 上 面 的 
(+5 1) 和 (* 5 2) 的 情况 )， 从 而 可 以 提高 一 些 效率 。 更 重要 的 是 ， 在 超出 了 可 以 采用 
标 换 方式 模拟 的 过 程 范围 之 后 ， 正 则 序 的 处 理 将 变 得 更 复杂 。 而 在 另 一 些 方面 ， 正 则 序 也 可 
以 成 为 特别 有 价值 的 工具 ， 我 们 将 在 第 3 章 和 第 4 章 研 究 它 的 某 些 内 在 性 质 “。 


1.1.6 条 件 表达 式 和 谓词 


至 此 我 们 能 定义 出 的 过 程 类 的 表达 能 力 还 非常 有 限 ， 因 为 还 没 办 法 去 做 某 些 检测 ， 而 后 
依据 检测 的 结果 去 确定 做 不 同 的 操作 。 例 如 ， 我 们 还 无 法 定义 一 个 过 程 ， 使 它 能 计算 出 一 个 
数 的 绝对 值 。 完 成 此 事 需要 先 检查 一 个 数 是 正 的 、 负 的 或 者 零 ， 而 后 依据 过 到 的 不 同情 况 ， 
按照 下 面 规则 采取 不 同 的 动作 : 

x 如 果 xr> 0 
|x|=1 0 如 果 x = 0 
-x 如 果 x<<0 


这 种 结构 称 为 一 个 分 情况 分 析 ， 在 Lisp 里 有 着 一 种 针对 这 类 分 情况 分 析 的 特殊 形式 ， 称 为 
cond (表示 “条 件 ”)。 基 使 用 形式 如 下 : 
(define (abs x) 
(cond ((> x 0) x) 
(t= a0 0) 0) 
(le x 0) (= x)))) 
条 件 表达 式 的 一 般 性 形式 为 : 
(cond (<p> <el>) 


(<P2> <e2>) 


(<p> <@,>) ) 


这 里 首先 包含 了 一 个 符号 cond， 在 它 之 后 跟着 一 些 称 为 子 负 的 用 括号 括 起 的 表达 式 对 侦 
(<p> <e>)。 在 每 个 对 偶 中 的 第 一 个 表达 式 是 一 个 谓词 ， 也 就 是 说 ， 这 是 一 个 表达 式 ， 它 的 
值 将 被 解释 为 真 或 者 假 ”。 

条 件 表达 式 的 求 值 方式 如 下 : 首先 求 值 谓 词 <m> ， 如 果 它 的 值 是 Ealse， 那 么 就 去 求 值 
<p;>， 如 果 <p2> 的 值 是 false 就 去 求 值 <zp3>。 这 一 过 程 将 继续 做 下 去 ， 直 到 发 现 了 某 个 谓词 
的 值 为 真 为 止 。 此 时 解释 器 就 返回 相应 子 句 中 的 序列 表达 式 <e> 的 值 ， 以 这 个 值 作为 整个 条 件 
表达 式 的 值 。 如 果 无 法 找到 值 为 真 的 <p> ，cond 的 值 就 没有 定义 。 


1 第 3 章 将 引进 流 处 理 的 概念 ， 这 是 一 种 采用 了 正则 序 的 受 限 形式 去 处 理 明 显 的 “无 限 ” 数 据 结 构 的 方式 。 在 
4.2 节 将 修改 Scheme 解释 器 ， 做 出 Scheme 的 一 种 采用 正则 序 求 值 的 变形 。 

“解释 为 真 或 者 假 ” 的 意思 如 下 : 在 Scheme 里 存在 这 两 个 特殊 的 值 ， 它 们 分 别 用 常量 #t 和 林 表示 。 当 解释 器 
检查 一 个 谓词 的 值 时 ， 它 将 村 解释 为 假 ， 而 将 所 有 其 他 的 值 都 作为 真 ( 这 样 ， 提 供 林 在 逻辑 上 就 是 不 必要 的 ， 
只 是 为 了 方便 )。 在 本 书 中 将 使 用 true 和 false， 令 它们 分 别 关 联 于 失 和 #。 
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我 们 用 术语 谓词 指 那些 返回 真 或 假 的 过 程 ， 也 指 那 种 能 求 出 真 或 者 假 的 值 的 表达 式 。 求 
绝对 值 的 过 程 abps 使 用 了 基本 谓词 >、< 和 =*“， 这 儿 个 谓词 都 以 两 个 数 为 参数 ,分别 检 查 第 
一 个 数 是 否 大 于 、 小 于 或 者 等 于 第 二 个 数 ， 并 据 此 分 别 返 回 真 或 者 假 。 

写 绝 对 值 函 数 的 另 一 种 方式 是 : 

(define (abs x) 

(cond ((< x 0) (- x)) 
(else x))) 
用 自然 语言 来 说 ， 就 是 “如 果 x 小 于 0 就 返回 一 x*， 否 则 就 返回 x”。else 是 一 个 特殊 符号 ， 可 
以 用 在 cond 的 最 后 一 个 子 句 中 <p> 的 位 置 , 这 样 做 时 , 如 果 该 cond 前 面 的 所 有 子 句 都 被 跳 过 ， 
它 就 会 返回 最 后 子 句 中 <e> 的 值 。 事 实 上 ， 所 有 永远 都 求 出 真 值 的 表达 式 都 可 以 用 在 这 个 <p> 
的 位 置 上 。 
下 面 是 又 一 种 写 绝对 值 函数 的 方式 : 
(define (abs x) 
(LE (< x 0) 
C= 3) 
x)) 
这 里 采用 的 是 特殊 形式 if， 它 是 条 件 表达 式 的 一 种 受 限 形式 ， 适 用 于 分 情况 分 析 中 只 有 两 个 
情况 的 需要 。if 表 达 式 的 一 般 形式 是 : 

(if <predicate> <consequent> <alternative>) 

在 求 值 一 个 if 表达 式 时 ， 解 释 器 从 求 值 其 <predicare> 部 分 开始 ， 如 果 <predicate> 得 到 真 值 ， 
解释 器 就 去 求 值 <consequent> 并 返回 其 值 ， 否 则 它 就 去 求 值 <alternative> 并 返回 其 值 ”。 

除了 一 批 基本 谓词 如 <、= 和 > 之 外 ， 还 有 一 些 逻 辑 复 合 运算 符 ， 利 用 它们 可 以 构造 出 各 
种 复合 谓词 。 最 常用 的 三 个 复合 运算 符 是 : 

e (and <e> ... <e,>) 

解释 器 将 从 左 到 右 一 个 个 地 求 值 <e>， 如 果 某 个 <e> 求 值得 到 假 ， 这 一 and 表 达 式 的 值 就 
是 假 ， 后 面 的 那些 <e> 也 不 再 求 值 了 。 如 果 前 面 所 有 的 <e> 都 求 出 真 值 ， 这 一 and 表 达 式 的 值 
就 是 最 后 那个 <e> 的 值 。 

e (or <e@;> ... <é,>) 

解释 器 将 从 左 到 右 一 个 个 地 求 值 <e> ， 如 果 某 个 <e> 求 值得 到 真 ，or 表 达 式 就 以 这 个 表达 
式 的 值 作 为 值 ， 后 面 的 那些 <e> 也 不 再 求 值 了 。 如 果 所 有 的 <e> 都 求 出 假 值 ， 这 一 or 表达 式 的 
值 就 是 假 。 

e (not <e>) 

如 果 <e> 求 出 的 值 是 假 ，noet 表 达 式 的 值 就 是 真 ， 否则 其 值 为 假 。 

注意 ，and 和 or 都 是 特殊 形式 而 不 是 普通 的 过 程 ， 因 为 它们 的 子 表达 式 不 一 定 都 求 值 。 
not 则 是 一 个 普通 的 过 程 。 

作为 使 用 这 些 逻 辑 复 合 运算 符 的 例子 ， 数 x 的 值 位 于 区 间 5 <x < 10 之 中 的 条 件 可 以 写 为 : 


abs 还 用 到 负 号 运算 符 “ 一”"， 这 个 运算 符 作 用 于 一 个 对 象 时 (例如 写 (一 x))， 表 示 求 出 其 负 值 。 

在 if£ 和 cond 之 间 的 另 一 个 小 差异 是 每 个 cond 子 名 的 <e> 部 分 可 以 是 一 个 表达 式 的 序列 ， 如 果 对 应 的 <p> 确 定 
为 真 ，<e> 中 的 表达 式 就 会 顺序 地 求 值 ， 并 将 其 中 最 后 一 个 表达 式 的 值 作 为 整个 cond 的 值 返回 。 而 在 if 表达 
式 里 ，<consequent> 和 <alternative> 都 只 能 是 单个 表达 式 。 
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(and (> x 5) (< x 10)) 


作为 另 一 个 例子 ， 下 面 定 义 了 一 个 谓词 ， 它 检测 某 个 数 是 否 大 于 或 者 等 于 另 一 个 数 : 
(define (>= x y) 
(or (> x y) (= x y))) 


或 者 也 可 以 定义 为 : 
(define (>= x y) 
(not (< x y))) 


练习 1.1 下 面 是 一 系列 表达 式 ， 对 于 每 个 表达 式 ， 解 释 器 将 输出 什么 结果 ?假定 这 一 系 
列表 达 式 是 按照 给 出 的 顺序 逐个 求 值 的 。 

10 

(+ 5 3 4) 

(- 91) 

(/ 6 2) 

(+ (* 2 4) (- 4 6)) 

(define a 3) 

(define b (+ a 1)) 

(+ ab (* a b)) 

(= a b) 


(if (and (> b a) (< b (* a b))) 


b 
a) 
(cond ((= a 4) 6) 
((= b 4) (+ 6 7 a)) 
(else 25)) 


(+ 2 (if (> b a) Ð a) 


(* (cond ((> a b) a) 
((< a b) b) 
(else -1)) 
(+ a 1)) 


练习 1.2 请 将 下 面 表达 式 变换 为 前 组 形式 : 


s+44(2-(3-6+5)] 
3(6 —2)(2—7) 
练习 1.3 请 定义 一 个 过 程 ， 它 以 三 个 数 为 参数 ， 返 回 其 中 较 大 的 两 个 数 之 和 。 
练习 1.4 ”请 仔细 考察 上 面 给 出 的 允许 运算 符 为 复合 表达 式 的 组 合式 的 求 值 模型 ， 根 据 对 这 
一 模型 的 认识 描述 下 面 过程 的 行为 : 
(define (a-plus-abs-b a b) 
((if (> b O) + -) a b)) 


练习 1.5 Ben Bitdiddle 发 明了 一 种 检测 方法 ， 能 够 确定 解释 器 究竟 采用 哪 种 序 求 值 ， 是 
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采用 应 用 序 ， 还 是 采用 正则 序 。 他 定义 了 下 面 两 个 过 程 : 
(define (p) (p)) 
(define (test x y) 
(if (= x 0) 
0 
Y) ) 
而 后 他 求 值 下 面 的 表达 式 : 
(test 0 (p)) 
如 果 某 个 解释 器 采用 的 是 应 用 序 求 值 , Ben 会 看 到 什么 样 的 情况 ? 如 果 解 释 器 采用 正则 序 求 值 ， 
他 又 会 看 到 什么 情况 ?请 对 你 的 回答 做 出 解释 。( 无 论 采 用 正则 序 或 者 应 用 序 ， 假定 特殊 形式 
if 的 求 值 规则 总 是 一 样 的 。 其 中 的 谓词 部 分 先行 求 值 ， 根 据 其 结果 确定 随后 求 值 的 子 表达 式 
部 分 。) 


1.1.7 实例 : 采用 牛顿 法 求 平方 根 


上 面 介绍 的 过 程 都 很 像 常 规 的 数学 国 数 ， 它 们 描述 的 是 如 何 根据 一 个 或 者 几 个 参数 去 确 
定 一 个 值 。 然 而 ， 在 数学 的 函数 和 计算 机 的 过 程 之 间 有 一 个 重要 差异 ， 那 就 是 ， 这 一 过 程 还 
必须 是 有 效 可 行 的 。 

作为 目前 情况 下 的 一 个 实例 ， 现 在 我 们 来 考虑 求 平方 根 的 问题 。 我 们 可 以 将 平方 根 函 数 
定义 为 : 

Vx 二 那样 的 y， 使 得 之 0 而 且 y? 二 x 
这 就 描述 出 了 一 个 完全 正统 的 数学 函数 ， 我 们 可 以 利用 它 去 判断 某 个 数 是 否 为 男 一 个 数 的 平 
方 根 ， 或 根据 上 面 叙 述 ， 推 导出 一 些 有 关 平 方 根 的 一 般 性 事实 。 然 而 ， 另 一 方面 ， 这 一 定义 
并 没有 描述 一 个 计算 过 程 ， 因 为 它 确实 没有 告诉 我 们 ， 在 给 定 了 一 个 数 之 后 ， 如 何 实 际 地 找 
到 这 个 数 的 平方 根 。 即 使 将 这 个 定义 用 类 似 Lisp 的 形式 重 写 一 遍 也 完全 无 济 于 事 : 

(define (sqrt x) 

(the y (and (>= y 0) 
(= (square y) x)))) 

这 只 不 过 是 重新 提出 了 原来 的 问题 。 

图 数 与 过 程 之 间 的 矛盾 ， 不 过 是 在 描述 一 件 事情 的 特征 ， 与 描述 如 何 去 做 这 件 事情 之 间 
的 普遍 性 差异 的 一 个 具体 反映 。 换 一 种 说 法 ， 人 们 有 时 也 将 它 说 成 是 说 明 性 的 知识 与 行动 性 
的 知识 之 间 的 差异 。 在 数学 里 ， 人 们 通常 关心 的 是 说 明 性 的 描述 (是 什么 )， 而 在 计算 机 科学 
里 ， 人 们 则 通常 关心 行动 性 的 描述 (怎么 做 ) °°. 

计算 机 如 何 算出 平方 根 呢 ? 最 常用 的 就 是 牛顿 的 逐步 逼近 方法 。 这 一 方法 告诉 我 们 ， 如 


”说 明 性 描述 和 行动 性 描述 有 着 内 在 的 联系 ， 就 像 数 学 和 计算 机 科学 有 着 内 在 联系 一 样 。 举 个 例子 ， 说 一 个 程 
序 产生 的 结果 “正确 "， 就 是 给 出 了 一 个 有 关 该 程序 性 质 的 说 明 性 语句 。 存 在 着 大 量 的 研究 工作 ， 其 目标 就 是 
创建 起 一 些 技术 ， 设 法 证 明 一 个 程序 是 正确 的 。 在 这 一 领域 中 有 许多 技术 性 困难 ， 究 其 根源 ， 都 出 自 需 要 在 
行动 性 语句 (程序 是 由 它们 构造 起 来 的 ) 和 说 明 性 语句 (它们 可 以 用 于 推导 出 某 些 结果 ) 之 间 转 来 转 去 。 在 
与 此 相关 的 研究 分 支 里 ， 有 一 个 当前 在 程序 设计 语言 设计 领域 中 很 重要 的 问题 ， 那 就 是 所 谓 的 其 高 级 语言 ， 
在 这 种 语言 里 编程 就 是 写 说 明 性 的 语句 。 这 里 的 想法 是 将 解释 器 做 得 足够 复杂 ， 程 序 员 描 述 了 需要 “做 什么 ” 
的 知识 之 后 ， 这 种 解释 器 就 能 自动 产生 出 “怎样 做 ”的 知识 。 一 般 而 言 这 是 不 可 能 做 到 的 ， 但 在 这 一 领域 已 
经 取得 了 巨大 进步 。 第 4 章 我 们 将 再 来 考虑 这 一 想法 。 
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果 对 x 的 平方 根 的 值 有 了 一 个 猜测 y， 那 么 就 可 以 通过 执行 一 个 简单 操作 去 得 到 一 个 更 好 的 猪 
测 : 只 需要 求 出 y 和 x/y 的 平均 值 ( 它 更 接近 实际 的 平方 根 值 ) ”。 例 如 ， 可 以 用 这 种 方式 去 计 
算 2 的 平方 根 ， 假 定 初始 值 是 1: 








猜测 商 平均 值 
1 222 CHD ye 
1 2 
1.5 车 =13333 3333415) _1 4167 
1.4167 2 =1.4118 GRIST ELATIS) i aia? 
1.4167 
P4143. .2.. 


继续 这 一 计算 过 程 ， 我 们 就 能 得 到 对 2 的 平方 根 的 越 来 越 好 的 近似 值 。 

现在 ， 让 我 们 设法 用 过 程 的 语言 来 描述 这 一 计算 过 程 。 开 始 时 ， 我 们 有 了 被 开 方 数 的 值 
(现在 需要 做 的 就 是 算出 它 的 平方 根 ) 和 一 个 猜测 值 。 如 果 猜 测 值 已 经 足够 好 了 ， 有 关 工 作 也 
就 完成 了 。 如 若 不 然 ， 那 么 就 需要 重复 上 述 计算 过 程 去 改进 猜测 值 。 我 们 可 以 将 这 一 基本 策 
略 写成 下 面 的 过 程 : 

(define (sqrt-iter guess x) 

(if (good-enough? guess x) 
guess 


(sqrt-iter (improve guess x) 
x))) 


改进 猜测 的 方式 就 是 求 出 它 与 被 开 方 数 除 以 上 一 个 猜测 的 平均 值 : 
(define (improve guess x) 


(average guess (/ x guess))) 
其 中 
(define (average x y) 
(/ (+ x y) 2)) 


我 们 还 必须 说 明 什 么 叫 作 “足够 好 ”。 下 面 的 做 法 只 是 为 了 说 明 问 题 ， 它 确实 不 是 一 个 很 好 的 
检测 方法 (参见 练习 1.7)。 这 里 的 想法 是 ， 不 断 改 进 答案 直至 它 足够 接近 平方 根 ， 使 得 其 平 
方 与 被 开 方 数 之 差 小 于 某 个 事先 确定 的 误差 值 ( 这 里 用 的 是 0.001) ”: 


(define (good-enough? guess x) 


(< (abs (- (square guess) x)) 0.001)) 
最 后 还 需要 一 种 方式 来 启动 整个 工作 。 例 如 ， 我 们 可 以 总 用 1 作为 对 任何 数 的 初始 猜测 值 ”; 


a 这 一 平方 根 算法 实际 上 是 牛顿 法 的 一 个 特例 ， 牛 顿 法 是 一 种 寻找 方程 的 根 的 通用 技术 。 平 方 根 算法 本 身 是 由 
亚历山大 的 Heron 在 公元 一 世纪 提出 的 。 我 们 将 在 1.3.4 节 看 到 如 何 用 Lisp 描 述 一 般 性 的 牛顿 法 。 

2 我 们 将 在 谓词 名 字 的 最 后 用 一 个 问号 ， 以 帮 人 注意 到 它们 是 谓词 。 这 不 过 是 一 种 风格 上 的 约定 。 对 于 解释 器 
而 言 ， 问 号 也 就 是 一 个 普通 的 字符 。 

3 请 注意 ， 这 里 所 用 的 初始 猜测 是 1.0 而 不 是 1。 在 许多 Lisp 实 现 中 ， 这 样 做 并 不 会 造成 任何 不 同 。MIT Scheme 
区 分 了 精确 的 整数 和 十 进 制 数值 ， 两 个 整数 的 商 是 一 个 有 理 数 而 不 是 十 进 制 数值 。 例 如 ， 用 6 去 除 10 将 得 到 
5/3， 而 用 6.0 去 除 10.0 得 到 的 是 1.6666666666666667 (我 们 将 在 2.1.1 节 学 习 怎 样 实现 有 理 数 的 算术 运算 )。 如 
果 我 们 用 1 作为 平方 根 程序 的 初始 猜测 ，x 就 会 是 一 个 精确 的 整数 ， 随 后 在 平方 根 过 程 里 算出 的 所 有 值 都 将 是 
有 理 数 而 不 是 十 进 制 数值 。 对 有 理 数 和 十 进 制 数值 的 混合 运算 总 是 产生 十 进 制 数值 。 所 以 ， 开 始 时 采用 初始 
猜测 1.0， 将 迫使 随后 的 所 有 结果 都 得 到 十 进 制 的 数值 。 
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(define (sqrt x) 
(sqrt-iter 1.0 x)) 
如 果 把 这 些 定义 都 送 给 解释 器 ， 我 们 就 可 以 使 用 sqrt 了 ， 就 像 可 以 使 用 其 他 过 程 一 样 : 
(sqrt 9) 
3.00009155413138 


(sqrt (+ 100 37)) 
11.704699917758145 


(sqrt (+ (sqrt 2) (sqrt 3))) 
1.7739279023207892 


(square (sqrt 1000) ) 

1000.000369924366 

这 个 sqrt 程 序 也 说 明 ， 在 用 于 写 纯 粹 的 数值 计算 程序 时 ， 至 今 已 介绍 的 简单 程序 设计 语 
言 已 经 足以 写 出 可 以 在 其 他 语言 (例如 C 或 者 Pascal) 中 写 出 的 任何 东西 了 。 这 看 起 来 很 让 人 
吃惊 ， 因 为 这 一 语言 中 甚至 还 没有 包括 任何 迭代 结构 (循环 )， 它 们 用 于 指挥 计算 机 去 一 遍 遍 
地 做 某 些 事情 。 而 另 一 方面 ，sqrt-iter 展 示 了 如 何不 用 特殊 的 迭代 结构 来 实现 迭代 ， 其 中 
只 需要 使 用 常规 的 过 程 调用 能 力 ”。 

练习 1.6 Alyssa P. Hacker 看 不 出 为 什么 需要 将 if 提供 为 一 种 特殊 形式 ， 她 问 :“ 为 什么 
我 不 能 直接 通过 cond 将 它 定义 为 一 个 常规 过 程 呢 ? ”Alyssa 的 朋友 Eva Lu Ator 断 言 确实 可 以 
这 样 做 ， 并 定义 了 if 的 一 个 新 版 本 : 


(define (new-if predicate then-clause else-clause) 
(cond (predicate then-clause) 


(else else-clause) ) ) 

Eva 给 Alyssa 演 示 她 的 程序 : 

(new-if (= 2 3) 0 5) 

5 

(new-if (= 11) 0 5) 

0 
她 很 高 兴 地 用 自己 的 new-if 重 写 了 求 平方 根 的 程序 : 

(define (sqrt-iter guess x) 

(new-if (good-enough? guess x) 
guess 


(sqrt-iter (improve guess x) 


x))) 

当 Alyssa 试 着 用 这 个 过 程 去 计算 平方 根 时 会 发 生 什么 事情 呢 ? 请 给 出 解释 。 

练习 1.7 对 于 确定 很 小 的 数 的 平方 根 而 言 ， 在 计算 平方 根 中 使 用 的 检测 good-enough? 
是 很 不 好 的 。 还 有 ， 在 现实 的 计算 机 里 ， 算 术 运 算 总 是 以 一 定 的 有 限 精 度 进行 的 。 这 也 会 使 
我 们 的 检测 不 适合 非常 大 的 数 的 计算 。 请 解释 上 述 论断 ， 用 例子 说 明 对 很 小 和 很 大 的 数 ， 这 
种 检测 都 可 能 失败 。 实 现 good-enough? 的 另 一 种 策略 是 监视 猜测 值 在 从 一 次 迭代 到 下 一 次 
的 变化 情况 ， 当 改变 值 相对 于 猜测 值 的 比率 很 小 时 就 结束 。 请 设计 一 个 采用 这 种 终止 测试 方 
式 的 平方 根 过 程 。 对 于 很 大 和 很 小 的 数 ， 这 一 方式 都 能 工作 吗 ? 


4 关心 通 过 过 程 调 用 来 实现 迭代 时 的 效率 问题 的 读者 ， 可 以 去 看 1.2.1 节 里 有 关 “ 尾 递归 ”的 说 明 。 
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练习 1.8 求 立方 根 的 牛顿 法 基于 如 下 事实 ， 如 果 y 是 x 的 立方 根 的 一 个 近似 值 ， 那 么 下 式 
将 给 出 一 个 更 好 的 近似 值 : 
Xx/y +2y 
3 
请 利用 这 一 公式 实现 一 个 类 似 平方 根 过 程 的 求 立 方 根 的 过 程 。( 在 1.3.4 节 里 ， 我 们 将 看 到 如 何 
实现 一 般 性 的 牛顿 法 ， 作 为 这 些 求 平方根 和 立方 根 过 程 的 抽象 。) 


1.1.8 过程 作为 黑箱 抽象 


sqrt 是 我 们 用 一 组 手工 定义 的 过 程 来 实现 一 个 计算 过 程 的 第 一 个 例子 。 请 注意 ， 在 这 里 
sqrt-iter 的 定义 是 递归 的 ， 也 就 是 说 ， 这 一 过 程 的 定义 基于 它 自身 。 能 够 基于 一 个 过 程 自 
身 来 定义 它 的 想法 很 可 能 会 令 人 感到 不 安 ， 人 们 可 能 觉得 它 不 够 清晰 ， 这 种 “循环 ”定义 怎 
么 能 有 意义 呢 ? 是 不 是 完全 刻画 了 一 个 能 够 由 计算 机 实现 的 计算 过 程 呢 ? 在 1.2 节 里 ， 我 们 将 
更 细致 地 讨论 这 一 问题 。 现 在 首先 来 看 看 sqrt 实 例 所 显示 出 的 其 他 一 些 要 点 。 

可 以 看 到 ， 对 于 平方 根 的 计算 问题 可 以 自然 地 分 解 为 若干 子 问题 : 怎样 说 一 个 猜测 是 足 
够 好 了 ， 怎 样 去 改进 一 个 猜测 ， 等 等 。 这 些 工 作 中 的 每 一 个 都 通过 一 个 独立 的 过 程 完成 ， 整 
个 sqrt 程 序 可 以 看 作 一 族 过 程 (如 图 1-2 所 示 )， 它 们 直接 反映 了 从 原 问题 到 子 问题 的 分 解 。 


sqrt 





sqrt-iter 


AN 





good-enough improve 
square abs average 


图 1-2 sqrt 程 序 的 过 程 分 解 


这 一 分 解 的 重要 性 ， 并 不 仅仅 在 于 它 将 一 个 问题 分 解 成 了 几 个 部 分 。 当 然 ， 我 们 总 可 以 
拿 来 一 个 大 程序 ， 并 将 它 分 割 成 车 干部 分 一 一 最 前 面 10 行 、 后 面 10 行 、 再 后 面 10 行 等 等 。 这 
里 最 关键 的 问题 是 ， 分 解 中 的 每 一 个 过 程 完成 了 一 件 可 以 清楚 标明 的 工作 ， 这 使 它们 可 以 被 
用 作 定 义 其 他 过 程 的 模块 。 例 如 ， 当 我 们 基于 square 定 义 过 程 good-enough? 之 时 ， 就 是 
将 square 看 作 一 个 “黑箱 ”。 在 这 样 做 时 ， 我 们 根本 无 须 关 注 这 个 过 程 是 如 何 计算 出 它 的 结 
果 的 ， 只 需要 注意 它 能 计算 出 平方 值 的 事实 。 关 于 平方 是 如 何 计 算 的 细节 被 隐 去 不 提 了 ， 可 
以 推迟 到 后 来 再 考虑 。 情 况 确实 如 此 ， 如 果 只 看 good-enough? 过 程 ， 与 其 说 square 是 一 
个 过 程 ， 不 如 说 它 是 一 个 过 程 的 抽象 ， 即 所 谓 的 过 程 拍 和 象 。 在 这 一 抽象 层次 上 ， 任 何 能 计算 
出 平方 的 过 程 都 同样 可 以 用 。 

这 样 ， 如 果 我 们 只 考虑 返回 值 ， 那 么 下 面 这 两 个 求 平 方 的 过 程 就 是 不 可 区 分 的 。 它 们 中 
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的 每 一 个 都 取 一 个 数值 参数 ， 产 生出 这 个 数 的 平方 作为 值 ”。 
(define (square x) (* x x)) 
(define (square x) 


(exp (double (log x)))) 

(define (double x) (+ x x)) 

由 此 可 见 ， 一 个 过 程 定义 应 该 能 隐藏 起 一 些 细节 。 这 将 使 过 程 的 使 用 者 可 能 不 必 自 己 去 
写 这 些 过 程 ， 而 是 从 其 他 程序 员 那 里 作为 一 个 黑箱 而 接受 了 它 。 用 户 在 使 用 一 个 过 程 时 ， 应 
该 不 需要 去 弄 清 它 是 如 何 实现 的 。 

局 部 名 

过 程 用 户 不 必 去 关心 的 实现 细节 之 一 ， 就 是 在 有 关 的 过 程 里 面 形式 参数 的 名 字 ， 这 是 由 
实现 者 所 选用 的 。 也 就 是 说 ， 下 面 两 个 过 程 定义 应 该 是 无 法 区 分 的 : 

(define (square x) (* x x)) 


(define (square y) (* y y)) 


这 一 原则 (过 程 的 意义 应 该 不 依赖 于 其 作者 为 形式 参数 所 选用 的 名 字 ) 从 表面 看 起 来 很 明显 ， 
但 其 影响 却 非 常 深远 。 最 直接 的 影响 是 ， 过 程 的 形式 参数 名 必须 局 部 于 有 关 的 过 程 体 。 例 如 ， 
我 们 在 前 面 平方 根 程序 中 的 good-enough? 定 义 里 使 用 了 square: 


(define (good-enough? guess x) 
(< (abs (- (square guess) x)) 0.001)) 


good-enough? 作 者 的 意图 就 是 要 去 确定 ， 函 数 的 第 一 个 参数 的 平方 是 否 位 于 第 二 个 参数 附 
近 一 定 的 误差 范围 内 。 可 以 看 到 ，good-enough? 的 作者 用 名 字 guess 表 示 其 第 一 个 参数 ， 
用 x 表示 第 二 个 参数 ， 而 送 给 square 的 实际 参数 就 是 guess。 如 果 square 的 作者 也 用 x (上 
面 确 实 如 此 ) 表示 和 参数， 那么 就 可 以 明显 看 出 ，good-enough? 里 的 x 必须 与 square 里 的 那 
个 x 不 同 。 在 过 程 square 运 行 时 ， 绝 不 应 该 影响 good-enough? 里 所 用 的 那个 x 的 值 ， 因 为 
在 square 完 成 计算 之 后 ，good-enough? 里 可 能 还 需要 用 x 的 值 。 

如 果 参 数 不 是 它们 所 在 的 过 程 体 里 局 部 的 东西 ， 那 么 square 里 的 x 就 会 与 good- 
enough? 里 的 参数 x 相 混 淆 。 如 果 这 样 ，good-enough? 的 行为 方式 就 将 依赖 于 我 们 所 用 的 
square 的 不 同 版 本 。 这 样 ，square 也 就 不 是 我 们 所 希望 的 黑箱 了 。 

过 程 的 形式 参数 在 过 程 体 里 扮演 着 一 种 非常 特殊 的 角色 ， 在 这 里 ， 形 式 参数 的 具体 名 字 
是 什么 ， 其 实 完全 没有 关系 。 这 样 的 名 字 称 为 约束 变量 ， 因 此 我 们 说 ， 一 个 过 程 的 定义 约束 
了 它 的 所 有 形式 参数 。 如 果 在 一 个 完整 的 过 程 定 义 里 将 某 个 约束 变量 统一 换 名 ， 这 一 过 程 定 
义 的 意义 将 不 会 有 任何 改变 *。 如 果 一 个 变量 不 是 被 约束 的 ， 我们 就 称 它 为 自由 的 。 一 个 名 字 
的 定义 被 约束 于 的 那 一 集 表 达 式 称 为 这 个 名 字 的 作用 域 。 在 一 个 过 程 定义 里 ， 被 声明 为 这 个 
过 程 的 形式 参数 的 那些 约束 变量 ， 就 以 这 个 过 程 的 体 作为 它们 的 作用 域 。 

在 上 面 good-enough? 的 定义 中 ，guess 和 x 是 约束 变量 ,而 <、-、abs 和 square 则 
是 自由 的 。 要 想 保证 good-enough? 的 意义 与 我 们 对 guess 和 x 的 名 字 选 择 无 关 ， 只 要 求 它 

”3 至 于 这 两 个 过 程 中 哪 一 个 实现 更 有 效 ， 这 一 问题 并 不 很 明确 ， 依 赖 于 所 使 用 的 硬件 。 确 实 存 在 这 样 的 机 器 ， 

对 于 它们 ， 其 中 那个 “最 明显 的 ”实现 效率 更 低 一 些 。 例 如 ， 考 虑 一 种 机 器 ， 它 有 一 些 范 围 很 广 的 对 数 和 反 
对 数 表 ， 以 某 种 非常 有 效 的 方式 存放 着 。 
* 统 一 换 名 的 概念 实际 上 也 是 很 微妙 的 ， 很 难 形式 地 定义 好 。 一 些 著 名 的 逻辑 学 家 也 在 这 里 犯 过 错误 。 
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们 的 名 字 与 <、- 、abs 和 square 都 不 同 就 可 以 了 (如果 将 guess 重 新 命名 为 abs ， 我 们 就 会 
因为 捕获 了 变量 名 abs 而 引进 了 一 个 错误 ， 因 为 这 样 做 就 把 一 个 原本 自由 的 名 字 变 成 约束 的 
了 )。good-enough? 的 意义 当然 与 其 中 的 自由 变量 有 关 ， 显然 它 的 意义 依赖 于 (在 这 一 定 
义 之 外 的 ) 一 些 事实 : 要 求 符号 abs 是 一 个 过 程 的 名 字 ， 该 过 程 能 求 出 一 个 数 的 绝对 值 。 如 
果 我 们 将 good-enough? 的 定义 里 的 abs 换 成 cos， 它 计算 出 的 就 会 是 另 一 个 不 同 函数 了 。 

内 部 定义 和 块 结构 

至 今 我 们 才 仅仅 分 离 出 了 一 种 可 用 的 名 字 : 过 程 的 形式 参数 是 相应 过 程 体 里 的 局 部 名 字 。 
平方 根 程序 还 展现 出 了 另 一 种 情况 ， 我 们 也 会 希望 能 控制 其 中 的 名 字 使 用 。 现 在 这 个 程序 由 
几 个 相互 分 离 的 过 程 组 成 : 

(define (sqrt x) 

(sqrt-iter 1.0 x)) 


(define (sqrt-iter guess x) 
(if (good-enough? guess x) 
guess 


(sqrt-iter (improve guess x) x))) 
(define (good-enough? guess x) 


(< (abs (- (square guess) x)) 0.001)) 


(define (improve guess x) 
(average guess (/ x guess) )) 
问题 是 ， 在 这 个 程序 里 只 有 一 个 过 程 对 用 户 是 重要 的 ， 那 就 是 ， 这 里 所 定义 的 sqrt 确 实 是 
sqrt。 其 他 的 过 程 (sqrt-iter、good-enough? 和 improve) 则 只 会 干扰 他 们 的 思维 ， 
因为 他 们 再 也 不 能 定义 另 一 个 称 为 good-enough? 的 过 程 ， 作 为 需要 与 平方 根 程 序 一 起 使 用 
的 其 他 程序 的 一 部 分 了， 因为 现在 sqrt 需 要 它 。 在 许多 程序 员 一 起 构造 大 系统 的 时 候 ， 这 一 
问题 将 会 变 得 非常 严重 。 举 例 来 说 ， 在 构造 一 个 大 型 的 数值 过 程 库 时 ， 许 多 数值 函数 都 需要 
计算 出 一 系列 的 近似 值 ， 因 此 我 们 就 可 能 希望 有 一 些 名 字 为 good-enough? 和 improve 的 过 
程 作为 其 中 的 辅助 过 程 。 由 于 这 些 情况 ， 我 们 也 希望 将 这 个 种 子 过 程 局 部 化 ， 将 它们 隐藏 到 
sGrt 里 面 ， 以 使 sgqzt 可 以 与 其 他 采用 逐步 逼近 的 过 程 共存 ， 让 它们 中 的 每 一 个 都 有 自己 的 
good-enough? 过 程 。 为 了 使 这 一 方式 成 为 可 能 ， 我 们 要 允许 一 个 过 程 里 带 有 一 些 内 部 定义 ， 
使 它们 是 局 部 于 这 一 过 程 的 。 例 如 ， 在 解决 平方 根 问 题 时 ， 我 们 可 以 写 : 
(define (sqrt x) 
(define (good-enough? guess x) 
(< (abs (- (square guess) x)) 0.001)) 
(define (improve guess x) 
(average guess (/ x guess) )) 
(define (sqrt-iter guess x) 
(if (good-enough? guess x) 
guess 
(sqrt-iter (improve guess x) x))) 


(sqrt-iter 1.0 x)) 


这 种 徐 套 的 定义 称 为 块 结构 ， 它 是 最 简单 的 名 字 包 装 问 题 的 一 种 正确 解决 方式 。 实 际 上 ， 
在 这 里 还 汶 藏 着 一 个 很 好 的 想法 。 除 了 可 以 将 所 用 的 辅助 过 程 定义 放 到 内 部 ， 我 们 还 可 能 简 
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化 它们 。 因 为 x 在 sqrt 的 定义 中 是 受 约束 的 ， 过程 good-enough?、improve 和 sqrt- 
iter 也 都 定义 在 sqrt 里 面 ， 也 就 是 说 ， 都 在 x 的 定义 域 里 。 这 样 ， 显 式 地 将 x 在 这 些 过 程 之 
间 传 来 传 去 也 就 没有 必要 了 。 我 们 可 以 让 x 作为 内 部 定义 中 的 自由 变量 ， 如 下 所 示 。 这 样 ， 在 
外 围 的 sqrt 被 调用 时 ，x 由 实际 参数 得 到 自己 的 值 。 这 种 方式 称 为 词法 作用 域 ”。 
(define (sqrt x) 
(define (good-enough? guess) 
(< (abs (- (square guess) x)) 0.001) ) 
(define (improve guess) 
(average guess (/ x guess) )) 
(define (sqrt-iter guess) 
(if (good-enough? guess) 
guess 
(sqrt-iter (improve guess) )) ) 
(sqrt-iter 1.0)) 


下 面 将 广泛 使 用 这 种 块 结构 ， 以 帮助 我 们 将 大 程序 分 解 成 一 些 容易 把 握 的 片段 ”*。 块 结 
的 思想 来 自 程序 设计 语言 Algol 60， 这 种 结构 出 现在 各 种 最 新 的 程序 设计 语言 里 ， 是 帮助 我 们 
组 织 大 程序 的 结构 的 一 种 重要 工具 。 


1.2 过 程 及 其 产生 的 计算 


我 们 现在 已 经 考虑 了 程序 设计 中 的 一 些 要 素 : 使 用 过 许多 基本 的 算术 操作 ， 对 操作 进行 
组 合 ， 通 过 定义 各 种 复合 过 程 ， 对 复合 操作 进行 抽象 。 但 是 ， 即 使 是 知道 了 这 些 ， 我 们 还 不 
能 说 自己 已 经 理解 了 如 何 去 编 程序 。 我 们 现在 的 情况 就 像 是 在 学 下 象棋 的 过 程 中 的 一 个 阶段 ， 
此 时 已 经 知道 了 移动 棋子 的 各 种 规则 ， 但 却 还 不 知道 典型 的 开局 、 战 术 和 策略 。 就 像 初 学 象 
棋 的 人 们 那样 ， 我 们 还 不 知道 编程 领域 中 各 种 有 用 的 常见 模式 ， 缺 少 有 关 各 种 棋 步 的 价值 
(值得 定义 哪些 过 程 ) 的 知识 ， 缺 少 对 所 走 棋 步 的 各 种 后 果 (执行 一 个 过 程 的 效果 ) 做 出 预期 
的 经 验 。 

能 够 看 清楚 所 考虑 的 动作 的 后 果 的 能 力 ， 对 于 成 为 程序 设计 专家 是 至 关 重 要 的 ， 就 像 这 
种 能 力 在 所 有 综合 性 的 创造 性 的 活动 中 的 作用 一 样 。 要 成 为 一 个 专业 摄影 家 ， 必 须 学 习 如 何 
去 考察 各 种 景象 ， 知 道 在 各 种 可 能 的 暴光 和 显影 选择 条 件 下 ， 景 象 中 各 个 区 域 在 影像 中 的 明 
瞳 程度 。 只 有 在 此 之 后 ， 人 才能 去 做 反 向 推理 ， 对 取得 所 需 效 果 应 该 做 的 取景 、 亮 度 、 曝 光 
和 显影 等 等 做 出 规划 。 在 程序 设计 里 也 一 样 ， 在 这 里 ， 我 们 需要 对 计算 过 程 中 各 种 动作 的 进 
行情 况 做 出 规划 ， 用 一 个 程序 去 控制 这 一 过 程 的 进展 。 要 想 成 为 专家 ， 我 们 就 需要 学 会 去 看 
清 各 种 不 同 种 类 的 过 程 会 产生 什么 样 的 计算 过 程 。 只 有 在 掌握 了 这 种 技能 之 后 ， 我 们 才能 学 
会 如 何 去 构 造 出 可 靠 的 程序 ， 使 之 能 够 表现 出 所 需要 的 行为 。 

一 个 过 程 也 就 是 一 种 模式 ， 它 描述 了 一 个 计算 过 程 的 局 部 演化 方式 ， 描 述 了 这 一 计算 过 
程 中 的 每 个 步骤 是 怎样 基于 前 面 的 步 又 建立 起 来 的 。 在 有 了 一 个 刻画 计算 过 程 的 过 程 描 述 之 


2 词法 作用 域 要 求 过程 中 的 自由 变量 实际 引用 外 围 过 程 定 义 中 所 出 现 的 约束 ， 也 就 是 说 ， 应 该 在 定义 本 过 程 的 
环境 中 去 寻找 它们 。 我 们 将 在 第 3 章 看 到 这 种 规定 的 细节 工作 情况 ， 在 那里 我 们 将 要 研究 环境 的 概念 和 解释 器 
的 一 些 行为 细节 。 

” 柑 套 的 定义 必须 出 现在 过 程 体 之 前 。 如 果 我 们 运行 一 个 程序 ， 但 是 其 中 的 定义 与 使 用 混杂 在 一 起 ， 管 理 程序 
将 不 负 任 何 责任 。 
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后 ,我们 当然 希望 能 做 出 一 些 有 关 这 一 计算 过 程 的 整体 或 全 局 行为 的 论断 。 一 般 来 说 这 是 非 
常 困 难 的 ， 但 我 们 至 少 还 是 可 以 试 着 去 描述 过 程 演化 的 一 些 典 型 模式 。 

在 这 一 节 里 ,我 们 将 考察 由 一 些 简单 过 程 所 产生 的 计算 过 程 的 “形状 "， 还 将 研究 这 些 计 
算 过 程 消耗 各 种 重要 计算 资源 (时 间 和 空间 ) 的 速率 。 这 里 将 要 考察 的 过 程 都 是 非常 简单 的 ， 
它们 所 扮演 的 角色 就 像 是 摄影 术 中 的 测试 模式 ， 是 作为 极度 简化 的 摄影 模式 ， 而 其 自身 并 不 
是 很 实际 的 例子 。 
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(* 6 (* 5 24)) _L al 

œ 6 120) ~~ 

720 应 


图 1-3 计算 6! 的 线性 递归 过 程 
1.2.1 线性 的 递归 和 迁 代 
首先 考虑 由 下 面 表达 式 定义 的 阶乘 函数 : 


n!=n - (n—1):(n—2):……3-2.1 
计算 阶乘 的 方式 有 许多 种 ， 一 种 最 简单 方式 就 是 利用 下 述 认 识 : 对 于 一 个 正 整数 x，n! 就 等 于 
1 乘 以 (n—1) !: 

ni=n- [(n—1) - (n—2)-"3- 2+ l]=n- (n—-1)! 
这 样 ， 我 们 就 能 通过 算出 (n 一 1) !， 并 将 其 结果 乘 以 n 的 方式 计算 出 n!。 如 果 再 注意 到 1! 就 是 
1， 这 些 认识 就 可 以 直接 翻译 成 一 个 过 程 了 : 

(define (factorial n) 

(if (= n 1) 


1 
(* n (factorial (- n 1))))) 


我 们 可 以 利用 1.1.5 市 介绍 的 代 换 模型 ， 观 看 这 一 过 程 在 计算 6! 时 表现 出 的 行为 ， 如 图 1-3 所 
小。 

现在 让 我 们 采用 男 一 种 不 同 的 观点 来 计算 阶乘 。 我们 可 以 将 计算 阶乘 n! 的 规则 描述 为 : 
先 乘 起 1 和 2， 而 后 将 得 到 的 结果 乘 以 3， 而 后 再 乘 以 4， 这 样 下 去 直到 达到 n。 更 形式 地 说 ,我 
们 要 维持 着 一 个 变动 中 的 乘积 product， 以 及 一 个 从 1 到 "的 计数 器 counter， 这 一 计算 过 程 可 以 
描述 为 counter 和 product 的 如 下 变化 ， 从 一 步 到 下 一 步 ， 它 们 都 按照 下 面 规则 改变 : 

product 一 counter - product 


counter 二 counter + | 


可 以 看 到 ，n! 也 就 是 计数 器 counter 超 过 n 时 乘积 product 的 值 。 
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我 们 又 可 以 将 这 一 描述 重 构 为 一 个 计算 阶乘 的 过 程 ”， 
(define (factorial n) 
(fact-iter 1 1 n)) 


(define (fact-iter product counter max-count) 
(if (> counter max-count) 
product 
(fact-iter (* counter product) 
(+ counter 1) 


max-count) ) ) 
与 前 面 一 样 ， 我 们 也 可 以 应 用 替换 模型 来 查看 6! 的 计算 过 程 ， 如 图 1-4 所 示 。 


(factorial 6) 
(fact-iter 1 
(fact-iter i 
(fact-iter 2 
(fact-iter 6 
(fact-iter 24 
(fact-iter 120 
(fact-iter 720 
720 





图 1-4 计算 6! 的 线性 迭代 过 程 


现在 对 这 两 个 计算 过 程 做 一 个 比较 。 从 一 个 角度 看 ， 它 们 并 没有 很 大 差异 : 两 者 计算 的 
都 是 同一 个 定义 域 里 的 同一 个 数学 函数 ， 都 需要 使 用 与 ?正比 的 步骤 数目 去 计算 出 局 。 确 实 ， 
这 两 个 计算 过 程 甚至 采用 了 同样 的 乘 运算 序列 ， 得 到 了 同样 的 部 分 乘积 序列 。 但 另 一 方面 ， 
如 果 我 们 考虑 这 两 个 计算 过 程 的 “形状 "， 就 会 发 现 它 们 的 进展 情况 大 不 相同 。 

考虑 第 一 个 计算 过 程 。 代 换 模 型 揭示 出 一 种 先 逐 步 展 开 而 后 收缩 的 形状 ， 如 图 1-3 中 的 篇 
头 所 示 。 在 展开 阶段 里 ， 这 一 计算 过 程 构造 起 一 个 推迟 进行 的 操作 所 形成 的 链条 (在 这 里 是 
一 个 乘法 的 链条 ) ， 收 缩 阶 段 表现 为 这 些 运算 的 实际 执行 。 这 种 类 型 的 计算 过 程 由 一 个 推迟 执 
行 的 运算 链条 刻画 ， 称 为 一 个 递归 计算 过 程 。 要 执行 这 种 计算 过 程 ， 解 释 器 就 需要 维护 好 那 
些 以 后 将 要 执行 的 操作 的 轨迹 。 在 计算 阶乘 局 时， 推迟 执行 的 乘法 链条 的 长 度 也 就 是 为 保存 
其 轨迹 需要 保存 的 信息 量 ， 这 个 长 度 随 着 2 值 而 线性 增长 CELE Fn), WRIA PARR H 
一 样 。 这 样 的 计算 过 程 称 为 一 个 线性 递归 过 程 。 

与 之 相对 应 ， 第 二 个 计算 过 程 里 并 没有 任何 增长 或 者 收缩 。 对 于 任何 一 个 2， 在 计算 过 程 
中 的 每 一 步 ， 在 我 们 需要 保存 轨迹 里 ， 所 有 的 东西 就 是 变量 product、counter 和 max- 


”在 实际 程序 里 ， 我 们 可 能 会 用 上 一 节 介绍 的 块 结构 将 fact -iter 的 定义 隐藏 起 来 : 
(define (factorial n) 
(define (iter product counter) 
(if (> counter n) 
product 
(iter (* counter product) 
(+ counter 1)))) 


(iter 1 1)) 


在 上 面 没有 这 样 做 ， 是 因为 希望 尽 可 能 减少 需要 同时 考虑 的 事项 。 
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count 的 当前 值 。 我 们 称 这 种 过 程 为 一 个 迫 代 计算 过 程 。 一 般 来 说 ， 迭 代 计 算 过 程 就 是 那 种 
其 状态 可 以 用 固定 数目 的 状态 变量 描述 的 计算 过 程 ， 而 与 此 同时 ， 又 存在 着 一 套 固 定 的 规则 ， 
描述 了 计算 过 程 在 从 一 个 状态 到 下 一 状态 转换 上 时， 这 些 变 量 的 更 新 方式 ， 还 有 一 个 (可 能 有 
的 ) 结束 检测 ， 它 描述 这 一 计算 过 程 应 该 终止 的 条 件 。 在 计算 n! 时 ， 所 需 的 计算 步骤 随 着 n 线 
性 增长 ， 这 种 过 程 称 为 线性 选 代 过 程 。 

我 们 还 可 以 从 另 一 个 角度 来 看 这 两 个 过 程 之 间 的 对 比 。 在 迭代 的 情况 里 ， 在 计算 过 程 中 
的 任何 一 点 ， 那 几 个 程序 变量 都 提供 了 有 关 计 算 状 态 的 一 个 完整 描述 。 如 果 我 们 令 上 述 计算 
在 某 两 个 步 又 之 间 停 下 来 ， 要 想 重 新 唤醒 这 一 计算 ， 只 需要 为 解释 器 提供 有 关 这 三 个 变量 的 
值 。 而 对 于 递归 计算 过 程 而 言 ， 这 里 还 存在 着 另外 的 一 些 “ 隐 含 ”信息 ， 它 们 并 未 保存 在 程 
序 变 量 里 ， 而 是 由 解释 器 维持 着 ， 指 明了 在 所 推迟 的 运算 所 形成 的 链条 里 的 漫游 中 ,“ 这 一 计 
算 过 程 处 在 何 处 ”。 这 个 链条 越 长 ， 需 要 保存 的 信息 也 就 越 多 ”?。 

在 做 迭代 与 递归 之 间 的 比较 时 ， 我 们 必须 当心 ， 不 要 搞 混 了 递归 计算 过 程 的 概念 和 递归 
过 程 的 概念 。 当 我 们 说 一 个 过 程 是 递归 的 时 候 ， 论 述 的 是 一 个 语法 形式 上 的 事实 ， 说 明 这 个 
过 程 的 定义 中 (直接 或 者 间接 地 ) 引用 了 该 过 程 本 身 。 在 说 某 一 计算 过 程 具有 某 种 模式 时 
(例如 ， 线 性 递归 ) ， 我 们 说 的 是 这 一 计算 过 程 的 进展 方式 ， 而 不 是 相应 过 程 书写 上 的 语法 形 
式 。 当 我 们 说 某 个 递归 过 程 (例如 fact-iter) 将 产生 出 一 个 友 代 的 计算 过 程 时 ， 可 能 会 使 
人 感到 不 舒服 。 然 而 这 一 计算 过 程 确 实 是 迭代 的 ， 因 为 它 的 状态 能 由 其 中 的 三 个 状态 变量 完 
全 刻画 ， 解 释 器 在 执行 这 一 计算 过 程 时 ， 只 需要 保持 这 三 个 变量 的 轨迹 就 足够 了 。 

区 分 计算 过 程 和 写 出 来 的 过 程 可 能 使 人 感到 困惑 ， 其 中 的 一 个 原因 在 于 各 种 常见 语言 
(包括 Ada、Pascal 和 C) 的 大 部 分 实现 的 设计 中 ， 对 于 任何 递归 过 程 的 解释 ， 所 需要 消耗 的 存 
储量 总 与 过 程 调 用 的 数目 成 正比 ， 即 使 它 所 描述 的 计算 过 程 从 原理 上 看 是 运 代 的 。 作 为 这 一 
事实 的 后 果 ， 要 在 这 些 语言 里 描述 迭 代 过 程 ， 就 必须 借助 于 特殊 的 “循环 结构 ” ， 如 do、 
repeat、until、for 和 while 等 等 。 我 们 将 在 第 5 章 里 考察 的 Scheme 的 实现 则 没有 这 一 缺 
陷 ， 它 将 总 能 在 常量 空间 中 执行 迭代 型 计算 过 程 ， 即 使 这 一 计算 是 用 一 个 递归 过 程 描述 的 。 
具有 这 一 特性 的 实现 称 为 尾 递 归 的 。 有 了 一 个 尾 递 归 的 实现 ， 我 们 就 可 以 利用 常规 的 过 程 调 
用 机 制 表述 迭代 ， 这 也 会 使 各 种 复杂 的 专用 迭代 结构 变 成 不 过 是 一 些 语 法 糖衣 了 31。 

练习 1.9 下面 几 个 过 程 各 定义 了 一 种 加 起 两 个 正 整数 的 方法 ， 它 们 都 基于 过 程 ijnc ( 它 
将 参数 增加 1) 和 dec ( 它 将 参数 减少 1)。 


(define (+ a b) 
(LE (= a 0) 
b 
(inc (+ (dec a) b)))) 


(define (+ a b) 
(i (= a 0) 
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实现 为 一 个 机 器 ， 其 中 只 有 固定 数目 的 寄存 器 ， 无 须 任 何 辅助 存储 器 。 与 这 种 情况 不 同 ， 要 实现 递归 计算 过 
程 ， 就 需要 一 种 机 器 ， 其 中 使 用 了 一 个 称 为 堆栈 的 辅助 数据 结构 。 

站 长 期 以 来 ， 尾 递归 一 直 被 看 作 一 种 编译 技巧 。 尾 递归 的 坚实 语义 基础 由 Carl Hewitt (1977) 提供 ， 他 用 计算 
的 “消息 传递 ”模型 解释 尾 递 归 。 第 3 章 将 讨论 这 种 模型 。 在 该 工作 的 启发 下 ，Gerald Jay Sussman 和 Guy 
Lewis Steele Jr. ( 见 Steele 1975) 为 Scheme 构造 了 尾 递归 的 解释 器 。Steele 后 来 证 明了 尾 递归 是 编译 过 程 调用 
的 自然 方式 的 推论 (Steele 1977) 。Scheme 的 IEEE 标 准 要 求 Scheme 解释 器 必须 是 尾 递归 的 。 
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b 
(+ (dec a) (inc b)))) 
请 用 代 换 模型 展示 这 两 个 过 程 在 求 值 (+ 4 .5) 时 所 产生 的 计算 过 程 。 这 些 计算 过 程 是 递归 
的 或 者 运 代 的 吗 ? 
练习 1.10 ”下面 过 程 计 算 一 个 称 为 Ackermann 函 数 的 数学 函数 : 
(define (A x y) 
(cond ((= y 0) 0) 
(t= 2 0) (* 2 y)? 
({= y 1) 2) 
(else (A (- x 1) 
(A x (- y 1)))))) 


下 面 各 表达 式 的 值 是 什么 : 
(A 1 10) 
(A 2 4) 
(A 3 3) 
请 考虑 下 面 的 过 程 ， 其 中 的 A 就 是 上 面 定义 的 过 程 : 
(define (f n) (A 0 n)) 
(define (g n) (A 1 n)) 
(define (h n) (A 2 n)) 


(define (k n) (* 5 n n)) 


请 给 出 过 程 E、g 和 h 对 给 定 整 数值 n 所 计算 的 函数 的 数学 定义 。 例 如 ，(k n) 计算 的 是 SP。 
1.2.2 树 形 递 归 


另 一 种 常见 计算 模式 称 为 树 形 递归 。 作 为 例子 ， 现 在 考虑 斐 波 那 契 (Fibonacci) 数 序列 
的 计算 ， 这 一 序列 中 的 每 个 数 都 是 前 面 两 个 数 之 和 : 
6, 1,.1,,2,3,5, 8; 13,21, = 
一 般 说 ， 斐 波 那 契 数 由 下 面 规则 定义 : 
0 如 果 n=0 
Fib(n)= 41 如 果 n=1 
Fib(n—1)+Fib(n—2) ”否则 


我 们 马上 就 可 以 将 这 个 定义 翻译 为 一 个 计算 斐 波 那 契 数 的 递归 过 程 : 


(define (fib n) 


(cond ((= n 0) 0) 
C a A: AL) 
(else (+ (fib (- n 1)) 
(fib (- n 2)))))) 


考虑 这 一 计算 的 模式 。 为 了 计算 (fib 5)， 我 们 需要 计算 出 (fib 4) 和 (fib 3). 
而 为 了 计算 (fib 4)， 又 需要 计算 (fib 3) 和 (fib 2)。 一 般 而 言 ， 这 一 展开 过 程 看 起 
来 像 一 棵 树 ， 如 图 1-5 所 示 。 请 注意 ， 这 里 的 每 层 分 裂 为 两 个 分 支 〈 除 了 最 下 面 ) ， 反 映 出 对 
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图 1-5 计算 (fib 5) 中 产生 的 树 形 递归 计算 过 程 


fib 过 程 的 每 个 调用 中 两 次 递归 调用 自身 的 事实 。 

上 面 过 程 作为 典型 的 树 形 递归 具有 教育 意义 ， 但 它 却 是 一 种 很 糟 的 计算 斐 波 那 契 数 的 方 
法 ， 因 为 它 做 了 太 多 的 元 余 计 算 。 在 图 1-5 中 , K (fib 3) 差不多 是 这 里 的 一 半 工 作 ， 这 一 
计算 整个 地 重复 做 了 两 次 。 事 实 上 ， 不 难 证 明 ， 在 这 一 过 程 中 , 计算 (fib 1) 和 (fib 0) 
的 次 数 (一 般 说 ， 也 就 是 上 面 树 里 树叶 的 个 数 ) 正好 是 Fib(n 十 1)。 要 领会 这 种 情况 有 多 么 糟 
糕 ， 我 们 可 以 证 明 Fib(n) 值 的 增长 相对 于 "是 指数 的 。 更 准确 地 说 ( 见 练习 1.13)，Fib(n) 就 是 
最 接近 各 / V5 的 整数 ， 其 中 : 

4=(1+ /5)/2~ 1.6180 
就 是 黄金 分 割 的 值 ， 它 满足 方程 : 
=090+1 
这 样 ， 该 过 程 所 用 的 计算 步骤 数 将 随 着 输入 增长 而 指数 性 地 增长 。 另 一 方面 ， 其 空间 需求 只 
是 随 着 输入 增长 而 线性 增长 ， 因 为 ， 在 计算 中 的 每 一 点 ， 我 们 都 只 需 保存 树 中 在 此 之 上 的 结 
点 的 轨迹 。 一 般 说 ， 树 形 递归 计算 过 程 里 所 需 的 步骤 数 将 正比 于 树 中 的 结 点 数 ， 其 空间 需求 
正比 于 树 的 最 大 深度 。 

我 们 也 可 以 规划 出 一 种 计算 斐 波 那 契 数 的 迭代 计算 过 程 ， 其 基本 想法 就 是 用 一 对 整数 ga 和 
b， 将 它们 分 别 初始 化 为 Fib(1)= 1 和 Fib(0)=0， 而 后 反复 地 同时 使 用 下 面 变换 规则 : 

a-atb 

b—a 
不 难 证 明 ， 在 ?次 应 用 了 这 些 变换 后 ，a 和 2 将 分 别 等 于 Fib(z+ 1) 和 Fib(n)。 因 此 ， 我 们 可 以 用 
下 面 过 程 ， 以 迭代 方式 计算 斐 波 那 契 数 ， 
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(define (fib n) 
(fib-iter 1 0 n)) 


(define (fib-iter a b count) 
(if (= count 0) 
b 
(fib-iter (+ a b) a (+ count 1)))) 
计算 Fib(n) 的 这 种 方法 是 一 个 线性 迭代 。 这 两 种 方法 在 计算 中 所 需 的 步骤 上 差异 巨大 一 一 后 
一 方法 相对 于 n 为 线性 的 ， 前 一 个 的 增长 像 Fib(n) 一 样 快 ， 即 使 不 大 的 输入 也 可 能 造成 很 大 
的 差异 。 

但 是 我 们 也 不 应 做 出 结论 ， 说 树 形 递归 计算 过 程 根 本 没有 用 。 当 我 们 考虑 的 是 在 层次 结 
构 性 的 数据 上 操作 ， 而 不 是 对 数 操作 时 ， 将 会 发 现 树 形 递归 计算 过 程 是 一 种 自然 的 、 威 力 强 
大 的 工具 ?”。 即 使 是 对 于 数 的 计算 ， 树 形 递归 计算 过 程 也 可 能 帮助 我 们 理解 和 设计 程序 。 以 计 
算 斐 波 那 契 数 的 程序 为 例 ， 虽 然 第 一 个 Eib 过 程 远 比 第 二 个 低 效 ， 但 它 却 更 加 直截了当 ， 基 
本 上 就 是 将 斐 波 那 契 序 列 的 定义 直接 翻译 为 Lisp 语 言 。 而 要 规划 出 那个 迭代 过 程 ， 则 需要 注 
意 到 ， 这 一 计算 过 程 可 以 重新 塑造 为 一 个 采用 三 个 状态 变量 的 迭代 。 

实例 : 换 零 钱 方式 的 统计 

要 想得到 一 个 迭代 的 斐 波 那 契 算法 需要 一 点 点 智慧 。 与 此 相对 应 ， 现 在 考虑 下 面 的 问题 : 
给 了 半 美 元 、 四 分 之 一 美元 、10 美 分 、5 美 分 和 1 美 分 的 硬币 ， 将 1 美元 换 成 零钱 ， 一 共有 多 少 
种 不 同方 式 ? 更 一 般 的 问题 是 ， 给 定 了 任意 数量 的 现金 ， 我 们 能 写 出 一 个 程序 ， 计 算出 所 有 
换 零 钱 方式 的 种 数 吗 ? 

采用 递归 过 程 ， 这 一 问题 有 一 种 很 简单 的 解法 。 假 定 我 们 所 考虑 的 可 用 硬币 类 型 种 类 排 
了 某 种 顺序 ， 于 是 就 有 下 面 的 关系 : 

将 总 数 为 a 的 现金 换 成 4 种 硬币 的 不 同方 式 的 数目 等 于 

“将 现金 数 q 换 成 除 第 一 种 硬币 之 外 的 所 有 其 他 硬币 的 不 同方 式 数 目 ， 加 上 

。 将 现金 数 a 一 d 换 成 所 有 种 类 的 硬币 的 不 同方 式 数目 ， 其 中 的 d 是 第 一 种 硬币 的 币值 。 

要 问 为 什么 这 一 说 法 是 对 的 ， 请 注意 这 里 将 换 零钱 分 成 两 组 时 所 采用 的 方式 ， 第 一 组 里 
都 没有 使 用 第 一 种 硬币 ， 而 第 二 组 里 都 使 用 了 第 一 种 硬币 。 显 然 ， 换 成 零钱 的 全 部 方式 的 数 
目 ， 就 等 于 完全 不 用 第 一 种 硬币 的 方式 的 数目 ， 加 上 用 了 第 一 种 硬币 的 换 零 钱 方式 的 数目 。 
而 后 一 个 数目 也 就 等 于 去 掉 一 个 第 一 种 硬币 值 后 ， 剩 下 的 现金 数 的 换 零钱 方式 数目 。 

这 样 就 可 以 将 某 个 给 定 现金 数 的 换 零 钱 方 式 的 问题 ， 递 归 地 归 约 为 对 更 少 现金 数 或 者 更 
少 种 类 硬币 的 同一 个 问题 。 仔 细 考 虑 上 面 的 归 约 规则 ， 设 法 使 你 确信 ， 如 果 采 用 下 面 方 式 处 
理 退 化 情况 ， 我 们 就 能 利用 上 面 规 则 写 出 一 个 算法 来 ”: 

© 如果 4 就 是 0， 应 该 算 作 是 有 1 种 换 零 钱 的 方式 。 

e 如果 o 小 于 0， 应 该 算 作 是 有 0 种 换 零钱 的 方式 。 

* 如果 n 是 0， 应 该 算 作 是 有 0 种 换 零 钱 的 方式 。 

我 们 很 容易 将 这 些 描述 翻译 为 一 个 递归 过 程 : 


(define (count-change amount) 


2 我 们 已 经 在 1.1.3 节 里 遇 到 过 这 种 情况 的 例子 。 在 求 值 表 达 式 时 ， 解 释 器 本 身 采 用 的 就 是 树 形 的 递归 计算 过 程 。 
3 例如， 仔细 地 将 上 述 归 约 规则 用 于 将 10 分 换 成 5 分 和 1 分 零钱 的 问题 。 
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(cc amount 5)) 


(define (cc amount kinds-of-coins) 
(cond ((= amount 0) 1) 
((or (< amount 0) (= kinds-of-coins 0)) 0) 
(else (+ (cc amount 
(- kinds-of-coins 1)) 
(ce (- amount 
(first-denomination kinds-of-coins) ) 


kinds-of-coins) )))) 


(define (first-denomination kinds-of-coins) 
(cond ((= kinds-of-coins 1) 1) 
((= kinds-of-coins 2) 5) 
((= kinds-of-coins 3) 10) 
((= kinds-of-coins 4) 25) 
((= kinds-of-coins 5) 50))) 
(过 程 Eizst-dqenomination 以 可 用 的 硬币 种 数 作为 输入 ， 返 回 第 一 种 硬币 的 币值 。 这 里 认 
为 硬币 已 经 从 最 大 到 最 小 排列 好 了 ， 其 实 采 用 任何 顺序 都 可 以 )。 我 们 现在 就 能 回答 开始 的 问 
题 了 ， 下 面 是 换 1 美 元 硬币 的 不 同方 式 数目 : 
(count -change 100) 
292 


count -change 产 生出 一 个 树 形 的 递归 计算 过 程 ， 其 中 的 元 余 计算 与 前 面 fib 的 第 一 种 
实现 类 似 ( 它 计算 出 292 需 要 一 点 时 间 )。 男 一 方面 ， 要 想 设 计 出 一 个 更 好 的 算法 ， 使 之 能 算 
出 同样 结果 ， 就 不 那么 明显 了。 我 们 将 这 一 问题 留 给 读者 作为 一 个 挑战 。 人 们 认识 到 ， 树 形 
递归 计算 过 程 有 可 能 极其 低 效 ， 但 常常 很 容易 描述 和 理解 ， 这 就 导致 人 们 提出 了 一 个 建议 ， 
希望 能 利用 世界 上 的 这 两 个 最 好 的 东西 。 人 们 和 希望 能 设计 出 一 种 “灵巧 编译 器 ”， 使 之 能 将 一 
个 树 形 递归 的 过 程 翻译 为 一 个 能 计算 出 同样 结果 的 更 有 效 的 过 程 ”。 

练习 1.11 ”函数 f 由 如 下 的 规则 定义 : 如 果 n<3， 那 么 fmn, wmn, WA ftn) = 
ftn 一 1)+2ftn 一 2)+3ftn 一 3)。 请 写 一 个 采用 递归 计算 过 程 计 算 三 的 过 程 。 再 写 一 个 采用 和 迭代 
计算 过 程 计 算 f 的 过 程 。 

练习 1.12 下 面 数值 模式 称 为 帕斯卡 三 角形 : 


对 付 宛 余 计 算 的 一 种 途径 是 通过 重新 安排 ， 使 计算 过 程 能 自动 构造 出 一 个 已 经 计算 出 的 值 的 表格 。 每 次 要 求 
对 某 一 参数 调用 过 程 时 ， 首 先 去 查看 这 个 值 是 否 已 在 表 里 ， 如 果 存 在 就 可 以 避免 重复 计算 。 这 一 策略 被 称 为 
表格 技术 或 记忆 技术 ， 它 也 很 容易 实现 。 有 时 采用 表格 技术 可 以 将 原本 需要 指数 步骤 的 计算 过 程 〈 例 如 
count-change) 转变 成 空间 和 时 间 需 求 都 相对 于 输入 线性 增长 的 计算 过 程 。 参 见 练习 3.27。 
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三 角形 边界 上 的 数 都 是 1， 内 部 的 每 个 数 是 位 于 它 上 面 的 两 个 数 之 和 5。 请 写 一 个 过 程 ， 它 采 
用 递归 计算 过 程 计算 出 帕斯卡 三 角形 。 

练习 1.13 ”证明 Fib(n) 是 最 接近 W'/ VS 的 整数 ， 其 中 g%=(1+ V5)/2。 提 示 : 利用 归纳 法 和 
斐 波 那 契 数 的 定义 〈 见 1.2.2 节 )， 证 明 Fib(D =(¢0"— Y')/ V5。 


1.2.3 增长 的 阶 


前 面 一 些 例子 说 明 ， 不 同 的 计算 过 程 在 消耗 计算 资源 的 速率 上 可 能 存在 着 巨大 差异 。 描 
述 这 种 差异 的 一 种 方便 方式 是 用 增长 的 阶 的 记 法 ， 以 便 我 们 理解 在 输入 变 大 时 ， 某 一 计算 过 
程 所 需 资源 的 粗略 度量 情况 。 

令 n 是 一 个 参数 ， 它 能 作为 问题 规模 的 一 种 度量 ， 令 R(n) 是 一 个 计算 过 程 在 处 理 规模 为 n 
的 问题 时 所 需要 的 资源 量 。 在 前 面 的 例子 里 ， 我 们 取 n 为 给 定 函 数 需要 计算 的 那个 数 ， 当 然 也 
存在 其 他 可 能 性 。 例 如 ， 如 果 我 们 的 目标 是 计算 出 一 个 数 的 平方 根 的 近似 值 ， 那 么 就 可 以 将 n 
取 为 所 需 精度 的 数字 个 数 。 对 于 和 矩阵 乘法 ， 我 们 可 以 将 n 取 为 矩阵 的 行 数 。 一 般 而 言 ， 总 存在 
着 某 个 有 关 问 题 特性 的 数值 ， 使 我 们 可 以 相对 于 它 去 分 析 给 定 的 计算 过 程 。 与 此 类 似 ，R(n) 
也 可 以 是 所 用 的 内 部 寄存 器 数目 的 度量 值 ， 也 可 能 是 需要 执行 的 机 器 操作 数目 的 度量 值 ， 或 
者 其 他 类 似 东 西 。 在 每 个 时 刻 只 能 执行 固定 数目 的 操作 的 计算 机 里 ， 所 需 的 时 间 将 正比 于 需 
要 执行 的 基本 机 器 指令 条 数 。 

我 们 称 R(n) BA OC) 的 增长 阶 ， 记 为 R(n)= Yn))( 读 作 “ftn) 的 theta”)， 如 果 存 在 
与 无 关 的 整数 后 和 局 ， 使 得 : 


kfn) < R(n) <kfin) 


对 任何 足够 大 的 n 值 都 成 立 ( 换 名 话说 ， 对 足够 大 的 x， 值 ROn) 总 位 于 kn) 和 kftn) 之 间 ) 。 

举例 来 说 ， 在 1.2.1 市 中 描述 的 计算 阶乘 的 线性 递归 计算 过 程 里 ， 步 骤 数 目的 增长 正比 于 
输入 n。 也 就 是 说 ， 这 一 计算 过 程 所 需 步 又 的 增长 为 86(n)， 其 空间 需求 的 增长 也 是 9@(n)。 对 于 
迭代 的 阶乘 ， 其 步 数 还 是 8@(n) 而 空间 是 98(1)， 即 为 一 个 常数 “。 树 形 递归 的 斐 波 那 契 计算 需 
ROH) FMON) 空间 ， 这 里 的 9 就 是 1.2.2 节 中 描述 的 黄金 分 割 率 。 

增长 的 阶 为 我 们 提供 了 对 计算 过 程 行为 的 一 种 很 粗略 的 描述 。 例如 , 某 计算 过 程 需要 吉 步 ， 
男 一 计算 过 程 需要 1000n? 步 ， 还 有 一 个 计算 过 程 需要 3n? 十 10n 二 17 步 ， 它 们 增长 的 阶 都 是 
e(n”)。 但 另 一 方面 ， 增 长 的 阶 也 为 我 们 在 问题 规模 改变 时 ， 预 期 一 个 计算 过 程 的 行为 变化 提 
供 了 有 用 的 线索 。 对 于 一 个 @(n) (线性 ) 的 计算 过 程 ， 规 模 增 大 一 倍 大 致 将 使 它 所 用 的 资源 


5 帕斯卡 三 角形 的 元 素 又 称 为 二 项 式 系 数 ， 因 其 中 第 n 行 就 是 (x 十 y) "的 展开 式 的 系数 。 计 算 这 些 系数 的 这 一 
模式 发 表 在 布 赖 斯 帕斯卡 有 关 概 率 论 的 开创 性 工作 “ 论 算术 三 角形 ”(Trairé du triangle arithmétique) 中 。 
根据 Knuth (1973), ， 同 样 的 模式 也 出 现在 中 国 数学 家 朱 世 杰 于 1303 成 书 的 《四 元 玉 鉴 》， 12 世 纪 波 
斯 诗人 和 数学 家 Omar Khayyam 的 论文 ， 以 及 12 世 纪 印 度数 学 家 Bhiscara Achaya, (这 一 三 角形 也 
称 为 “ 贾 宪 三 角形 ”( 机 宪 ， AGH, 960—1127) 和 “杨辉 三 角形 ”( 杨 辉 ，1261)， 是 中 国 古代 数学 的 辉 煌 成 
就 。 一 一 译 者 注 ) 

”这 些 说 法 都 是 经 过 了 很 大 简化 。 例 如 ， 如 果 采 用 “机 器 操作 ”去 计算 步 数 ， 我 们 实际 上 就 做 了 一 个 假定 ， 假 
定 所 需 执行 的 各 种 机 器 操作 ， 例 如 执行 一 次 乘法 与 需要 乘 的 那 两 个 数 的 大 小 无 关 。 如 果 需 要 乘 的 数 非常 大 ， 
这 一 假定 实际 上 是 不 成 立 的 。 对 于 空间 的 估计 也 需要 做 类 似 的 说 明 。 与 计算 过 程 的 设计 和 描述 的 情况 类 似 ， 
对 于 计算 过 程 的 分 析 也 可 以 在 不 同 的 抽象 层次 上 进行 。 
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增加 了 一 倍 。 对 于 一 个 指数 的 计算 过 程 ， 问 题 规模 每 增加 1 都 将 导致 所 用 资源 按照 某 个 常数 倍 
增长 。 在 1.2 市 剩 下 的 部 分 ， 我们 将 考察 两 个 算法 ， 其 增长 的 阶 都 是 对 数 型 增长 的 ， 因 此 ， 当 
问题 规模 增 大 一 倍 时 ， 所 需 资 源 量 只 增加 一 个 常数 。 


练习 1.14 ”请 画 出 有 关 的 树 ， 展 示 1.2.2 节 的 过 程 count -change 在 将 11 美 分 换 成 硬币 时 
所 产生 的 计算 过 程 。 相 对 于 被 换 现金 量 的 增加 ， 这 一 计算 过 程 的 空间 和 步 数 增长 的 阶 各 是 什 
么 ? 

练习 1.15 在 角 (用 弧度 描述 ) x* 足 够 小 时 ， 其 正弦 值 可 以 用 sinx = x 计 算 ， 而 三 角 恒 等 式 : 

2 a. EE 
sinx=3 Sm 一 一 4Sin 一 
3 3 
可 以 减 小 sn 的 参数 的 大 小 (为 完成 这 一 练习 ， 我 们 认为 一 个 角 是 “足够 小 ， 如 果 其 数值 不 大 
于 0.1 弧 度 )。 这 些 想法 都 体现 在 下 述 过 程 中 : 
(define (cube x) (* x x x)) 
(define (p x) (- (* 3 x) (* 4 (cube x)))) 


(define (sine angle) 
(if (not (> (abs angle) 0.1)) 
angle 


(p (sine (/ angle 3.0))))) 
a) 在 求 值 (sine 12.15) 时 ，P 将 被 使 用 多 少 次 ? 
b) 在 求 值 (sine a) 时 ， 由 过 程 sine 所 产生 的 计算 过 程 使 用 的 空间 和 步 数 (作为 a 的 函 
数 ) 增长 的 阶 是 什么 ? 
1.2.4 KẸ 


现在 考虑 对 一 个 给 定 的 数 计算 乘客 的 问题 ， 我 们 希望 这 一 过 程 的 参数 是 一 个 基数 b 和 一 个 
正 整数 的 指数 +， 过 程 计算 出 P*。 做 这 件 事 的 一 种 方式 是 通过 下 面 这 个 递归 定义 : 


b"=b a bro! 
š p=] 
它 可 以 直接 翻译 为 如 下 过 程 : 
(define (expt b n) 
{it (=. st 0) 
i 
(* b (expt b (- nm 1)y))) 


这 是 一 个 线性 的 递归 计算 过 程 ， 需 要 9(m) FMON) 空间 。 就 像 阶乘 一 样 ， 我 们 很 容易 将 其 形 
式 化 为 一 个 等 价 的 线性 迭代 : 
(define (expt b n) 
(expt-iter b n 1)) 
(define (expt-iter b counter product) 
(if (= counter 0) 
product 
(expt-iter b 
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(- counter 1) 
(* b product) ))) 


这 一 版 本 需要 O(n) 步 和 @(1) 空间 。 
我 们 可 以 通过 连续 求 平方 ， 以 更 少 的 步 又 完成 乘客 计算 。 例 如 ， 不 是 采用 下 面 这 样 的 方 
AEDS, 
b-(b-(b- (b- (b- (b-: (b+ b)))))) 
而 是 用 三 次 乘法 算出 它 来 : 
bÞ=b.-b 
p=p b 
b§=b* = bt 
这 一 方法 对 于 指数 为 2 的 乘客 都 可 以 用 。 如 果 采 用 下 面 规 则 ， 我 们 就 可 以 借助 于 连续 求 平 
方 ， 去 完成 一 般 的 乘 徊 计算 : 
p= 若是 偶数 
b'=b: b! intai 
这 一 方法 可 以 定义 为 如 下 的 过 程 : 


(define (fast-expt b n) 


(cond ((= n 0) 1) 
((even? n) (square (fast-expt b (/ n 2)))) 
(else (* b (fast-expt b (- n 1)))))) 


其 中 检测 一 个 整数 是 否 偶数 的 谓词 可 以 基于 基本 过 程 remainder 定 义 : 
(define (even? n) 


(= (remainder n 2) 0)) 


由 fast-expt 演 化 出 的 计算 过 程 ， 在 空间 和 步 数 上 相对 于 n 都 是 对 数 的。 要 看 到 这 些 情况 ， 
请 注意 ， 在 用 fast -expt 计 算 b”* 时 ， 只 需要 比 计算 bp" 多 做 一 次 乘法 。 每 做 一 次 新 的 乘法 ， 能 
够 计算 的 指数 值 (大 约 ) 增 大 一 倍 。 这 样 ， 计 算 指数 n 所 需要 的 乘法 次 数 的 增长 大 约 就 是 以 2 
为 底 的 "的 对 数值 ， 这 一 计算 过 程 增长 的 阶 为 9Bdlog n). 

随 着 ? 变 大 ，@(log n) 增长 与 9(n) 增长 之 间 的 差异 也 会 变 得 非常 明显 。 例 如 对 n= 1000, 
fast-expt 只 需要 14 次 乘法 "我们 也 可 能 采用 连续 求 平方 的 想法 ， 设 计 出 一 个 具有 对 数 步 
数 的 计算 乘 宪 的 迭代 算法 ( 见 练习 1.16)。 但 是 ， 就 像 迭 代 算法 的 常见 情况 一 样 ， 写 出 这 一 算 
法 就 不 像 对 递归 算法 那样 直截了当 了 ”。 

练习 1.16 请 定义 一 个 过 程 ， 它 能 产生 出 一 个 按照 迭代 方式 的 求 寡 计算 过 程 ， 其 中 使 用 一 
系列 的 求 平方 ， 就 像 一 样 fast -expt 只 用 对 数 个 步 又 那样 。( 提 示 : 请 利用 关系 b= 
(0 ， 除 了 指数 za 和 基数 之 外 ， 还 应 维持 一 个 附加 的 状态 变量 wa， 并 定义 好 状态 变换 ， 使 得 


更 准确 地 说 ， 这 里 所 需 乘 法 的 次 数 等 于 /的 以 2 为 底 的 对 数值 ， 再 加 上 "的 二 进 制 表示 中 1 的 个 数 减 1。 这 个 值 总 
小 于 n 的 以 2 为 底 的 对 数值 的 两 倍 。 对 于 对 数 的 计算 过 程 而 言 ， 在 阶 记 法 定义 中 的 任意 常量 kh 和 如， 意味 着 对 数 
的 底 并 没有 关系 。 因 此 这 种 过 程 被 描述 为 9(log n). 

8 你 可 能 奇怪 什么 人 会 关心 去 求 数 的 1000 次 乘 寡 。 参 看 1.2.6 节 。 

”这 一 迭代 算法 也 是 一 个 古董 ， 它 出 现在 公元 前 200 年 之 前 Achirya Pingala 所 写 的 Chnandahn-suire 里 。 有 关 求 寡 的 
这 一 算法 和 其 他 算法 的 完整 讨论 和 分 析 ， 请 参看 Knuth 1981 的 4.6.3 节 。 
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从 一 个 状态 转 到 另 一 状态 时 乘积 a b" 不 变 。 在 计算 过 程 开始 时 令 a 取 值 1， 并 用 计算 过 程 结 束 时 
a 的 值 作为 回答 。 一 般 说 ， 定 义 一 个 不 变量 ， 要 求 它 在 状态 之 间 保 持 不 变 ， 这 一 技术 是 思考 达 
代 算 法 设计 问题 时 的 一 种 非常 强 有 力 的 方法 。) 

练习 1.17 “本 节 里 的 求索 算法 的 基础 就 是 通过 反复 做 乘法 去 求 乘 蝴 。 与 此 类 似 ， 也 可 以 
通过 反复 做 加 法 的 方式 求 出 乘积 。 下 面 的 乘积 过 程 与 expt 过 程 类 似 (其 中 假定 我 们 的 语言 只 
有 加 法 而 没有 乘法 ) : 

(define (* a bD) 

(if (= b 0) 
0 
(+ a (* a (= B 1))))) 

这 一 算法 具有 相对 于 b 的 线性 步 数 。 现 在 假定 除了 加 法 之 外 还 有 运算 aouble， 它 能 求 出 一 个 
整数 的 两 倍 ; 还 有 halve， 它 将 一 个 (偶数 ) 除 以 2。 请 用 这 些 运 算 设 计 一 个 类 似 fast- 
expt 的 求 乘积 过 程 ， 使 之 只 用 对 数 的 计算 步 数 。 

练习 1.18 利用 练习 1.16 和 1.17 的 结果 设计 一 个 过 程 ， 它 能 产生 出 一 个 基于 加 、 加 倍 和 折 
半 运 算 的 迭代 计算 过 程 ， 只 用 对 数 的 步 数 就 能 求 出 两 个 整数 的 乘积 *”。 

练习 1.19 存在 着 一 种 以 对 数 步 数 求 出 辈 波 那 契 数 的 巧妙 算法 。 请 回忆 1.2.2 市 fib- 
iter 计 算 过 程 中 状态 变量 a 和 4b 的 变换 规则 ，a 一 a+b 和 b 一 a， 现 在 将 这 种 变换 称 为 变换 。 通 
过 观察 可 以 发 现 ， 从 1 和 0 开始 将 T 反 复 应 用 n 次 ， 将 产生 出 一 对 数 Fib(n + 1) 和 Fib(n)。 换 句 话 
说 ， 韭 波 那 契 数 可 以 通过 将 7T" (变换 7 的 n 次 方 ) 应 用 于 对 偶 (1, 0) 而 产生 出 来 。 现 在 将 7 看 作 
变换 族 T,s 中 p=0 且 gq=1 的 特殊 情况 ， 其 中 7 是 对 于 对 偶 (a, b) 4 Ha—bq + aq + apFilb—bp + 
ag 规 则 的 变换 。 请 证 明 ， 如 果 我 们 应 用 变换 Ty 两 次 ， 其 效果 等 同 于 应 用 同样 形式 的 一 次 变换 
Tz， 其 中 的 p' 和 g' 可 以 由 p 和 gq 计算 出 来 。 这 就 指明 了 一 条 求 出 这 种 变换 的 平方 的 路 径 ， 使 我 
们 可 以 通过 连续 求 平方 的 方式 去 计算 "就 像 fast -expt 过 程 里 所 做 的 那样 。 将 所 有 这 些 集 
中 到 一 起 ， 就 形成 了 下 面 的 过 程 ， 其 运行 只 需要 对 数 的 步 数 1; 


(define (fib n) 
(fib-iter 1 0 0 1 n)) 


(define (fib-iter a b p q count) 
(cond ((= count 0) b) 
((even? count) 


(fib-iter a 


b 
<??> ; compute p' 
<??> ; compute q' 


(/ count 2))) 
(else (fib-iter (+ (* bq) (* aq) (* a p)) 
(+ (* bp) (* a q)) 
p 
q 
(- count 1))))) 





0 这 一 算法 有 时 被 称 为 乘法 的 “俄罗斯 农民 的 方法 ”"， 它 的 历史 也 很 悠久 。 使 用 它 的 实例 可 以 在 莱 因 德 纸 草 书 
(Rhind Papyrus) 中 找到 ， 这 是 现存 最 悠久 的 两 份 数学 文献 之 一 ， 由 一 位 名 为 A'h-mose 的 埃及 抄写 人 写 于 大 约 
公元 前 1700 年 (而 且 是 另 一 份 年 代 更 久远 的 文献 的 复制 品 )。 

4 这 一 练习 是 Joy Stoy 给 我 们 建议 的 ， 基 于 在 Kaldewaij 1990 的 一 个 例子 。 
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1.2.5 最 大 公约 数 


两 个 整数 4z 和 b 的 最 大 公约 数 (GCD) 定义 为 能 除 尽 这 两 个 数 的 那个 最 大 的 整数 。 例 如 ， 
16 和 28 的 GCD 就 是 4。 在 第 2 章 里 ， 当 我 们 要 去 研究 有 理 数 算术 的 实现 时 ， 就 会 需要 GCD， 以 
便 能 把 有 理 数 约 化 到 最 简 形 式 (要 将 有 理 数 约 化 到 最 简 形 式 ， 我 们 必须 将 其 分 母 和 分 子 同 时 
除 掉 它们 的 GCD。 例 如 ，16/28 将 约 简 为 4/7)。 找 出 两 个 整数 的 GCD 的 一 种 方式 是 对 它们 做 因 
数 分 解 ， 并 从 中 找 出 公共 因子 。 但 存在 着 一 个 更 高 效 的 著名 算法 。 
这 一 算法 的 思想 基于 下 面 的 观察 : 如 果 r 是 a 除 以 bp 的 余数 ， 那 么 a 和 4b 的 公约 数 正好 也 是 4b 
的 "的 公约 数 。 因 此 我 们 可 以 借助 于 等 式 : 
GCD(a, b)=GCD(b, r) 
这 就 把 一 个 GCD 的 计算 问题 连续 地 归 约 到 越 来 越 小 的 整数 对 的 GCD 的 计算 问题 。 例 如 : 
GCD(206, 40) = GCD(40, 6) 
=GCD(6, 4) 
=GCD(4, 2) 
=GCD(2, 0) 
=2 
将 GCD (206, 40) 归 约 到 GCD (2, 0)， 最 终 得 到 2。 可 以 证 明 ， 从 任意 两 个 正 整 数 开始 ， 反 复 执 
行 这 种 归 约 ， 最 终 将 产生 出 一 个 数 对 ， 其 中 的 第 二 个 数 是 9?， 此 时 的 GCD 就 是 男 一 个 数 。 这 
计算 GCD 的 方法 称 为 欧 几 里 得 算法 ”。 
不 难 将 欧 几 里 得 算法 写成 一 个 过 程 : 
(define (gcd a b) 


(if (= b 0) 
a 


(gcd b (remainder a b)))) 
这 将 产生 一 个 迭代 计算 过 程 ， 其 步 数 依 所 涉及 的 数 的 对 数 增长 。 
欧 几 里 得 算法 所 需 的 步 数 是 对 数 增 长 的 ， 这 一 事实 与 斐 波 那 契 数 之 间 有 一 种 有 趣 关系 : 
Lamé 定 理 : 如 果 欧 儿 里 得 算法 需要 用 k 步 计算 出 一 对 整数 的 GCD， 那 么 这 对 数 中 较 小 的 
那个 数 必 然 大 于 或 者 等 于 第 个 斐 波 那 契 数 ”。 


4 这 一 算法 称 为 欧 几 里 得 算法 ， 是 因为 它 出 现在 欧 几 里 得 的 《几何 原本 》(Elements ， 第 7 卷 ， 大 约 为 公元 前 300 
年 )。 根 据 Knuth (1973) 的 看 法 ， 这 一 算法 应 该 被 认为 是 最 老 的 非 平凡 算法 。 古 埃及 的 乘 方法 (练习 1.18 ) 
确实 年 代 更 久远 ， 但 按 Knuth 的 看 法 ， 欧 几 里 得 算法 是 已 知 的 最 早 描述 为 一 般 性 算法 的 东西 ， 而 不 是 仅仅 给 出 
一 集 示 例 。 

3 这 一 定理 是 1845 年 由 Gabriel Lamek 证 明 的 。Gabriel Lame 是 法 国 数学 家 和 工程 师 ， 他 以 在 数学 物理 领域 的 贡献 
而 闻名 。 为 了 证 明 这 一 定理 ， 考 虑 数 对 序列 (a, bi)， 其 中 a 二 bt， 假设 欧 几 里 得 算法 在 第 k 步 结束 。 这 一 证 明 
基于 下 述 论断 : 如 果 (arsi beri) (ao bp 一 (ae bir) 是 归 约 序列 中 连续 的 三 个 数 对 , RATA biri Sb t+ bi。 
为 验证 这 一 论断 ， 我 们 需要 注意 到 ， 这 里 的 每 个 归 约 步 又 都 是 通过 应 用 变换 ai = be, bii = a BREAD HOA BE 
第 二 个 等 式 意味 着 a 二 qbi 二 br1， 其 中 的 gq 是 某 个 正 整 数 。 因 为 q 至 少 是 1， 所 以 我 们 有 ax= hit br> bet bris 
但 在 前 面 一 个 归 约 步 中 有 b+1=ax， 因 此 Pir1==Qx 宇 br 十 be1。 这 就 证 明了 上 述 论断 。 现 在 就 可 以 通过 对 k 归 纳 来 
证 明 这 一 定理 了 ,假设 k 是 算法 结束 所 需要 的 步 数 。 对 k= 1 结论 成 立 ， 因 为 此 时 不 过 是 要 求 b 不 小 于 Fib(1)=1。 
现在 假定 结果 对 所 有 小 于 等 于 k 的 整数 都 成 立 ， 让 我 们 来 设法 建立 对 k 十 1 的 结果 。 令 (at brr) (lan b) > 
(ari bei) 是 归 约 计算 过 程 中 的 儿 个 连续 的 数 对 ， 我 们 有 bi1 宇 Fib(k 一 1) 以 及 bk 宇 Fib(k)。 这 样 ， 应 用 我 们 在 上 
面 已 证 明 的 论断 ， 再 根据 Fibonacei 数 的 定义 ， 就 可 以 给 出 br41 宇 bi 十 bi 之 Fib(k) 十 Fib(k 一 1)==Fib(k 十 1)， 这 就 
完成 了 Lamé 定 理 的 证 明 。 
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我 们 可 以 利用 这 一 定理 ， 做 出 欧 几 里 得 算法 的 增长 阶 估计 。 令 xz 是 作为 过 程 输入 的 两 个 数 
中 较 小 的 那个 ， 如 果 计 算 过 程 需要 k 步 ， 那 么 我 们 就 一 定 有 2z > Fib(k) ~  V5 。 这 样 ， 步 数 k 的 
增长 就 是 n 的 对 数 (对 数 的 底 是 9)。 这 样 ， 算 法 的 增长 阶 就 是 9(log n). 

练习 1.20 ”一 个 过 程 所 产生 的 计算 过 程 当然 依赖 于 解释 器 所 使 用 的 规则 。 作 为 一 个 例子 ， 
考虑 上 面 给 出 的 迭代 式 gcd 过 程 ， 假 定 解释 器 用 第 1.1.5 节 讨论 的 正则 序 去 解释 这 一 过 程 (对 
i 的 正则 序 求 值 规则 在 练习 1.5 中 描述 )。 请 采用 (正则 序 的 ) 代 换 方法 ， 展 示 在 求 值 表达 式 
(gcd 206 40) 中 产生 的 计算 过 程 ， 并 指明 实际 执行 的 remainder 运 算 。 在 采用 正则 序 求 
值 (gcd 206 40) 中 实际 执行 了 多 少 次 remainder 运 算 ? 如 果 采 用 应 用 序 求 值 呢 ? 


1.2.6 实例 ， 素数 检测 


本 节 将 描述 两 种 检查 整数 "是 否 素数 的 方法 ， 第 一 个 具有 @( Vn) 的 增长 阶 ， 而 另 一 个 “ 概 
率 ” 算 法 具有 EB(1log n) 的 增长 阶 。 本 节 最 后 的 练习 提出 了 若干 基于 这 些 算法 的 编程 作业 。 

寻找 因子 

自古 以 来 ， 数 学 家 就 被 有 关 素数 的 问题 所 吸引 ， 许 多 人 都 研究 过 确定 整数 是 否 素数 的 方 
法 。 检 测 一 个 数 是 否 素数 的 一 种 方法 就 是 找 出 它 的 因子 。 下 面 的 程序 能 找 出 给 定数 n 的 (大 于 
1 的 ) 最 小 整数 因子 。 它 采用 了 一 种 直接 方法 ， 用 从 2 开始 的 连续 整数 去 检查 它们 能 否 整 除 n。 

(define (smallest-divisor n) 


(find-divisor n 2)) 


(define (find-divisor n test-divisor) 
(cond ((> (square test-divisor) n) n) 
((divides? test-divisor n) test-divisor) 
(else (find-divisor n (+ test-divisor 1))))) 


(define (divides? a b) 


(= (remainder b a) 0)) 


我 们 可 以 用 如 下 方式 检查 一 个 数 是 否 素数 : n 是 素数 当 且 仅 当 它 是 自己 的 最 小 因子 : 
(define (prime? n) 


(= n (smallest-divisor n))) 


find-divisor 的 结束 判断 基于 如 下 事实 ， 如 果 n 不 是 素数 ， 它 必然 有 一 个 小 于 或 者 等 于 Vn 
的 因子 *。 这 也 意味 着 该 算法 只 需 在 1 和 Vn 之 间 检 查 因子 。 由 此 可 知 ， 确 定 是 否 素数 所 需 的 
步 数 将 具有 @( Vn) 的 增长 阶 。 


费 马 检 查 
O(log n) 的 素数 检查 基于 数论 中 著名 的 费 马 小 定理 的 结果 ”。 


# 如 果 d 是 n 的 因子 ， 那 么 d/n 当 然 也 是 。 而 4 和 d/n 绝 不 会 都 大 于 Vn 。 

SEIRI- 得: 费 马 (1601 一 1665) 是 现代 数论 的 黄 基 人 ， 他 得 出 了 许多 有 关 数 论 的 重要 理论 结果 ， 但 他 通 
常 只 是 通告 这 些 结果 ， 而 没有 提供 证 明 。 费 马 小 定理 是 在 1640 年 他 所 写 的 一 封 信里 提 到 的 ， 公 开发 表 的 第 
一 个 证 明 由 欧 拉 在 1736 年 给 出 (更 早 一 些 ， 同 样 的 证 明 也 出 现在 莱 布 尼 茨 的 未 发 表 的 手稿 中 )。 费 马 的 最 著 
名 结果 一 一 称 为 费 马 的 最 后 定理 一 一 是 1637 年 草草 写 在 他 所 读 的 书籍 《算术 》 里 (3 世纪 希腊 数学 家 丢 番 图 
所 著 )， 还 带 有 一 句 注释 “我 已 经 发 现 了 一 个 极其 美妙 的 证 明 ， 但 这 本 书 的 边栏 太 小 ， 无 法 将 它 写 在 这 里 ”。 
找 出 费 马 最 后 定理 的 证 明成 为 数论 中 最 著名 的 挑战 。 完 整 的 解 最 终 由 普林斯顿 大 学 的 安德鲁 : 怀 尔 斯 在 
1995 年 给 出 。 
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费 马 小 定理 : 如 果 " 是 一 个 素数 ，4 是 小 于 /的 任意 正 整 数 ， 那 么 e 的 nz 次 方 与 a 模 2 同 余 。 
(两 个 数 称 为 是 模 n 同 余 ， 如 果 它 们 除 以 4 的 余数 相同 。 数 a 除 以 n 的 余数 称 为 4 取 模 n 的 余数 ,或 
简称 为 a 取 模 n)。 

如 果 1 不 是 素数 ， 那 么 ， 一 般 而 言 ， 大 部 分 的 e< mx 都 将 满足 上 面 关 系 。 这 就 引出 了 下 面 这 
个 检查 素数 的 算法 : 对 于 给 定 的 整数 +， 随机 任 取 一 个 a<n 并 计算 出 a" 取 模 n 的 余数 。 如 果 得 
到 的 结果 不 等 于 a， 那 么 n 就 肯定 不 是 素数 。 如 果 它 就 是 4， 那 么 n 是 素数 的 机 会 就 很 大 。 现 在 
再 另 取 一 个 随机 的 a 并 采用 同样 方式 检查 。 如 果 它 满足 上 述 等 式 ， 那 么 我 们 就 能 对 nn 是 素数 有 
更 大 的 信心 了 。 通 过 检查 越 来 越 多 的 a 值 ， 我 们 就 可 以 不 断 增加 对 有 关 结 果 的 信心 。 这 一 算法 

为 了 实现 费 马 检查 ， 我 们 需要 有 一 个 过 程 来 计算 一 个 数 的 寡 对 另 一 个 数 取 模 的 结果 : 

(define (expmod base exp m) 

(cond ((= exp 0) 1) 
((even? exp) 
(remainder (square (expmod base (/ exp 2) m)) 
(else É 


(remainder (* base (expmod base (- exp 1) m)) 
m)))) 


这 个 过 程 很 像 1.2.4 节 的 East -expt 过 程 ， 它 采用 连续 求 平方 的 方式 ， 使 相对 于 计算 中 指数 ， 
步 数 增长 的 阶 是 对 数 的 ”。 

执行 费 马 检查 需要 选取 位 于 1 和 n 一 1 之 间 (包含 这 两 者 ) 的 数 a， 而 后 检查 a 的 n 次 笑 取 模 n 
的 余数 是 否 等 于 a。 随 机 数 a 的 选取 通过 过 程 random 完 成 ,我 们 假定 它 已 经 包含 在 Scheme 的 
基本 过 程 中 ， 它 返回 比 其 整数 输入 小 的 某 个 非 负 整数 。 这 样 ， 要 得 到 1 和 n 一 1 之 间 的 随机 数 ， 
只 需 用 输入 n 一 1 去 调用 random， 并 将 结果 加 1: 

(define (fermat-test n) 

(define (try-it a) 


(= (expmod a n n) a)) 


(try-it (+ 1 (random (- n 1))))) 
下 面 这 个 过 程 的 参数 是 某 个 数 ， 它 将 按照 由 另 一 参数 给 定 的 次 数 运行 上 述 检查 。 如 果 每 
次 检查 都 成 功 ， 这 一 过 程 的 值 就 是 真 ， 否 则 就 是 假 : 
(define (fast-prime? n times) 
(cond ((= times 0) true) 


((fermat-test n) (fast-prime? n (- times 1))) 


(else false) )) 
概率 方法 
从 特征 上 看 ， 费 马 检查 与 我 们 前 面 已 经 熟悉 的 算法 都 不 一 样 。 前 面 那些 算法 都 保证 计算 
的 结果 一 定 正确 ， 而 费 马 检查 得 到 的 结果 则 只 有 概率 上 的 正确 性 。 说 得 更 准确 些 ， 如 果 数 zx 不 


4% 对 于 指数 值 e 大 于 1 的 情况 ， 所 采用 归 约 方式 是 基于 下 面 事实 : 对 任意 的 x-、y 和 m， 我 们 总 可 以 通过 分 别 计算 x 
取 模 m 和 y 取 模 m， 而 后 将 它们 乘 起 来 之 后 取 模 m， 得 到 x 乘 y 取 模 的 余数 。 例 如 ， 在 e 是 偶数 时 ， 我 们 计算 b 取 
模 m 的 余数 ， 求 它 的 平方 ， 而 后 再 求 它 取 模 m 的 余数 。 这 种 技术 非常 有 用 ， 因 为 它 意 味 着 我 们 的 计算 中 不 需要 
去 处 理 比 m 大 很 多 的 数 (请 与 练习 1.25 比 较 )。 
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能 通过 费 马 检查 ， 我 们 可 以 确信 它 一 定 不 是 素数 。 而 ?通过 了 这 一 检查 的 事实 只 能 作为 它 是 素 
数 的 一 个 很 强 的 证 据 ， 但 却 不 是 对 "为 素数 的 保证 。 我 们 能 说 的 是 ， 对 于 任何 数 上 ， 如 果 执 行 
这 一 检查 的 次 数 足够 多 ， 而 且 看 到 ”通过 了 检查 ， 那 么 就 能 使 这 一 素数 检查 出 错 的 概率 减 小 到 
所 需要 的 任意 程度 。 

不 幸 的 是 ， 这 一 断言 并 不 完全 正确 。 因 为 确实 存在 着 一 些 能 骗 过 费 马 检 查 的 整数 : 某 些 
数 n 不 是 素数 但 却 具有 这 样 的 性 质 ， 对 任意 整数 a<n， 都 有 a" 与 a 模 n 同 余 。 由 于 这 种 数 极其 罕 
见 ， 因 此 费 马 检查 在 实践 中 还 是 很 可 靠 的 "。 也 存在 着 一 些 费 马 检 查 的 不 会 受骗 的 变形 ， 它 们 
也 像 费 马 方法 一 样 ， 在 检查 整数 n 是 否 为 素数 时 ， 选 择 随机 的 整数 a<n 并 去 检查 某 些 依赖 于 n 
和 a 的 关系 (练习 1.28 是 这 类 检查 的 一 个 例子 )。 另 一 方面 ， 与 费 马 检 查 不 同 的 是 可 以 证 明 ， 
对 任意 的 数 *， 相 应 条 件 对 整数 a<n 中 的 大 部 分 都 不 成 立 ， 除 非 n 是 素数 。 这 样 ， 如 果 n 对 某 个 
随机 选 出 的 a 能 通过 检查 ，n 是 素数 的 机 会 就 大 于 一 半 。 如 果 n 对 两 个 随机 选择 的 a 能 通过 检查 ， 
n 是 素数 的 机 会 就 大 于 四 分 之 三 。 通 过 用 更 多 随机 选择 的 a 值 运 行 这 一 检查 ， 我 们 可 以 使 出 现 
错误 的 概率 减 小 到 所 需要 的 任意 程度 。 

能 够 证 明 ， 存 在 着 使 这 样 的 出 错 机 会 达到 任意 小 的 检查 算法 ， 激 发 了 人 们 对 这 类 算法 的 
极 大 兴趣 ， 已 经 形成 了 人 所 共 知 称 为 概率 算法 的 领域 。 在 这 一 领域 中 已 经 有 了 大 量 研究 工作 ， 
概率 算法 也 已 被 成 功 地 应 用 于 许多 重要 领域 *。 

练习 1.21 使 用 smallest-divisor 过 程 找 出 下 面 各 数 的 最 小 因子 : 199, 1999, 19999, 

练习 1.22 大 部 分 Lisp 实 现 都 包含 一 个 runtime 基 本 过 程 ， 调 用 它 将 返回 一 个 整数 ， 表 示 
系统 已 经 运行 的 时 间 (例如 ， 以 微 秒 计 )。 在 对 整数 n 调 用 下 面 的 timed-prime-test 过 程 
时 ,将 打印 出 n 并 检查 n 是 否 为 素数 。 如 果 n 是 素数 ,过程 将 打印 出 三 个 星 号 ， 随 后 是 执行 这 一 
检查 所 用 的 时 间 量 。 


(define (timed-prime-test n) 
(newline) 
(display n) 
(start-prime-test n (runtime) )) 


(define (start-prime-test n start-time) 
(if (prime? n) 


(report-prime (- (runtime) start-time)))) 


(define (report-prime elapsed-time) 
(display " *** ") 
(display elapsed-time) ) 


请 利用 这 一 过 程 写 一 个 search-for-primes 过 程 ， 它 检查 给 定 范围 内 连续 的 各 个 奇数 的 


能够 骗 过 费 马 检 查 的 数 称 为 Carmichael 数 ， 我 们 对 它们 知之 其 少 ， 只 知 其 非常 军 见 。 在 100 000 000 之 内 有 255 
个 Carmichael 数 ， 其 中 最 小 的 几 个 是 561、1105、1729、2465、2821 和 6601。 在 检查 很 大 的 数 是 否 为 素数 时 ， 
所 用 选择 是 随机 的 。 撞 上 能 欺骗 费 马 检查 的 值 的 机 会 比 字 宙 射线 导致 计算 机 在 执行 “正确 ”算法 中 出 错 的 机 
会 还 要 小 。 对 算法 只 考虑 第 一 个 因素 而 不 考虑 第 二 个 因素 恰好 表现 出 数学 与 工程 的 不 同 。 

“概率 素数 检查 的 最 惊人 应 用 之 一 是 在 密码 学 的 领域 中 。 虽 然 完成 200 位 数 的 因数 分 解 现在 在 计算 上 还 是 不 现实 
的 , 但 用 费 马 检 查 却 可 以 在 几 秒 钟 内 判断 这 么 大 的 数 的 素性 。 这 一 事实 成 为 Rivest、Shamir 和 Adleman (1977) 
提出 的 一 种 构造 “不 可 挫 毁 的 密码 ”的 技术 基础 ， 这 一 RSA 算 法 已 成 为 提高 电子 通信 安全 性 的 一 种 使 用 广泛 
的 技术 。 因 为 这 项 研究 和 其 他 相关 研究 的 发 展 ， 素 数 研 究 这 一 曾 被 认为 是 “纯粹 ”数学 的 缩影 ， 是 仅仅 因为 
其 自身 原因 而 被 研究 的 课题 ， 现 在 已 经 变 成 在 密码 学 、 电 子 资金 流通 和 信息 查询 领域 里 有 重要 实际 应 用 的 问 
题 了 。 
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素性 。 请 用 你 的 过 程 找 出 大 于 1 000, AF10 000, AF100 000 和 大 于 1 000 000 的 三 个 最 小 
的 素数 。 请 注意 其 中 检查 每 个 素数 所 需要 的 时 间 。 因 为 这 一 检查 算法 具有 9(Va ) 的 增长 阶 ， 
你 可 以 期 望 在 10 000 附 近 的 素数 检查 的 耗 时 大 约 是 在 1 000 附 近 的 素数 检查 的 V10 倍 。 你 得 到 
的 数据 确实 如 此 吗 ? 对 于 100 000 和 1 000 000 得 到 的 数据 ， 对 这 一 yn 预测 的 支持 情况 如 何 ? 
有 人 说 程序 在 你 的 机 器 上 运行 的 时 间 正 比 于 计算 所 需 的 步 数 ， 你 得 到 的 结果 符合 这 种 说 法 
吗 ? 

练习 1.23 在 本 市 开始 时 给 出 的 那个 smallest -divisor 过 程 做 了 许多 无 用 检查 : EE 
检查 了 一 个 数 是 否 能 被 2 整除 之 后 , 实际 上 已 经 完全 没 必 要 再 检查 它 是 否 能 被 任何 偶数 整除 了 。 
这 说 明 test-divisor 所 用 的 值 不 应 该 是 2，3，4，5，6，...， 而 应 该 是 2，3, 5,，7，9，...。 
请 实现 这 种 修改 。 甚 中 应 定义 一 个 过 程 next ， 用 2 调用 时 它 返 回 3， 否 则 就 返回 其 输入 值 加 2。 
修改 smallest-divisor 过 程 ， 使 它 去 使 用 (next test-divisor) 而 不 是 (+test- 
divisor 1)。iFtimed-prime-test 结 合 这 个 smallest-divisor 版 本 ， 运 行 练习 1.22 
里 的 12 个 找 素数 的 测试 。 因 为 这 一 修改 使 检查 的 步 数 减少 一 半 ， 你 可 能 期 望 它 的 运行 速度 快 
一 倍 。 实 际 情况 符合 这 一 预期 吗 ? 如 果 不 符合 ， 你 所 观察 到 的 两 个 算法 速度 的 比值 是 什么 ? 
你 如 何 解释 这 一 比值 不 是 2 的 事实 ? 

练习 1.24 ”修改 练习 1.22 的 timed-prime-test 过 程 ， 让 它 使 用 fast -prime? (#4 
方法 ) ， 并 检查 你 在 该 练习 中 找 出 的 12 个 素数 。 因 为 费 马 检查 具有 @(1og n) 的 增长 速度 ， 对 
接近 1 000 000 的 素数 检查 与 接近 1000 的 素数 检查 作对 期 望 时 间 之 间 的 比较 有 怎样 的 预期 ? 你 
的 数据 确实 表明 了 这 一 预期 吗 ? 你 能 解释 所 发 现 的 任何 不 符合 预期 的 地 方 吗 ? 

练习 1.25 Alyssa P. Hacker 提 出 ， 在 写 sxpmod 时 我 们 做 了 过 多 的 额外 工作 。 她 说 ， 毕 况 
我 们 已 经 知道 怎样 计算 乘 居 ， 因 此 只 需要 简单 地 写 : 


(define (expmod base exp m) 
(remainder (fast-expt base exp) m)) 
她 说 的 对 吗 ? 这 一 过 程 能 很 好 地 用 于 我 们 的 快速 素数 检查 程序 吧 ? 请 解释 这 些 问 题 。 
练习 1.26 Louis Reasoner 在 做 练习 1.24 时 遇 到 了 很 大 困难 ， 他 的 East-prime? 检 查看 起 
来 运行 得 比 他 的 prime? 检 查 还 慢 。Louis 请 他 的 朋友 Eva Lu Ator 过 来 帮忙 。 在 检查 Louis 的 代 
码 时 ， 两 个 人 发 现 他 重 写 了 expmod 过 程 ， 其 中 用 了 一 个 显 式 的 乘法 ， 而 没有 调用 square: 
(define (expmod base exp m) 
(cond ((= exp 0) 1) 
((even? exp) 
(remainder (* (expmod base (/ exp 2) m) 
(expmod base (/ exp 2) m)) 
m) ) 
(else 
(remainder (* base (expmod base (- exp 1) m)) 
m)))) 


“我 看 不 出 来 这 会 造成 什么 不 同 , ”Louis 说 。 "我 能 看 出 , ”Eva 说 ,“ 采 用 这 种 方式 写 出 该 过 程 
时 ， 你 就 把 一 个 9(dog n) 的 计算 过 程 变 成 9(n) 的 了 。” 请 解释 这 一 问题 。 

练习 1.27 证 明 脚注 47 中 列 出 的 Carmichael 数 确实 能 骗 过 费 马 检查 。 也 就 是 说 ， 写 一 个 过 
程 ， 它 以 整数 n 为 参数 ， 对 每 个 4a<n 检 查 a" 是 否 与 a 模 n 同 余 。 用 你 的 过 程 去 检查 前 面 给 出 的 那 


些 Carmichael 数 。 
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练习 1.28 ” 费 马 检 查 的 一 种 不 会 被 欺骗 的 变形 称 为 Miller-Rabin 检 查 (Miller 1976; Rabin 
1980)， 它 来 源 于 费 马 小 定理 的 一 个 变形 。 这 一 变形 断言 ， 如 果 n 是 素数 ，a 是 任何 小 于 n 的 整 
数 ， 则 a 的 (n 一 1) 次 竹 与 1 模 n 同 余 。 要 用 Miller-Rabin 检 查考 察 数 n 的 素性 ， 我 们 应 随机 地 取 一 
个 数 a<n 并 用 过 程 expmod 求 4 的 (n—1) eR nH. Ai, 在 执行 expmod 中 的 平方 步骤 时 ， 
我 们 需要 查看 是 否 遇 到 了 “1 取 模 n 的 非 平 几 平方 根 ”"， 也 就 是 说 ， 是 不 是 存在 不 等 于 1 或 者 n 一 
1 的 数 ， 其 平方 取 模 n 等 于 1。 可 以 证 明 ， 如 果 1 的 这 种 非 平 几 平 方 根 存在 ， 那 么 n 就 不 是 素数 。 
还 可 以 证 明 ， 如 果 n 是 非 素数 的 奇数 ， 那 么 ， 至 少 有 一 半 的 数 a<n， 按 照 这 种 方式 计算 a”， 
将 会 遇 到 1 取 模 n 的 非 平 几 平 方 根 。 这 也 是 Miller-Rabin 检 查 不 会 受骗 的 原因 。 请 修改 expmod 
过 程 ， 让 它 在 发 现 1 的 非 平 凡 平 方 根 时 报告 失败 ， 并 利用 它 实现 一 个 类 似 于 fermat -test 的 
过 程 ， 完 成 Miller-Rabin 检 查 。 通 过 检查 一 些 已 知 素数 和 非 素数 的 方式 考验 你 的 过 程 。 提 示 : 
送出 失败 信号 的 一 种 简单 方式 就 是 让 它 返 回 0。 


1.3 用 高 阶 函 数 做 抽象 


我 们 已 经 看 到 ， 在 作用 上 ， 过 程 也 就 是 一 类 抽象 ， 它 们 描述 了 一 些 对 于 数 的 复合 操作 ， 
但 又 并 不 依赖 于 特定 的 数 。 例 如 ， 在 定义 : 

(define (cube x) (* x x x)) 
时 ， 我 们 讨论 的 并 不 是 某 个 特定 数值 的 立方 ， 而 是 对 任意 的 数 得 到 其 立方 的 方法 。 当 然 ， 我 
们 也 完全 可 以 不 去 定义 这 一 过 程 ， 而 总 是 写 出 下 面 这 样 的 表达 式 : 

(= 2 3° 3) 

(+ x 

kt ¥ ¥ vy) 
并 不 明确 地 提出 cube。 但 是 ， 这 样 做 将 把 自己 置 于 一 个 非常 糟糕 的 境地 ， 人 迫使 我 们 永远 在 语 
言 恰 好 提供 了 的 那些 特定 基本 操作 (例如 这 里 的 乘法 ) 的 层面 上 工作 ， 而 不 能 基于 更 高 级 的 
操作 去 工作 。 我 们 写 出 的 程序 也 能 计算 立方 ， 但 是 所 用 的 语言 却 不 能 表述 立方 这 一 概念 。 人 
们 对 功能 强大 的 程序 设计 语言 有 一 个 必然 要 求 ， 就 是 能 为 公共 的 模式 命名 ， 建 立 抽 象 ， 而 后 
直接 在 抽象 的 层次 上 工作 。 过 程 提 供 了 这 种 能 力 ， 这 也 是 为 什么 除 最 简单 的 程序 语言 外 ， 其 
他 语言 都 包含 定义 过 程 的 机 制 的 原因 。 

然而 ， 即 使 在 数值 计算 过 程 中 ， 如 果 将 过 程 限 制 为 只 能 以 数 作为 参数 ， 那 也 会 严重 地 限 
制 我 们 建立 抽象 的 能 力 。 经 常 有 一 些 同 样 的 程序 设计 模式 能 用 于 若干 不 同 的 过 程 。 为 了 把 这 
种 模式 描述 为 相应 的 概念 ， 我 们 就 需要 构造 出 这 样 的 过 程 ， 让 它们 以 过 程 作为 参数 ， 或 者 以 
过 程 作为 返回 值 。 这 类 能 操作 过 程 的 过 程 称 为 高 阶 过 程 。 本 证 将 展示 高 阶 过 程 如 何 能 成 为 强 
有 力 的 抽象 机 制 ， 极 大 地 增强 语言 的 表述 能 力 。 


1.3.1 过 程 作为 参数 
考虑 下 面 的 三 个 过 程 ， 第 一 个 计算 从 a 到 5 的 各 整数 之 和 |: 


(define (sum-integers a b) 
(if (> a b) 
0 


(+ a (sum-integers (+ a 1) b)))) 
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第 二 个 计算 给 定 范 围 内 的 整数 的 立方 之 和 : 
(define (sum-cubes a b) 
GE (> & B) 
0 


(+ (cube a) (sum-cubes (+ a 1) b)))) 


第 三 个 计算 下 面 的 序列 之 和 : 


1 1 1 
ada ra T 
1-3 S&F 9-11 
它 将 (非常 缓慢 地 ) 收敛 ”到 mm/8: 
(define (pi-sum a b) 
GE (> a b) 
0 
(+ (Z 1.0 (* a (+ a 2))) (pi-sum (+ a 4) b)))) 


可 以 明显 看 出 ， 这 三 个 过 程 共享 着 一 种 公共 的 基础 模式 。 它 们 的 很 大 一 部 分 是 共同 的 ， 
只 在 所 用 的 过 程 名 字 上 不 一 样 : 用 于 从 a 算出 需要 加 的 项 的 函数 ， 还 有 用 于 提供 下 一 个 a 值 的 
函数 。 我 们 可 以 通过 填充 下 面 模板 中 的 各 空位 ， 产 生出 上 面 的 各 个 过 程 : 


(define (<name> a b) 
(if (> a b) 
0 
(+ (<ferm> a) 


(<name> (<next> a) b)))) 


这 种 公共 模式 的 存在 是 一 种 很 强 的 证 据 ， 说 明 这 里 实际 上 存在 着 一 种 很 有 用 的 抽象 ， 在 
那里 等 着 浮现 出 来 。 确 实 ， 数 学 家 很 早 就 认识 到 序列 求 和 中 的 抽象 模式 ， 并 提出 了 专门 的 
“ 求 和 记 法 ”， 例 如 : 


Š= fo ++ fO) 


用 于 描述 这 一 概念 。 求 和 记 法 的 威力 在 于 它 使 数学 家 能 去 处 理 求 和 的 概念 本 身 ， 而 不 只 是 某 
个 特定 的 求 和 一 一 例如 ， 借 助 它 去 形式 化 某 些 并 不 依赖 于 特定 求 和 序列 的 求 和 结果 。 

与 此 类 似 ， 作 为 程序 模式 ， 我 们 也 希望 所 用 的 语言 足够 强大 ， 能 用 于 写 出 一 个 过 程 ， 去 
表述 求 和 的 概念 ， 而 不 是 只 能 写 计算 特定 求 和 的 过 程 。 我 们 确实 可 以 在 所 用 的 过 寸 程 语言 中 做 
到 这 些 ， 只 要 按照 上 面 给 出 的 模式 ， 将 其 中 的 “空位 ”翻译 为 形式 参数 


(define (sum term a next b) 
(if (> a b) 
0 
(+ (term a) 


(sum term (next a) next b)))) 


请 注意 ，sum 仍 然 以 作为 下 界 和 上 界 的 参数 a 和 b 为 参数 ， 但 是 这 里 又 增加 了 过 程 参 数 term 和 
next。 使 用 sum 的 方式 与 其 他 函数 完全 一 样 。 例 如 ， 我 们 可 以 用 它 去 定义 sum-cubes (还 
需要 一 个 过 程 inc， 它 得 到 参数 值 加 一 ) : 





序列 通常 被 写成 与 之 等 价 的 形式 (0/4) =1— (1/3) + (1/5) — (1/77) 二 …。 这 归功 于 莱 布 尼 茨 。 我 们 
RES. 5.3 节 看 到 如 何 用 它 作为 某 些 数值 技巧 的 基础 。 
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(define (inc n) (+ n 1)) 
(define (sum-cubes a b) 


(sum cube a inc b)) 


我 们 可 以 用 这 个 过 程 算出 从 1 到 10 的 立方 和 : 


(sum-cubes 1 10) 
3025 


利用 一 个 恒 等 函 数 帮助 算出 项 值 ， 我 们 就 可 以 基于 sum 定 义 出 sum-integers: 


(define (identity x) x) 


(define (sum-integers a b) 


(sum identity a inc b)) 


而 后 就 可 以 求 出 从 1 到 10 的 整数 之 和 了 了: 


(sum-integers 1 10) 
55 


我 们 也 可 以 按 同样 方式 定义 pi -sum”: 
(define (pi-sum a b) 
(define (pi-term x) 
U i0 ttx (g 2y) 
(define (pi-next x) 
(+ x 4)) 


(sum pi-term a pi-next b)) 


利用 这 一 过 程 就 能 计算 出 r 的 一 个 近似 值 了 : 
(* 8 (pi-sum 1 1000)) 
3.139592655589783 


39 


一 旦 有 了 sum， 我 们 就 能 用 它 作 为 基本 构件 ， 去 形式 化 其 他 概念 。 例 如 ， 求 出 函数 在 范 


围 z 和 4b 之 间 的 定 积分 的 近似 值 ， 可 以 用 下 面 公 式 完成 
b dx dx dx 
fr [rae E) arar E) garzas E)r 


其 中 的 dx 是 一 个 很 小 的 值 。 我 们 可 以 将 这 个 公式 直接 描述 为 一 个 过 程 : 
(define (integral f a b dx) 
(define (add-dx x) (+ x dx)) 
(* (sum £ (+ a (/ dx 2.0)) add-dx b) 
ax) ) 


(integral cube 0 1 0.01) 
-24998750000000042 


(integral cube 0 1 0.001) 
-249999875000001 


(cube 在 0 和 1 间 积 分 的 精确 值 是 1/4。) 


练习 1.29 “辛普森 规则 是 另 一 种 比 上 面 所 用 规则 更 精确 的 数值 积分 方法 。 采 用 辛普森 规 





SER, REZA (1.1.8 节 介绍 的 ) 块 结构 将 Pi-next 和 Pi-term 人 嵌入 Pi-sum 内 部 ， 因 为 这 些 国 数 不 大 可 


能 用 于 其 他 地 方 。 我 们 将 在 1.3.2 节 说 明 如 何 完全 摆脱 这 种 定义 。 
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则 ， 国 数 /在 范围 c 和 2 之 间 的 定 积分 的 近似 值 是 : 
tiy, +4y, +2y, +4y, +2y, ‘pes 2 +4y,_, +y,] 


其 中 h=(b 一 qa)/n，n 是 某 个 偶数 ， 而 y==f(a+kh)( 增 大 n 能 提高 近似 值 的 精度 )。 请 定义 一 个 
具有 参数 /a、b 和 n， 采 用 辛普森 规则 计算 并 返回 积分 值 的 过 程 。 用 你 的 函数 求 出 cube 在 0 
和 1 之 间 的 积分 (用 n==100 和 n=1000)， 并 将 得 到 的 值 与 上 面 用 integral 过 程 所 得 到 的 结果 
比较 。 

练习 1.30 ”上面 的 过 程 sum 将 产生 出 一 个 线性 递归 。 我 们 可 以 重 写 该 过 程 ， 使 之 能 够 迭代 
地 执行 。 请 说 明 应 该 怎样 通过 填充 下 面 定 义 中 缺少 的 表达 式 ， 完 成 这 一 工作 。 

(define (sum term a next b) 

(define (iter a result) 
(if <??> 
(iter <??> <??>))) 
(iter <??> <??>)) 

练习 1.31 a) 过 程 sum 是 可 以 用 高 阶 过 程 表示 的 大 量 类 似 抽象 中 最 简单 的 一 个 "。 请 写 出 
一 个 类 似 的 称 为 product 的 过 程 ， 它 返回 在 给 定 范围 中 各 点 的 某 个 函数 值 的 乘积 。 请 说 明 如 
何 用 product 定 义 factorial。 另 请 按照 下 面 公式 计算 x 的 近似 值 ”: 

m  2-404<6-6-8-s 
L BAS 

b) anes product it FEE NE eh RE, OB TS HH Ea R EE 
程 的 过 程 。 如 果 它 生成 一 个 迭代 计算 过 程 ， 请 写 一 个 生成 递归 计算 过 程 的 过 程 。 

练习 1.32 a) 请 说 明 ，sum 和 product (练习 1.31) 都 是 另 一 称 为 accumulate 的 更 一 
般 概念 的 特殊 情况 ，accumulate 使 用 某 些 一 般 性 的 累积 函数 组 合 起 一 系列 项 : 


(accumulate combiner null-value term a next b) 


accumulate 取 的 是 与 sum 和 product 一 样 的 项 和 范围 描述 参数 ， 再 加 上 一 个 (两 个 参数 的 ) 
combiner 过 程 ， 它 描述 如 何 将 当前 项 与 前 面 各 项 的 积累 结果 组 合 起 来 ， 另 外 还 有 一 个 
null-value 参 数 ， 它 描述 在 所 有 的 项 都 用 完 时 的 基本 值 。 请 写 出 accumulate， 并 说 明 我 
们 能 怎样 基于 简单 地 调用 accumulate， 定 义 出 sum 和 product 来 。 

b) 如 果 你 的 accumulate 过 程 生成 的 是 一 个 递归 计算 过 程 ， 那 么 请 写 出 一 个 生成 迭代 计 
算 过 程 的 过 程 。 如 果 它 生成 一 个 迭代 计算 过 程 ， 请 写 一 个 生成 递归 计算 过 程 的 过 程 。 

练习 1.33 你 可 以 通过 引进 一 个 处 理 被 组 合 项 的 过 滤器 (filter) 概念 ， 写 出 一 个 比 
accumulate (练习 1.32) 更 一 般 的 版 本 。 也 就 是 说 ， 在 计算 过 程 中 ， 只 组 合 起 由 给 定 范 围 
得 到 的 项 里 的 那些 满足 特定 条 件 的 项 。 这 样 得 到 的 filtered-accumulate 抽 象 取 与 上 面 罕 


51 练习 1.31 一 1.33 的 意图 是 冰释 用 一 个 适当 的 抽象 去 整理 许多 貌似 毫 无 关系 的 操作 ， 所 获得 的 巨大 表达 能 力 。 显 
然 ， 虽 然 累积 和 过 滤器 都 是 很 优美 的 想法 ， 我 们 并 没有 急于 将 它们 用 在 这 里 ， 因 为 我 们 还 没有 数据 结构 的 思 
想 ， 无 法 用 它们 去 提供 组 合 这 些 抽象 的 适当 手段 。 我 们 将 在 2.2.3 节 回 到 这 些 思想 ， 那 时 将 说 明 如 何 用 序列 的 
概念 作为 界面 ， 组 合 起 过 滤器 和 累积 ， 去 构造 出 更 强大 得 多 的 抽象 。 我 们 将 在 那里 看 到 ， 这 些 方 法 本 身 如 何 
能 成 为 设计 程序 的 强 有 力 而 又 非常 优美 的 途径 。 

”了 这 一 公式 是 由 17 世 纪 英 国 数学 家 John Wallis 发 现 的 。 
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积 过 程 同样 的 参数 ， 再 加 上 一 个 另外 的 描述 有 关 过 滤器 的 谓词 参数 。 请 写 出 Eiltered- 
accumulate 作 为 一 个 过 程 ， 说 明 如 何 用 filtered-accumulate 表 达 以 下 内 容 : 

a) 求 出 在 区 间 a 到 b 中 所 有 素数 之 和 (假定 你 已 经 写 出 了 谓词 prime? )。 

b) 小 于 n 的 所 有 与 n 互 素 的 正 整 数 ( 即 所 有 满足 GCD(i, n)= 1 的 整数 :<n) 之 乘积 。 


1.3.2 用 lambda 构 造 过 程 


在 1.3.1 节 里 用 sum 时 ， 我 们 必须 定义 出 一 些 如 pi-term 和 Pi-next 一 类 的 简单 函数 ， 以 
便 用 它们 作为 高 阶 函 数 的 参数 ， 这 种 做 法 看 起 来 很 不 舒服 。 如 果 不 需要 显 式 定义 Pi-tezm 和 
pi-next， 而 是 有 一 种 方法 去 直接 刻画 “那个 返回 其 输入 值 加 4 的 过 程 ” 和 “那个 返回 其 输 
入 与 它 加 2 的 乘积 的 倒数 的 过 程 ”， 事 情 就 会 方便 多 了 。 我 们 可 以 通过 引入 一 种 1ambdaa 特 殊 形 
式 完成 这 类 描述 ， 这 种 特殊 形式 能 够 创建 出 所 需要 的 过 程 。 利 用 1ambda， 我们 就 能 按照 如 下 
方式 写 出 所 需 的 东西 : 


(lambda (x) (+ x 4)) 


和 
(lambda (x) (/ 1.0 (* x (+ x 2)))) 
这 样 就 可 以 直接 描述 pi-sum 过 程 ， 而 无 须 定义 任何 辅助 过 程 了 : 
(define (pi-sum a b) 
(sum (lambda (x) (/ 1.0 (* x (+ x 2)))) 
a 
(lambda (x) (+ x 4)) 
b) ) 
借助 于 lambda， 我 们 也 可 以 写 出 integral 过 程 而 不 需要 定义 辅助 过 程 add-dx: 
(define (integral f a b dx) 
(* (sum f 
(+ a (/ dx 2.0)) 
(lambda (x) (+ x dx)) 
b) 
ax) ) 
一 般 而 言 ，Lambdaa 用 与 aefine 同 样 的 方式 创建 过 程 ， 除 了 不 为 有 关 过 程 提供 名 字 之 外 : 
(lambda (<formal-parameters>) <body>) 
这 样 得 到 的 过 程 与 通过 define 创 建 的 过 程 完 全 一 样 ， 仅 有 的 不 同 之 处 ， 就 是 这 种 过 程 没 有 与 
环境 中 的 任何 名 字 相 关联 。 事 实 上 ， 
(define (plus4 x) (+ X 4)) 
等 价 于 
(define Plus4 (lambda (x) (+ x 4))) 
我 们 可 以 按 如 下 方式 来 阅读 lambda 表 达 式 : 


(lambda (x) (+ x 4)) 


1 1 1 1 I 


该 过 程 。 以 x 为 参数 它 加 起 x 和 4 
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像 任何 以 过 程 为 值 的 表达 式 一 样 ，lambda 表 达 式 可 用 作 组 合式 的 运算 符 ， 例 如 : 


((lambda (x y z) (+ x y (square z))) 1 2 3) 
12 

或 者 更 一 般 些 ， 可 以 用 在 任何 通常 使 用 过 程 名 的 上 下 文中 ”。 
用 1et 创 建 局 部 变量 


lambda 的 另 一 个 应 用 是 创建 局 部 变量 。 在 一 个 过 程 里 ， 除 了 使 用 那些 已 经 约束 为 过 程 参 
数 的 变量 外 ， 我 们 常常 还 需要 另外 一 些 局 部 变量 。 例 如 ， 假 定 我 们 希望 计算 函数 : 
f(x, yy=xC + xy} +y(1—y)+(1+xy)(1—y) 
可 能 就 希望 将 它 表 述 为 : 
a=1+xy 
b=1-y 
fx, y)=xa* + yb+ab 
在 写 计 算 了 的 过 程 时 ， 我 们 可 能 希望 还 有 几 个 局 部 变量 ， 不 只 是 xz 和 >y， 还 有 中 间 值 的 名 字 如 4 
和 b。 做 到 这 些 的 一 种 方式 就 是 利用 辅助 过 程 去 约束 局 部 变量 : 
(define (f x y) 
(define (f-helper a b) 
(+ (* x (square a)) 
(* y b) 
(* a b))) 


(f-helper (+ 1 (* x y)) 
(= 1 Y))) 
当然 ， 我 们 也 可 以 用 一 个 lambda 表 达 式 ， 用 以 描述 约束 局 部 变量 的 匿名 过 程 。 这 样 ，f 
的 体 就 变 成 了 一 个 简单 的 对 该 过 程 的 调用 : 
(define (f x y) 
((lambda (a b) 
(+ (* x (square a)) 
(* y b) 
(* a, b))) 
(+ 2 (+y 
t= 1 y))) 
这 一 结构 非常 有 用 ， 因 此 ， 语 言 里 有 一 个 专门 的 特殊 形式 称 为 let ， 使 这 种 编程 方式 更 为 广 
便 。 利 用 let ， 过 程 上 可 以 写 为 : 
(define (f x y) 
(let ((a (+ 1 (* x y))) 
(b (- 1 y))) 
(+ (* x (square a)) 
(* y5 
(* a b)))) 


3 对 于 学 习 Lisp 的 人 而 言 ， 如 果 用 一 个 比 1ambda 更 明确 的 名 字 ， 如 make-procedure， 可 能 会 觉得 更 清楚 。 
但 是 习惯 成 自然 ， 这 一 记 法 形式 取 自 4 演算 ， 那 是 由 数理 逻辑 学 家 丘 奇 (Alonzo Church 1941) 引进 的 一 种 数 
学 记 法 ， 为 研究 函数 和 函数 应 用 提供 一 个 严格 的 基础 。1 演 算 已 经 成 为 程序 设计 语言 语义 的 数学 基石 。 
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let 表 达 式 的 一 般 形式 是 : 
(let ( (<yvari> <expi>) 


(<var,> <exp2>) 


(<var,> <exp,>) ) 


<body>) 

可 以 将 它 读 作 : 
令 <var> 具有 值 <expi> mH. 
<var;> 具有 值 <exp;> mH. 


<var,> HAIE <exp,> 
在 <body> 中 
let 表 达 式 的 第 一 部 分 是 个 名 字 - 表 达 式 对 偶 的 表 ， 当 1let 被 求 值 时 ， 这 里 的 每 个 名 字 将 被 关 
联 于 对 应 表达 式 的 值 。 在 将 这 些 名 字 约 束 为 局 部 变量 的 情况 下 求 值 1et 的 体 。 这 一 做 法 正好 
使 et 表达 式 被 解释 为 替代 如 下 表达 式 的 另 一 种 语法 形式 ， 
((lambda (<var;> ...<var,>) 


<body>) 


<exp\> 


<expn>) 
这 样 ， 解 释 器 里 就 不 需要 为 提供 局 部 变量 增加 任何 新 机 制 。1et 表 达 式 只 是 作为 其 基础 的 
lambda 表 达 式 的 语法 外 衣 罢 了 。 

根据 这 一 等 价 关系 ,我们 可 以 认为 ， 由 let 表 达 式 描述 的 变量 的 作用 域 就 是 该 let 的 体 ， 


这 也 意味 着 : 
*let 使 人 能 在 尽 可 能 接近 其 使 用 的 地 方 建立 局 部 变量 约束 。 例 如 ， 如 果 x 的 值 是 5， 下 面 
表达 式 


(+ (let ((x 3)) 
(+ x (* x 10))) 


x) 
就 是 38。 在 这 里 ， 位 于 let 体 里 的 x 是 3， 因 此 这 一 let 表 达 式 的 值 是 33。 另 一 方面 ， 作 
为 最 外 层 的 十 的 第 二 个 参数 的 x 仍 然 是 5。 
* 变量 的 值 是 在 let 之 外 计算 的 。 在 为 局 部 变量 提供 值 的 表达 式 依赖 于 某 些 与 局 部 变量 同 
名 的 变量 时 ， 这 一 规定 就 起 作用 了 。 例 如 ， 如 果 x 的 值 是 2， 表 达 式 : 


(let ((x 3) 
(y (+ x 2))) 
(* x yy) 


将 具有 值 12， 因 为 在 这 里 let 的 体 里 ，x 将 是 3 而 y 是 4 (其 值 是 外 面 的 x 加 2)。 
有 时 我 们 也 可 以 通过 内 部 定义 得 到 与 et 同样 的 效果 。 例 如 可 以 将 上 述 f 定 义 为 : 
(define (f x y) 


(define a (+ 1 (* x y))) 
(define b (- 1 y)) 








(+ (* x (square a)) 
(* y b) 
(* a b))) 
当然 ， 在 这 种 情况 下 我 们 更 愿意 用 let ， 而 仅 将 aefine 用 于 内 部 过 程 ?。 
练习 1.34 假定 我 们 定义 了 : 
(define (f g) 
(g 2)) 


而 后 就 有 : 


(f square) 
4 


(£ (lambda (z) (* z (+ z1)))) 
6 


如 果 我 们 (坚持 ) 要 求解 释 器 去 求 值 (E£ £)， 那 会 发 生 什么 情况 呢 ” 请 给 出 解释 。 
1.3.3 过程 作为 一 般 性 的 方法 


我 们 在 1.1.4 节 里 介绍 了 复合 过 程 ， 是 为 了 作为 一 种 将 若干 操作 的 模式 抽象 出 来 的 机 制 ， 
使 所 描述 的 计算 不 再 依赖 于 所 涉及 的 特定 的 数值 。 有 了 高 阶 过 程 ， 例 如 1.3.1 市 的 ijntegral 过 
程 ， 我 们 开始 看 到 一 种 威力 更 强大 的 抽象 ， 它 们 也 是 一 类 方法 ， 可 用 于 表述 计算 的 一 般 性 过 
程 ， 与 其 中 所 涉及 的 特定 函数 无 关 。 本 市 将 讨论 两 个 更 精细 的 实例 一 一 找 出 函数 零点 和 不 动 点 
的 一 般 性 方法 ， 并 说 明 如 何 通过 过 程 去 直接 描述 这 些 方 法 。 
通过 区 间 折 半 寻 找 方 程 的 根 
区 间 折 半 方 法 是 寻找 方程 fx) = 0 根 的 一 种 简单 而 又 强 有 力 的 方法 ， 这 里 的 了 是 一 个 连续 
函数 。 这 种 方法 的 基本 想法 是 ， 如 果 对 于 给 定点 a 和 b 有 fla)<0<fb)， 那 么 了 在 a 和 4b 之 间 必 然 
有 一 个 零点 。 为 了 确定 这 个 零点 ， 令 x 是 a 和 4b 的 平均 值 并 计算 出 fx)。 如 果 fx)>>0， 那 么 在 a 
和 x 之 间 必 然 有 的 一 个 了 的 零点 ;如果 ftx)<0， 那 么 在 x 和 lb 之 间 必 然 有 的 一 个 f 的 零点 。 继 续 
这 样 做 下 去 ， 就 能 确定 出 越 来 越 小 的 区 间 ， 且 保证 在 其 中 必然 有 f 的 一 个 零点 。 当 区 间 “ 足 
够 小 ”时 ， 就 结束 这 一 计算 过 程 了 。 因 为 这 种 不 确定 的 区 间 在 计算 过 程 的 每 一 步 都 缩小 一 半 ， 
所 需 步 数 的 增长 将 是 B@(log(L/T))， 其 中 LL 是 区 间 的 初始 长 度 ，7T 是 可 容忍 的 误差 ( 即 认为 “ 足 
够 小 ”的 区 间 的 大 小 )。 下 面 是 一 个 实现 了 这 一 策略 的 过 程 : 
(define (search f neg-point pos-point) 
(let ((midpoint (average neg-point pos-point) )) 
(if (close-enough? neg-point pos-point) 
midpoint 
(let ((test-value (f midpoint) )) 
(cond ((positive? test-value) 


(search f neg-point midpoint) ) 


( (negative? test-value) 


4 要 很 好 地 理解 内 部 定义 ， 保 证 一 个 程序 的 意义 确实 是 我 们 所 希望 的 那个 意义 ， 实 际 上 要 求 另 一 个 比 我 们 在 本 
章 给 出 的 求 值 计算 过 程 更 精细 的 模型 。 然 而 这 一 难以 捉摸 的 问题 不 会 出 现在 过 程 内 部 定义 方面 。 我 们 将 在 对 
求 值 有 了 更 多 理解 之 后 ， 在 4.1.6 节 回 到 这 一 问题 。 
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(search f midpoint pos-point) ) 


(else midpoint)))))) 


假定 开始 时 给 定 了 函数 f， 以 及 使 它 取 值 为 负 和 为 正 的 两 个 点 。 我 们 首先 算出 两 个 给 定点 
的 中 点 ， 而 后 检查 给 定 区 间 是 否 已 经 足够 小 。 如 果 是 的 话 ， 就 返回 这 一 中 点 的 值 作 为 回答 ， 
否则 就 算出 了 在 这 个 中 点 的 值 。 如 果 检 查 发 现 得 到 的 这 个 值 为 正 ， 那 么 就 以 从 原来 负 点 到 中 
点 的 新 区 间 继 续 下 去 ， 如 果 这 个 值 为 负 ， 就 以 中 点 到 原来 为 正 的 点 为 新 区 间 并 继续 下 去 。 还 
有 ， 也 存在 着 检测 值 恰好 为 0 的 可 能 性 ， 这 时 中 点 就 是 我 们 所 寻找 的 根 。 
为 了 检查 两 个 端点 是 否 “ 足 够 接近 ”， 我 们 可 以 用 一 个 过 程 ， 它 与 1.1.7 市 计算 平方 根 时 所 
用 的 那个 过 程 很 类 似 ”: 
(define (close-enough? x Y) 
(< (abs (= x y)) 0.001)) 
search 很 难 直 接 去 用 ， 因 为 我 们 可 能 会 偶然 地 给 了 它 一 对 点 ， 相 应 的 了 值 并 不 具有 这 个 
过 程 所 需 的 正 负 号 ， 这 时 就 会 得 到 错误 的 结果 。 让 我 们 换 一 种 方式 ， 通 过 下 面 的 过 程 去 用 
search， 这 一 过 程 检查 是 否 某 个 点 具有 人 负 的 函数 值 ， 另 一 个 点 是 正 值 ， 并 根据 具体 情况 去 调 
用 search 过 程 。 如 果 这 一 函数 在 两 个 给 定点 的 值 同 号 ， 那 么 就 无 法 使 用 折 半 方法 ， 在 这 种 情 
况 下 过 程 发 出 错误 信号 “。 
(define (half-interval-method f a b) 
(let ((a-value (f a)) 
(b-value (f b))) 
(cond ((and (negative? a-value) (positive? b-value) ) 
(search f a b)) 
((and (negative? b-value) (positive? a-value) ) 
(search f b a)) 


(else 


(error "Values are not of opposite sign" a b))))) 


下 面 实 例 用 折 半 方法 求 x 的 近似 值 ， 它 正好 是 sin x=0 在 2 和 4 之 间 的 根 : 
(half-interval-method sin 2.0 4.0) 
3.14111328125 


iE PA, MI EDAR H — 2x — 3 = O7E 1 Fl2 Z IA AAR : 
(half-interval-method (lambda (x) (- (* x x x) (* 2 x) 3)) 
1.0 
2.0) 
1.89306640625 


找 出 函数 的 不 动 点 
数 x 称 为 函数 f 的 不 动 点 ， 如 果 x 满 足 方程 fxz)=x。 对 于 某 些 国 数 ， 通 过 从 某 个 初始 猜测 
出 发 ,反复 地 应 用 了 
FŒ, FFD, FEAS), ... 


”这 里 用 0.001 作 为 示意 性 的 “小 ” 数 ， 表 示 计 算 中 可 以 接受 的 容许 误差 。 实 际 计算 中 所 适用 的 容许 误差 依赖 于 
被 求解 的 问题 ， 以 及 计算 机 和 算法 的 限制 。 这 一 问题 常常 需要 很 细节 的 考虑 ， 需 要 数值 专家 或 者 某 些 其 他 类 
型 术士 们 的 帮助 。 

”用 error 可 以 完成 此 事 ， 该 过 程 以 几 个 项 作为 参数 ， 将 它们 打印 出 来 作为 出 错 信息 。 
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直到 值 的 变化 不 大 时 ， 就 可 以 找到 它 的 一 个 不 动 点 。 根 据 这 个 思路 ， 我 们 可 以 设计 出 一 个 过 
程 fixed-point， 它 以 一 个 函数 和 一 个 初始 猜测 为 参数 ， 产 生出 该 函数 的 一 个 不 动 点 的 近似 
值 。 我 们 将 反复 应 用 这 个 函数 ， 直 至 发 现 连 续 的 两 个 值 之 差 小 于 某 个 事先 给 定 的 容许 值 : 
(define tolerance 0.00001) 
(define (fixed-point f first-guess) 
(define (close-enough? vl v2) 
(< (abs (- vl v2)) tolerance) ) 
(define (try guess) 
(let ((next (f guess) )) 
(if (close-enough? guess next) 
next 
(try next) ))) 
(try first-guess) ) 
例如 ， 下 面 用 这 一 方法 求 出 的 是 余弦 国 数 的 不 动 点 ， 其 中 用 1 作为 初始 近似 值 了 : 
(fixed-point cos 1.0) 
-7390822985224023 


类 似 地 ， 我 们 也 可 以 找 出 方程 y=sin y+ cos y 的 一 个 解 : 


(fixed-point (lambda (y) (+ (sin y) (cos y))) 
1.0) 
1.2587315962971173 


这 一 不 动 点 的 计算 过 程 使 人 回忆 起 1.1.7 闻 里 用 于 找平 方 根 的 计算 过 程 。 两 者 都 是 基于 同 
样 的 想法 : 通过 不 断 地 改进 猜测 ， 直 至 结果 满足 某 一 评价 准则 为 止 。 事 实 上 ， 我 们 完全 可 以 
将 平方 根 的 计算 形式 化 为 一 个 寻找 不 动 点 的 计算 过 程 。 计 算 某 个 数 x 的 平方 根 ， 就 是 要 找到 一 
个 y 使 得 y= 二 x。 将 这 一 等 式 变 成 男 一 个 等 价 形式 y=x/y， 就 可 以 发 现 ， 这 里 要 做 的 就 是 寻找 函 
数 y x/y 的 不 动 点 ”。 因 此 ， 可 以 用 下 面 方式 试 着 去 计算 平方 根 : 

(define (sqrt x) 

(fixed-point (lambda (y) (/ x y)) 
1.0)) 

遗憾 的 是 ， 这 一 不 动 点 搜寻 并 不 收敛 。 考 虑 某 个 初始 猜测 y， 下 一 个 猜测 将 是 ys =x/y1， 
而 再 下 一 个 猜测 是 y3==x/y2 二 x/(x/y1) 二 1。 结果 是 进入 了 一 个 无 限 循 环 ， 其 中 没完 没 了 地 反复 
出 现 两 个 猜测 y, 和 y,， 在 答案 的 两 边 往 复 振荡 。 

控制 这 类 振荡 的 一 种 方法 是 不 让 有 关 的 猜测 变化 太 剧烈 。 因 为 实际 答案 总 是 在 两 个 猜测 y 
和 x/y 之 间 ， 我 们 可 以 做 出 一 个 猜测 ， 使 之 不 像 x/y 那 样 远离 >»， 为 此 可 以 用 y 和 x/y 的 平均 值 。 这 
样 ， 我 们 就 取 y 之 后 的 下 一 个 猜测 值 为 (1/2)Q ay) 而 不 是 x/y。 做 出 这 种 猜测 序列 的 计算 过 程 
也 就 是 搜寻 y 己 (1/2)Q + x/y) 的 不 动 点 : 

(define (sqrt x) 


(fixed-point (lambda (y) (average y (/ x y))) 
1.0) ) 


7 在 一 个 没意思 的 课 上 试 试 下 面 计算 : 将 你 的 计数 器 设置 为 弧度 模式 ， 而 后 反复 按 cos 键 直至 你 得 到 了 这 一 不 
动 点 。 

Sio (GRE “IHR ) 是 数学 家 写 lambda 的 方式 ，y Px/y 的 意思 就 是 (lambda (y) (/ x y)), 也 就 是 说 ， 
那个 在 y 处 的 值 为 x/y 的 函数 。 
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(请 注意 ，y=(1/2)(y 十 x/y) 是 方程 y=x/y 经 过 简单 变换 的 结果 ， 导 出 它 的 方式 是 在 方程 两 边 都 
加 >， 然 后 将 两 边 都 除 以 2。) 

经 过 这 一 修改 ,平方 根 过 程 就 能 正常 工作 了 。 事 实 上 ， 如 果 我 们 仔细 分 析 这 一 定义 ， 那 
么 就 可 以 看 到 ， 它 在 求 平方 根 时 产生 的 近似 值 序列 ， 正 好 就 是 1.1.7 节 原来 那个 求 平方 根 过 程 
产生 的 序列 。 这 种 取 逼 近 一 个 解 的 一 系列 值 的 平均 值 的 方法 ， 是 一 种 称 为 平均 阻尼 的 技术 ， 
它 常 常用 在 不 动 点 搜寻 中 ， 作 为 帮助 收敛 的 手段 。 

练习 1.35 ”请 证 明黄 金 分 割 率 9 (1.2.2707) ER Harl + 1Ax 的 不 动 点 。 请 利用 这 一 事实 ， 
通过 过 程 Eixed-point 计 算出 % 的 值 。 

练习 1.36 ”请 修改 fixed-point， 使 它 能 打印 出 计算 中 产生 的 近似 值 序列 ， 用 练习 1.22 
展示 的 newline 和 display 基 本 过 程 。 而 后 通过 找 出 Xlog(1000)/log(x) sae 
确定 关 = 1000 的 一 个 根 (请 利用 Scheme 的 基本 过 程 1og， 它 计算 自然 对 数值 ) 。 请 比较 一 下 采 
用 平均 阻尼 和 不 用 平均 阻尼 时 的 计算 步 数 。( 注 意 ， 你 不 能 用 猜测 1 去 启动 fixed-point， 
因为 这 将 导致 除 以 log(1)=0,) 

练习 1.37 a) 一 个 无 穷 连 分 式 是 一 个 如 下 形式 的 表达 式 : 





十 
D+ 


作为 一 个 例子 ， 我 们 可 以 证 明 在 所 有 的 NW 和 Di 都 等 于 1 时 ， 这 一 无 穷 连 分 式 产 生出 1/%， 其 中 的 
9 就 是 黄金 分 割 率 〈 见 1.2.2 节 的 描述 ) 。 逼 近 某 个 无 穷 连 分 式 的 一 种 方法 是 在 给 定数 目的 项 之 
后 截断 ， 这 样 的 一 个 截断 称 为 K 项 有 限 连 分 式 ， 其 形式 是 : 





假定 n 和 a 都 是 只 有 一 个 参数 (项 的 下 标 i) 的 过 程 ， 它 们 分 别 返回 连 分 式 的 项 Ni 和 Di。 请 定义 
一 个 过 程 cont -Erac， 使 得 对 (cont-frac n d k) 的 求 值 计 算出 kx 项 有 限 连 分 式 的 值 。 
通过 如 下 调用 检查 你 的 过 程 对 于 顺序 的 k 值 是 否 逼 近 1/0: 
(cont-frac (lambda (i) 1.0) 
(lambda (i) 1.0) 
k) 
你 需要 取 多 大 的 k 才 能 保证 得 到 的 近似 值 具 有 十 进 制 的 4 位 精度 ? 
b) 如 果 你 的 过 程 产生 一 个 递归 计算 过 程 ， 那 么 请 写 另 一 个 产生 迭代 计算 的 过 程 。 如 果 它 
产生 友 代 计算 ， 请 写 出 另 一 个 过 程 ， 使 之 产生 一 个 递归 计算 过 程 。 
练习 1.38 在 1737 年 ,瑞士 数学 家 菜 昂 哈 德 . 欧 拉 发 表 了 一 篇 论文 De Fractionibus Continuis, 
文中 包含 了 e 一 2 的 一 个 连 分 式 展开 ， 其 中 的 e 是 自然 对 数 的 底 。 在 这 一 分 式 中 ，NM 全 都 是 1， 
而 D; 依 次 为 1, 2, 1, 1, 4, 1, 1, 6, 1, 1, 8, …。 请 写 出 一 个 程序 ， 其 中 使 用 你 在 练习 1.37 中 所 做 的 
cont -frac 过 程 ， 并 能 基于 欧 拉 的 展开 式 求 出 e 的 近似 值 。 
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练习 1.39 正切 函数 的 连 分 式 表示 由 德国 数学 家 J.H. Lambert 在 1770 年 发 表 : 


x 
tan rary 








其 中 的 x 用 弧度 表示 。 请 定义 过 程 (tan-cf x k)， 它 基于 Lambert 公 式 计算 正切 函数 的 近似 
值 。k 描 述 的 是 计算 的 项 数 ， 就 像 练习 1.37 一 样 。 


1.3.4 过 程 作为 返回 值 


上 面 的 例子 说 明 ， 将 过 程 作为 参数 传递 ， 能 够 显著 增强 我 们 的 程序 设计 语言 的 表达 能 力 。 
通过 创建 另 一 种 其 返回 值 本 身 也 是 过 程 的 过 程 ， 我 们 还 能 得 到 进一步 的 表达 能 

我 们 将 阐释 这 一 思想 ， 现 在 还 是 先 来 看 1.3.3 节 最 后 描述 的 不 动 点 例子 。 在 那里 我 们 构造 
出 一 个 平方 根 程序 的 新 版 本 ， 它 将 这 一 计算 看 作 一 种 不 动 点 搜寻 过 程 。 开 始 时 ， 我 们 注意 
到 Vx 就 是 函数 yF>x/y 的 不 动 点 ， 而 后 又 利用 平均 阻尼 使 这 一 逼近 收 仿 。 平 均 阻 尼 本 身 也 是 一 
种 很 有 用 的 一 般 性 技术 。 很 自然 ， 给 定 了 一 个 国 数 了 之 后 ， 我 们 就 可 以 考虑 另 一 个 国 数 ， 它 
在 x 处 的 值 等 于 x 和 f(x) 的 平均 值 。 

我 们 可 以 将 平均 阻尼 的 思想 表述 为 下 面 的 过 程 : 

(define (average-damp f) 


(lambda (x) (average x (f x)))) 


这 里 的 average-damp 是 一 个 过 程 ， 它 的 参数 是 一 个 过 程 E， 返 回 值 是 另 一 个 过 程 (通过 
lambda 产 生 )， 当 我 们 将 这 一 返回 值 过 程 应 用 于 数 x 时 ， 得 到 的 将 是 x 和 (f£ x) 的 平均 值 。 
例如 ， 将 average-damp 应 用 于 square 过 程 ， 就 会 产生 出 另 一 个 过 程 ， 它 在 数值 xz 处 的 值 就 
是 x 和 x 的 平均 值 。 将 这 样 得 到 的 过 程 应 用 于 10， 将 返回 10 与 100 的 平均 值 55”; 
((average-damp square) 10) 
55 


利用 average-damp， 我 们 可 以 重 做 前 面 的 平方 根 过 程 如 下 : 
(define (sqrt x) 
(fixed-point (average-damp (lambda (y) (/ x y))) 
Vd 


请 注意 ， 看 看 上 面 这 一 公式 中 怎样 把 三 种 思想 结合 在 同一 个 方法 里 : 不 动 点 搜寻 ， 平 均 阻尼 
FUER BLY Fx/y。 拿 这 一 平方 根 计 算 的 过 程 与 1.1.7 节 给 出 的 原来 版 本 做 一 个 比较 ， 将 是 很 有 教 
益 的 。 请 记 住 ， 这 些 过 程 表述 的 是 同一 计算 过 程 ， 也 应 注意 ， 当 我 们 利用 这 些 抽 象 描述 该 计 
算 过 程 时 ， 其 中 的 想法 如 何 变 得 更 加 清晰 了 。 将 一 个 计算 过 程 形 式 化 为 一 个 过 程 ， 一 般 说 ， 
存在 很 多 不 同 的 方式 ， 有 经 验 的 程序 员 知 道 如 何 选择 过 程 的 形式 ， 使 其 特别 地 清晰 且 易 理解 ， 
使 该 计算 过 程 中 有 用 的 元 素 能 表现 为 一 些 相 互 分 离 的 个 体 ， 并 使 它们 还 可 能 重新 用 于 其 他 的 
应 用 。 作 为 重用 的 一 个 简单 实例 ， 请 注意 x 的 立方 根 是 函数 y Px/ 的 不 动 点 ， 因 此 我 们 可 以 立 


”请 注意 看 ， 这 就 是 一 个 其 中 的 运算 符 本身 也 是 一 个 组 合式 的 组 合式 。 练 习 1.4 已 经 阐释 了 描述 这 种 形式 的 组 合 
式 的 能 力 ,但 那里 用 的 是 一 个 玩具 例子 。 在 这 里 可 以 看 到 ， 在 应 用 一 个 作为 高 阶 函数 的 返回 值 而 得 到 的 函数 
时 ， 我 们 确实 需要 这 种 形式 的 组 合式 。 
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刻 将 前 面 的 平方 根 过 程 推广 为 一 个 提取 立方 根 的 过 程 %: 
(define (cube-root x) 
(fixed-point (average-damp (lambda (y) (/ x (square y)))) 
1.0)) 


牛顿 法 
在 1.1.7 节 介绍 平方 根 过 程 时 曾经 提 到 牛顿 法 的 一 个 特殊 情况 。 如 果 xFy8GD) 是 一 个 可 微 
ARC, ABA Fy Fe g(x) = 0 的 一 个 解 就 是 函数 zhF> fx) 的 一 个 不 动 点 ， 其 中 : 


y ga) 
f(x)=x De(x) 
这 里 的 Dg(x) 是 8 对 x 的 导数 。 和 牛顿 法 就 是 使 用 我 们 前 面 看 到 的 不 动 点 方法 ， 通 过 搜寻 函数 了 的 
不 动 点 的 方式 ， 去 荧 近 上 述 方 程 的 解 "。 对 于 许多 函数 ， 以 及 充分 好 的 初始 猜测 x， 牛 顿 法 都 
能 很 快 收敛 到 g(x)=0 的 一 个 解 “。 

为 了 将 牛顿 方法 实现 为 一 个 过 程 ， 我 们 首先 必须 描述 导数 的 思想 。 请 注意 , “导数 ”不 像 
平均 阻尼 ， 它 是 从 函数 到 函数 的 一 种 变换 。 例 如 ， 函 数 x _F> 妆 的 导数 是 另 一 个 国 数 x e 32, 
一 般 而 言 ， 如 果 g 是 一 个 函数 而 dx 是 一 个 很 小 的 数 ， 那 么 g 的 导数 在 任 一 数值 x* 的 值 由 下 面 函 数 
(作为 很 小 的 数 dx 的 极限 ) 给 出 : 
g(x+dx)— g(x) 


Dg(x)= ae 


这 样 ， 我 们 就 可 以 用 下 面 过 程 描述 导数 的 概念 〈 例 如 取 dx 为 0.00001 ) ; 
(define (deriv g) 
(lambda (x) 
(/ (= tg (+ « @e)) {g x)) 
dx) ) ) 


再 加 上 定义 : 


(define dx 0.00001) 


与 average-damp 一 样 ，deriv 也 是 一 个 以 过 程 为 参数 ， 并 且 返 回 一 个 过 程 值 的 过 程 。 
例如 ， 为 了 求 出 函数 x 局 不 在 5 的 导数 的 近似 值 (其 精确 值 为 75)， 我 们 可 以 求 值 : 
(define (cube x) (* x x x)) 


((deriv cube) 5) 
75.00014999664018 


有 了 deriv 之 后 ， 牛 顿 法 就 可 以 表述 为 一 个 求 不 动 点 的 过 程 了 : 
(define (newton-transform g) 
(lambda (x) 
(- x (/ (g x) ((deriv g) x))))) 


进一步 推广 参见 练习 1.45。 

4 基础 微 积分 书籍 中 通常 将 牛顿 法 描述 为 逼 进 序列 x441 二 x 一 g(xw)/Dg(xw,)。 有 了 能 够 描述 计算 过 程 的 语言 ， 采 
用 了 不 动 点 的 思想 ， 这 一 方法 的 描述 也 得 到 了 简化 。 

皇 牛 顿 法 并 不 保证 能 收 鳃 到 一 个 答案 。 我 们 还 可 以 证 明 ， 在 顺利 的 情况 下 ， 每 次 帮 代 将 使 解 的 近似 值 的 有 效 数 
字 位 数 加 倍 。 在 处 理 这 些 情况 时 ， 牛 顿 法 将 比 折 半 法 的 收敛 速度 快 得 多 。 
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(define (newtons-method g guess) 


(fixed-point (newton-transform g) guess)) 


newton-tzansform 过 程 描述 的 就 是 在 本 节 开 始 处 的 公式 ， 基 于 它 去 定义 newtons - 
method 已 经 很 容易 了 。 这 一 过 程 以 一 个 过 程 为 参数 ， 它 计算 的 就 是 我 们 希望 去 找到 零点 的 函 
数 ， 这 里 还 需要 给 出 一 个 初始 猜测 。 例 如 ， 为 确定 x 的 平方 根 ， 可 以 用 初始 猜测 1， 通 过 牛顿 
法 去 找 函 数 y e y 一 x 的 零点 ”。 这 样 就 给 出 了 求 平方 根 函 数 的 另 一 种 形式 : 

(define (sqrt x) 


(newtons-method (lambda (y) (- (square y) x)) 
1 0) 


抽象 和 第 一 级 过 程 

上 面 我 们 已 经 看 到 用 两 种 方式 ， 它 们 都 能 将 平方 根 计 算 表 述 为 某 种 更 一 般 方 法 的 实例 ， 
一 个 是 作为 不 动 点 搜寻 过 程 ， 另 一 个 是 使 用 牛顿 法 。 因 为 牛顿 法 本 身 表 述 的 也 是 一 个 不 动 点 
的 计算 过 程 ， 所 以 我 们 实际 上 看 到 了 将 平方 根 计 算 作为 不 动 点 的 两 种 形式 。 每 种 方法 都 是 从 
一 个 函数 出 发 ， 找 出 这 一 函数 在 某 种 变换 下 的 不 动 点 。 我 们 可 以 将 这 一 具有 普遍 性 的 思想 表 
述 为 一 个 函数 : 

(define (fixed-point-of-transform g transform guess) 


(fixed-point (transform g) guess)) 
这 个 非常 具有 一 般 性 的 过 程 有 一 个 计算 某 个 函数 的 过 程 参 数 g， 一 个 变换 g 的 过 程 ， 和 一 个 初 
始 猜 测 ， 它 返回 经 过 这 一 变换 后 的 函数 的 不 动 点 。 
我 们 可 以 利用 这 一 抽象 重新 塑造 本 节 的 第 一 个 平方 根 计 算 (搜寻 y x/y 在 平均 阻尼 下 的 
不 动 点 ) ， 以 它 作为 这 个 一 般 性 方法 的 实例 : 
(define (sqrt x) 
(fixed-point-of-transform (lambda (y) (/ x y)) 


average-damp 
T07) 


与 此 类 似 ， 我 们 也 可 以 将 本 节 的 第 二 个 平方 根 计 算 (是 用 牛顿 法 搜寻 y e 六 一 xz 的 牛顿 变换 的 
实例 ) 重新 描述 为 : 
(define (sqrt x) 
(fixed-point-of-transform (lambda (y) (- (square y) x)) 


newton-transform 
1.@)} 


我 们 在 1.3 节 开始 时 研究 复合 过 程 ， 并 将 其 作为 一 种 至 关 重 要 的 抽象 机 制 ， 因 为 它 使 我 们 
能 将 一 般 性 的 计算 方法 ， 用 这 一 程序 设计 语言 里 的 元 素 明 确 描 述 。 现 在 我 们 又 看 到 ， 高 阶 函 
数 能 如 何 去 操 作 这 些 一 般 性 的 方法 ， 以 便 建立 起 进一步 的 抽象 。 

作为 编程 者 ， 我 们 应 该 对 这 类 可 能 性 保持 高 度 敏感 ， 设 法 从 中 识别 出 程序 里 的 基本 抽象 ， 
基于 它们 去 进一步 构造 ， 并 推广 它们 以 创建 威力 更 加 强大 的 抽象 。 当 然 ， 这 并 不 是 说 总 应 该 
采用 尽 可 能 抽象 的 方式 去 写 程序 ， 程 序 设 计 专 家 们 知道 如 何 根 据 工作 中 的 情况 ， 去 选择 合适 
的 抽象 层次 。 但 是 ， 能 基于 这 种 抽象 去 思考 确实 是 最 重要 的 ， 只 有 这 样 才 可 能 在 新 的 上 下 文 
中 去 应 用 它们 。 高 阶 过 程 的 重要 性 ， 就 在 于 使 我 们 能 显 式 地 用 程序 设计 语言 的 要 素 去 描述 这 


对 于 寻找 平方 根 而 言 ， 牛 顿 法 可 以 从 任意 点 出 发 迅速 收敛 到 正确 的 答案 。 
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些 抽象 ， 使 我 们 能 像 操 作 其 他 计算 元 素 一 样 去 操作 它们 。 

一 般 而 言 ， 程 序 设 计 语 言 总 会 对 计算 元 素 的 可 能 使 用 方式 强加 上 某 些 限制 。 带 有 最 少 限 
制 的 元 素 被 称 为 具有 第 一 级 的 状态 。 第 一 级 元 素 的 某 些 “ 权 利 或 者 特权 ”包括 外: 

。 可 以 用 变量 命名 ; 

。 可 以 提供 给 过 程 作为 参数 ; 

。 可 以 由 过 程 作 为 结果 返回 ; 

* 可 以 包含 在 数据 结构 中 5。 
Lisp 不 像 其 他 程序 设计 语言 ， 它 给 了 过 程 完 全 的 第 一 级 状态 。 这 就 给 有 效 实现 提出 了 挑战 ， 
但 由 此 所 获得 的 描述 能 力 却 是 极其 惊人 的 %%。 

练习 1.40 ”请 定义 一 个 过 程 cubic， 它 和 newtons-method 过 程 一 起 使 用 在 下 面 形式 的 
表达 式 里 : 

(newtons-method (cubic a b c) 1) 
REI VE = RHE + ax? + bx + ch. 

练习 1.41 ”请 定义 一 个 过 程 4ouble， 它 以 一 个 有 一 个 参数 的 过 程 作为 参数 ，double 返 
回 一 个 过 程 。 这 一 过 程 将 原来 那个 参数 过 程 应 用 两 次 。 例 如 ， 若 inc 是 个 给 参数 加 1 的 过 程 ， 
(double inc) 将 给 参数 加 2。 下 面 表 达 式 返回 什么 值 : 


(((double (double double)) inc) 5) 


练习 1.42 令 f 和 g 是 两 个 单 参数 的 函数 , f 在 g 之 后 的 复合 定义 为 函数 x Fy f(g(x))。 请 定 
义 一 个 函数 compose 实 现 函 数 复合 。 例 如 ， 如 果 inc 是 将 参数 加 1 的 函数 ， 那 么 : 


((compose square inc) 6) 
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练习 1.43 ”如 果 f 是 一 个 数值 函数 ，n 是 一 个 正 整数 ， 那 么 我 们 可 以 构造 出 f 的 n 次 重复 应 
用 ,将 其 定义 为 一 个 函数 ， 这 个 函数 在 x 的 值 是 S 碎 …( fx))…))。 举 例 说 ， 如 果 f 是 函数 x FF? 
x 十 1，n 次 重复 应 用 了 就 是 函数 x x+n。 如 果 f 是 求 一 个 数 的 平方 的 操作 ，n 次 重复 应 用 f 就 
求 出 其 参数 的 2" 次 军 。 请 写 一 个 过 程 ， 它 的 输入 是 一 个 计算 f 的 过 程 和 一 个 正 整 数 +， 返 回 的 
是 能 计算 的 n 次 重复 应 用 的 那个 函数 。 你 的 过 程 应 该 能 以 如 下 方式 使 用 : 

((repeated square 2) 5) 

625 


提示 : 你 可 能 发 现 使 用 练习 1.42 的 compose 能 带 来 一 些 方便 。 

练习 1.44 平滑 一 个 函数 的 想法 是 信号 处 理 中 的 一 个 重要 概念 。 如 果 f 是 一 个 函数 ，dx 是 
某 个 很 小 的 数值 ， 那 么 f 的 平滑 也 是 一 个 函数 ， 它 在 点 x 的 值 就 是 f(x 一 dx)、f(x) Fil f(xt dx) 
的 平均 值 。 请 写 一 个 过 程 smooth， 它 的 输入 是 一 个 计算 f 的 过 程 ， 返回 一 个 计算 平滑 后 的 f 
的 过 程 。 有 时 可 能 发 现 ， 重 复 地 平滑 一 个 国 数 ， 得 到 经 过 7 次 平 清 的 函数 (也 就 是 说 ， 对 平 请 
后 的 函数 再 做 平滑 ， 等 等 ) 也 很 有 价值 。 说 明 怎 样 利 用 smooth 和 练习 1.43 的 zepeated， 对 
给 定 的 函数 生成 n 次 平 光 函数 。 

4 程序 设计 语言 元 素 的 第 一 级 状态 的 概念 应 归功 于 英国 计算 机 科学 家 Christopher Strachey (1916-1975)。 

S 我 们 将 在 第 2 章 介绍 了 数据 结构 之 后 看 到 这 方面 的 例子 。 


“实现 第 一 级 过 程 的 主要 代价 是 ， 为 使 过 程 能 够 作为 值 返 回 ， 我 们 就 需要 为 过 程 里 的 自由 变量 保留 空间 ， 即 使 
这 一 过 程 并 不 执行 。 在 4.1 节 有 关 Scheme 实 现 的 研究 中 ， 这 些 变量 都 被 存储 在 过 程 的 环境 里 。 
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练习 1.45 ”在 1.3.3 节 里 ， 我 们 看 到 企图 用 朴素 的 方法 去 找 y > xy 的 不 动 点 ， 以 便 计 算 平 
方 根 的 方式 不 收 化 ， 这 个 缺陷 可 以 通过 平均 阻尼 的 方式 弥补 。 同 样 方法 也 可 用 于 找 立 方 根 ， 
将 它 看 作 平 均 阻尼 后 的 y FF x/y? 的 不 动 点 。 遗 憾 的 是 ， 这 一 计算 过 程 对 于 四 次 方 根 却 行 不 通 ， 
一 次 平均 阻尼 不 足以 使 对 y > x/ 六 的 不 动 点 搜寻 收敛 。 而 男 一 方面 ， 如 果 我 们 求 两 次 平均 阻尼 
(BD, Fy > x/y 的 平均 阻尼 的 平均 阻尼 )， 这 一 不 动 点 搜寻 就 会 收敛 了 。 请 做 一 些 试验 ， 考 
虑 将 计算 n 次 方 根 作为 基于 y e x/y"! 的 反复 做 平均 阻尼 的 不 动 点 搜寻 过 程 ， 请 设法 确定 各 种 
情况 下 需要 做 多 少 次 平均 阻尼 。 并 请 基于 这 一 认识 实现 一 个 过 程 ， 它 使 用 fixed-point、 
average-damp 和 练习 1.43 的 repeated 过 程 计算 n 次 方 根 。 假 定 你 所 需要 的 所 有 算术 运算 都 
是 基本 过 程 。 

练习 1.46 本章 描 述 的 一 些 数值 算法 都 是 迭代 式 改 进 的 实例 。 迫 代 式 改进 是 一 种 非常 具 
有 一 般 性 的 计算 策略 ， 它 说 的 是 : 为 了 计算 出 某 些 东西 ， 我 们 可 以 从 对 答案 的 某 个 初始 猜测 
开始 ， 检 查 这 一 猜测 是 否 足够 好 ， 如 果 不 行 就 改进 这 一 猜测 ， 将 改进 之 后 的 猜测 作为 新 的 猜 
测 去 继续 这 一 计算 过 程 。 请 写 一 个 过 程 iterative-improve， 它 以 两 个 过 程 为 参数 : 其 
中 之 一 表示 告知 某 一 猜测 是 否 足 够 好 的 方法 ， 另 一 个 表示 改进 猜测 的 方法 。iterative- 
improve 的 返回 值 应 该 是 一 个 过 程 ， 它 以 某 一 个 猜测 为 参数 ， 通 过 不 断 改进 ， 直 至 得 到 的 猜 
测 足 够 好 为 止 。 利 用 iterative-improve 重 写 1.1.7 节 的 sqrt 过 程 和 1.3.3 节 的 fixed- 
point 过 程 。 
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现在 到 了 数学 抽象 中 最 关键 的 一 步 : 让 我 们 忘记 这 些 
( 数学 家 ) 不 应 在 这 里 停 步 ， 有 许多 操作 可 以 应 用 于 这 些 符 
到 底 代 表 着 什么 东西 


符号 所 表示 的 对 象 。…… 
号 ,而 根本 不 ※ 考 虎 它们 


Hermann Weyl, The Mathematical © Way of Thinking 
(思维 的 数学 方式 ) 


我 们 在 第 1 章 里 关注 的 是 计算 过 程 ， 以 及 过 程 在 程序 中 所 扮演 的 角色 。 在 那里 我 们 还 看 到 
了 怎样 使 用 基本 数据 ( 数 ) 和 基本 操作 (算术 运算 ) ; 怎样 通过 复合 、 条 件 ， 以 及 参数 的 使 
用 将 一 些 过 程 组 合 起 来 ， 形 成 复合 的 过 程 ， 怎 样 通过 aefine 做 过 程 抽象 。 我 们 也 看 到 ， 可 以 
将 一 个 过 程 看 作 一 类 计算 演化 的 一 个 模式 。 那 里 还 对 过 程 中 强 涵 着 的 某 些 常 见 计算 模式 做 了 
一 些 分 类 和 推理 ， 并 做 了 一 些 简单 的 算法 分 析 。 我 们 也 看 到 了 高 阶 过 程 ， 这 种 机 制 能 够 提升 
语言 的 威力 ， 因 为 它 将 使 我 们 能 去 操纵 通用 的 计算 方法 ， 并 能 对 它们 做 推理 。 这 些 都 是 程序 
设计 中 最 基本 的 东西 。 

在 这 一 章 里 ， 我 们 将 进一步 去 考察 更 复杂 的 数据 。 第 1 章 里 的 所 有 过 程 ， 操 作 的 都 是 简单 
的 数值 数据 ， 而 对 我 们 希望 用 计算 去 处 理 的 许多 问题 而 言 ， 只 有 这 种 简单 数据 还 不 够 。 许 多 
程序 在 设计 时 就 是 为 了 模拟 复杂 的 现象 ， 因 此 它们 就 常常 需 要 构造 起 一 些 计算 对 象 ， 这 些 对 
象 都 是 由 一 些 部 分 组 成 的 ， 以 便 去 模拟 真实 世界 里 的 那些 具有 若干 侧面 的 现象 。 这 样 ， 与 我 
们 在 第 1 章 里 所 做 的 事情 (通过 将 一 些 过 程 组 合 起 来 形成 复合 的 过 程 ， 以 这 种 方式 构造 起 各 种 
抽象 ) 相对 应 ， 本 章 将 重点 转 到 各 种 程序 设计 语言 都 包含 的 另 一 个 关键 方面 : 讨论 它们 所 提 
供 的 ， 将 数据 对 象 组 合 起 来 ， 形 成 复合 数据 的 方式 。 

为 什么 在 程序 设计 语言 里 需要 复合 数据 呢 ? 与 我 们 需要 复合 过 程 的 原因 一 样 : 同样 是 为 
了 提升 我 们 在 设计 程序 时 所 位 于 的 概念 层次 ， 提 高 设计 的 模块 性 ， 增 强 语言 的 表达 能 力 。 正 
如 定义 过 程 的 能 力 使 我 们 有 可 能 在 更 高 的 概念 层次 上 处 理 计算 工作 一 样 ， 能 够 构造 复合 数据 
的 能 力 ， 也 将 使 我 们 得 以 在 比 语言 提供 的 基本 数据 对 象 更 高 的 概念 层次 上 ， 处 理 与 数据 有 关 
的 各 种 问题 。 

现在 考虑 设计 一 个 系统 ， 它 完成 有 理 数 的 算术 。 我 们 可 以 设想 一 个 运算 add-rat， 它 以 
两 个 有 理 数 为 参数 ， 产 生出 它们 的 和 。 从 基本 数据 出 发 ， 一 个 有 理 数 可 以 看 作 两 个 整数 ， 一 
个 分 子 和 一 个 分 母 。 这 样 ， 我 们 就 可 以 设计 出 一 个 程序 ， 其 中 的 每 个 有 理 数 用 两 个 整数 表示 
(一 个 分 子 和 一 个 分 母 ) ， 而 其 中 的 ada-zat 用 两 个 过 程 实现 〈 一 个 产生 和 数 的 分 子 ， 另 一 个 
产生 和 数 的 分 母 ) 。 然 而 ， 这 样 做 下 去 会 非常 难受 ， 因 为 我 们 必须 明确 地 始终 记 住 哪个 分 子 与 
哪个 分 母 相 互 对 应 。 在 一 个 需要 执行 大 量 有 理 数 操作 的 系统 里 ， 这 种 记录 工作 将 会 严重 地 搅 
乱 我 们 的 程序 ， 而 这 些 麻烦 又 与 我 们 心中 真正 想 做 的 事情 毫 无 关系 。 如 果 能 将 一 个 分 子 和 一 
个 分 母 “ 粘 在 一 起 ”"， 形 成 一 个 对 偶 一 一 一 个 复合 数据 对 象 一 一 事情 就 会 好 得 多 了 ， 因 为 这 样 ， 
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程序 中 对 有 理 数 的 操作 就 可 以 按照 将 它们 作为 一 个 概念 单位 的 方式 进行 了 。 

复合 数据 的 使 用 也 使 我 们 能 进一步 提高 程序 的 模块 性 。 如 果 我 们 可 以 直接 在 将 有 理 数 
本 身 当 作对 象 的 方式 下 操作 它们 ， 那 么 也 就 可 能 把 处 理 有 理 数 的 那些 程序 部 分 ， 与 有 理 数 
如 何 表 示 的 细节 〈 可 能 是 表示 为 一 对 整数 ) 隔离 开 。 这 种 将 程序 中 处 理 数据 对 象 的 表示 的 
部 分 ， 与 处 理 数据 对 象 的 使 用 的 部 分 相互 隔离 的 技术 非常 具有 一 般 性 ， 形 成 了 一 种 称 为 数 
据 抽象 的 强 有 力 的 设计 方法 学 。 我 们 将 会 看 到 ， 数 据 抽象 技术 能 使 程序 更 容易 设计 、 维 护 
和 修改 。 

复合 对 象 的 使 用 将 真正 提高 程序 设计 语言 的 表达 能 力 。 考 虑 形成 “线性 组 合 ”ax t by, 
我 们 可 能 想到 写 一 个 过 程 ， 让 它 接受 a、b、x 和 y 作 为 参数 并 返回 ax 十 by 的 值 。 如 果 以 数值 作 
为 参数 ， 这 样 做 没有 任何 困难 ， 因 为 我 们 立刻 就 能 定义 出 下 面 的 过 程 : 

(define (linear-combination a b x y) 

(+ (* a x) (* b y))) 


但 是 ， 如 果 我 们 关心 的 不 仅仅 是 数 ， 假 定 在 写 这 个 过 程 时 ， 我 们 希望 表述 的 是 基于 加 和 乘 形 
成 线性 组 合 的 思想 ， 所 针对 的 可 以 是 有 理 数 、 复 数 、 多 项 式 或 者 其 他 东西 ， 我 们 可 能 将 其 表 
述 为 下 面 形式 的 过 程 : 
(define (linear-combination a b x y) 
(add (mul a x) (mul b y))) 


其 中 的 adada 和 mul 不 是 基本 过 程 + 和 *， 而 是 某 些 更 复杂 的 东西 ,它们 能 对 通过 参数 a、b、 
x 和 y 送 来 的 任何 种 类 的 数据 执行 适当 的 操作 。 在 这 里 最 关键 的 是 ，1linear-combination 
对 于 a、b、x 和 y 需 要 知道 的 所 有 东西 ， 也 就 是 过 程 add 和 mul 能 够 执行 适当 的 操作 。 从 过 程 
linear-combination 的 角度 看 ，a、b、x 和 y 究 竟 是 什么 ， 其 实 根本 就 没有 关系 ， 至 于 它 
们 是 怎样 基于 更 基本 的 数据 表示 就 更 没有 关系 了 。 这 个 例子 也 说 明了 ， 为 什么 一 种 程序 设计 
语言 能 够 提供 直接 操作 复合 对 象 的 能 力 是 如 此 的 重要 ， 因 为 如 果 没 有 这 种 能 力 ， 我 们 就 没有 
办 法 让 一 个 像 1inear-combination 这 样 的 过 程 将 其 参数 传递 给 add 和 mul， 而 不 必 知 道 这 
些 参数 的 具体 细 市 结构 ”。 

作为 本 章 的 开始 ， 我 们 要 实现 上 面 所 说 的 那样 一 个 有 理 数 算术 系统 ， 它 将 成 为 后 面 讨论 
复合 数据 和 数据 抽象 的 一 个 基础 。 与 复合 过 程 一 样 ， 在 这 里 需要 考虑 的 主要 问题 ， 也 是 将 抽 
象 作为 克服 复杂 性 的 一 种 技术 。 下 面 将 会 看 到 ， 数 据 抽象 将 如 何 使 我 们 能 在 程序 的 不 同 部 分 
之 间 建 立 起 适当 的 抽象 屏障 。 

我 们 将 会 看 到 ， 形 成 复合 数据 的 关键 就 在 于 ， 程 序 设计 语言 里 应 该 提供 了 某 种 “黏合 剂 ”， 
它们 可 以 用 于 把 一 些 数据 对 象 组 合 起 来 ， 形 成 更 复杂 的 数据 对 象 。 黏 合剂 可 能 有 很 多 不 同 的 
种 类 。 确 实 的 ， 我 们 还 会 发 现 怎样 去 构造 出 根本 没有 任何 特定 “数据 ”操作 ， 只 是 由 过 程 形 
成 的 复合 数据 。 这 将 进一步 模糊 “过 程 ” 和 “数据 ”之 间 的 划分 。 实 际 上 ， 在 第 1 章 的 最 后 ， 
这 一 界限 已 经 开始 变 得 不 那么 清楚 了 。 我 们 还 要 探索 表示 序列 和 树 的 一 些 常规 技术 。 在 处 理 





”直接 操作 过 程 的 能 力 ， 也 使 程序 设计 语言 的 表达 能 力 得 到 类 似 的 提高 。 例 如 ， 在 1.3.1 市 里 给 出 了 过 程 sum， 
它 以 过 程 term 作 为 一 个 参数 ， 计 算出 term 在 某 个 特定 区 间 上 的 值 之 和 。 为 了 定义 这 一 sum， 必 不 可 少 的 条 
件 就 是 能 直接 去 说 像 term 这 样 的 过 程 ， 而 不 必 考 虑 它 可 能 如 何 通 过 更 基本 的 操作 表达 出 来 。 的 确 ， 如 果 没 有 
“过 程 ” 这 一 概念 ， 认 为 我 们 有 可 能 定义 像 sum 这 样 的 操作 就 很 值得 怀疑 了 。 进 一 步 说 ， 就 执行 求 和 而 言 ， 
term 究 况 能 怎样 由 更 基本 的 操作 构造 起 来 的 情况 ， 确 实 也 没 必要 去 关心 。 
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复合 数据 中 的 一 个 关键 性 思想 是 闭 包 的 概念 一 也 就 是 说 ， 用 于 组 合 数据 对 象 的 黏合 剂 不 但 
能 用 于 组 合 基 本 的 数据 对 象 ， 同 样 也 可 以 用 于 复合 的 数据 对 象 。 另 一 关键 思想 是 ， 复 合 数据 
对 象 能 够 成 为 以 混合 与 匹配 的 方式 组 合 程序 模块 的 方便 界面 。 我 们 将 通过 给 出 一 个 利用 团 包 
概念 的 简单 图 形 语 言 的 方式 ， 曾 释 有 关 的 思想 。 

而 后 我 们 要 引进 符号 表达 式 ， 进 一 步 扩大 语言 的 表述 能 力 。 符 号 表达 式 的 基本 部 分 可 以 
是 任意 的 符号 ， 不 一 定 就 是 数 。 我 们 将 探索 表示 对 象 集合 的 各 种 不 同方 式 ， 由 此 可 以 发 现 ， 
就 像 一 个 给 定 的 数学 函数 可 以 通过 许多 不 同 的 计算 过 程 计算 一 样 ， 对 于 一 种 给 定 的 数据 结构 ， 
也 可 以 有 许多 方式 将 其 表示 为 简单 对 象 的 组 合 ， 而 这 种 表示 的 选择 ， 有 可 能 对 操作 这 些 数据 
的 计算 过 程 的 时 间 与 空间 需求 造成 重大 的 影响 。 我 们 将 在 符号 微分 、 集 合 的 表示 和 信息 编码 
的 上 下 文中 研究 这 些 思想 。 

随后 我 们 将 转 去 处 理 在 一 个 程序 的 不 同 部 分 可 能 采用 不 同 表 示 的 数据 的 问题 ， 这 就 引出 
了 实现 通用 型 操作 的 需要 ， 这 种 操作 必须 能 处 理 许多 不 同 的 数据 类 型 。 为 了 维持 模块 性 ， 通 
用 型 操作 的 出 现 ， 将 要 求 比 只 有 简单 数据 抽象 更 强大 的 抽象 屏障 。 特 别 地 ， 我 们 将 介绍 数据 
导向 的 程序 设计 。 这 是 一 种 技术 ， 它 能 允许 我 们 孤立 地 设计 每 一 种 数据 表示 ， 而 后 用 添加 的 
方式 将 它们 组 合 进去 (也 就 是 说 ， 不 需要 任何 修改 )。 为 了 展示 这 一 系统 设计 方法 的 威力 ,在 
本 章 的 最 后 ， 我 们 将 用 已 经 学 到 的 东西 实现 一 个 多 项 式 符 号 算术 的 程序 包 ， 其 中 多 项 式 的 系 
数 可 以 是 整数 、 有 理 数 、 复 数 ， 甚 至 还 可 以 是 其 他 多 项 式 。 


2.1 数据 抽象 导 引 


从 1.1.8 节 可 以 看 到 ， 在 构造 更 复杂 的 过 程 时 可 以 将 一 个 过 程 用 作 其 中 的 元 素 ， 这 样 的 过 
程 不 但 可 以 看 作 是 一 组 特定 操作 ， 还 可 以 看 作 一 个 过 程 抽象 。 也 就 是 说 ， 有 关 过 程 的 实现 细 
节 可 以 被 隐蔽 起 来 ， 这 个 特定 过 程 完 全 可 以 由 另 一 个 具有 同样 整体 行为 的 过 程 取代 。 换 名 话 
说 ， 我 们 可 以 这 样 造 成 一 个 抽象 ， 它 将 这 一 过 程 的 使 用 方式 ， 与 该 过 程 究 竟 如 何 通过 更 基本 
的 过 程 实现 的 具体 细节 相互 分 离 。 针 对 复合 数据 的 类 似 概 念 被 称 为 数据 拍 象 。 数 据 抽象 是 一 
种 方法 学 ， 它 使 我 们 能 将 一 个 复合 数据 对 象 的 使 用 ， 与 该 数据 对 象 怎 样 由 更 基本 的 数据 对 象 
构造 起 来 的 细节 隔离 开 。 

数据 抽象 的 基本 思想 ， 就 是 设法 构造 出 一 些 使 用 复合 数据 对 象 的 程序 ， 使 它们 就 像 是 在 
“抽象 数据 ”上 操作 一 样 。 也 就 是 说 ， 我 们 的 程序 中 使 用 数据 的 方式 应 该 是 这 样 的 ， 除 了 完成 
当前 工作 所 必要 的 东西 之 外 ， 它 们 不 对 所 用 数据 做 任何 多 余 的 假设 。 与 此 同时 ,一 种 “具体 ” 
数据 表示 的 定义 ， 也 应 该 与 程序 中 使 用 数据 的 方式 无 关 。 在 我 们 的 系统 里 ， 这 样 两 个 部 分 之 
间 的 界面 将 是 一 组 过 程 ， 称 为 选择 函数 和 构造 函数 ， 它 们 在 具体 表示 之 上 实现 抽象 的 数据 。 
为 了 展示 这 一 技术 ， 下 面 我 们 将 考虑 怎样 设计 出 一 组 为 操作 有 理 数 而 用 的 过 程 。 


2.1.1 Z: 有 理 数 的 算术 运算 


假定 我 们 希望 做 有 理 数 上 的 算术 ， 和 希望 能 做 有 理 数 的 加 减 乘除 运算 ， 比 较 两 个 有 理 数 是 
否 相 等 ， 等 等 。 

作为 开始 ， 我 们 假定 已 经 有 了 一 种 从 分 子 和 分 母 构 造 有 理 数 的 方法 。 并 进一步 假定 ， 如 
果 有 了 一 个 有 理 数 ， 我 们 有 一 种 方法 取得 ( 选 出 ) 它 的 分 子 和 分 母 。 现 在 再 假定 有 关 的 构造 
函数 和 选择 函数 都 可 以 作为 过 程 使 用 : 
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e (make-rat <n> <d>) 返回 一 个 有 理 数 ， 其 分 子 是 整数 <n>， 分母 是 整数 <d>。 

。 (numer <x>) 返回 有 理 数 <x> 的 分 子 。 

。 (denom <x>) 返回 有 理 数 <x> 的 分 母 。 

我 们 要 在 这 里 使 用 一 种 称 为 按 愿 望 思 维 的 强 有 力 的 综合 策略 。 现 在 我 们 还 没有 说 有 理 
数 将 如 何 表 示 ， 也 没有 说 过 程 humer、denom 和 make-rat 应 如 何 实现 。 然 而 ， 如 果 我 们 
真 的 有 了 这 三 个 过 程 ， 那 么 就 可 以 根据 下 面 关 系 去 做 有 理 数 的 加 减 乘 除 和 相等 判断 了 : 


= nd, +n,d, 

7 dd, 

nd, —n,d, 
dd, 

_ nn, 

dd, 

-= nd, 

mid, dn, 


L= 当 且 仅 当 nd, =n,d, 
1 2 


= 
~ 


十 
= AJS 


A | 


a|s 


a |= 


RiP x 


= 
ws | ws 


,总 


入 | 三 


我 们 可 以 将 这 些 规则 表述 为 如 下 儿 个 过 程 : 
(define (add-rat x y) 
(make-rat (+ (* (numer x) (denom y)) 
(* (numer y) (denom x))) 


(* (denom x) (denom y)))) 


(define (sub-rat x y) 
(make-rat (- (* (numer x) (denom y) ) 
(* (numer y) (denom x)) ) 


(* (denom x) (denom y)))) 


(define (mul-rat x y) 
(make-rat (* (numer x) (numer y) ) 


(* (denom x) (denom y)))) 


(define (div-rat x y) 
(make-rat (* (numer x) (denom y) ) 


(* (denom x) (numer y)))) 


(define (equal-rat? x y) 
(= (* (numer x) (denom y)) 


(* (numer y) (denom x)))) 


这 样 ， 我 们 已 经 有 了 定义 在 选择 和 构造 过 程 numer、denom 和 make-zat 基 础 之 上 的 各 
种 有 理 数 运算 ， 而 这 些 基础 还 没有 定义 。 现 在 需要 有 某 种 方式 ， 将 一 个 分 子 和 一 个 分 母 粘 接 
起 来 ， 构 成 一 个 有 理 数 。 

序 对 

为 了 在 具体 的 层面 上 实现 这 一 数据 抽象 ， 我 们 所 用 的 语言 提供 了 一 种 称 为 序 对 的 复合 结 
构 ， 这 种 结构 可 以 通过 基本 过 程 cons 构 造 出 来 。 过 程 cons 取 两 个 参数 ， 返 回 一 个 包含 这 两 
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个 参数 作为 其 成 分 的 复合 数据 对 象 。 如 果 给 了 一 个 序 对 ,我们 可 以 用 基本 过 程 car 和 car®， 
按 如 下 方式 提取 出 其 中 各 个 部 分 : 


(define x (cons 1 2)) 


(car X) 
1 


(cdr x) 
2 


请 注意 ， 一 个 序 对 也 是 一 个 数据 对 象 ， 可 以 像 基 本 数据 对 象 一 样 给 它 一 个 名 字 且 操作 它 。 进 
一 步 说 ， 还 可 以 用 cons 去 构造 那 种 其 元 素 本 身 就 是 序 对 的 序 对 ， 并 继续 这 样 做 下 去 。 
(define x (cons 1 2)) 
(define y (cons 3 4)) 
(define z (cons x y)) 


{car (car z)) 
1 


(car (cdr z)) 
3 


在 2.2 节 里 我 们 将 看 到 ， 这 种 组 合 起 序 对 的 能 力 表 明 ， 序 对 可 以 用 作 构 造 任意 种 类 的 复杂 数据 
结构 的 通用 的 基本 构件 。 通 过 过 程 cons 、car 和 cdr 实 现 的 这 样 一 种 最 基本 的 复合 数据 ， 序 
对 ， 也 就 是 我 们 需要 的 所 有 东西 。 从 序 对 构造 起 来 的 数据 对 象 称 为 表 结 构 数 据 。 


有 理 数 的 表示 
序 对 为 完成 这 里 的 有 理 数 系统 提供 了 一 种 自然 方式 ， 我 们 可 以 将 有 理 数 简单 表示 为 两 个 
整数 (分子 和 分 母 ) 的 序 对 。 这 样 就 很 容易 做 出 下 面 make-rat、numer 和 denom 的 实现 %. 


(define (make-rat n d) (cons n d)) 
(define (numer x) (car x)) 


(define (denom x) (cdr x)) 


至 名 字 cons 表 示 “ 构 造 ”(construct) 。 名 字 car 和 cdar 则 来 自 Lisp 最 初 在 IBM 704 机 器 上 的 实现 。 在 这 种 机 器 有 
一 种 取 址 模式 ， 使 人 可 以 访问 一 个 存储 地 址 中 的 “地 址 ”(address) 部 分 和 “ 减 量 ”(decrement) 部 分 。car 
表示 “Contents of Address part of Register” (寄存 器 的 地 址 部 分 的 内 容 ) cdr ( 读 作 “could-er”) 表示 
“Contents of Decrement part of Register” (寄存 器 的 减 量 部 分 的 内 容 ) 。 

9 定义 选择 符 和 构造 符 的 另 一 种 方式 是 : 

(define make-rat cons) 
(define numer car) 
(define denom cdr) 
这 里 的 第 一 个 定义 将 名 字 make-zat 关 联 于 表达 式 cons 的 值 ， 也 就 是 那个 构造 序 对 的 过 程 。 这 样 就 使 make- 
rat 和 cons 成 了 同一 个 基本 过 程 的 名 字 。 

按照 这 种 方式 定义 出 选择 函数 和 构造 函数 的 效率 更 高 ， 因 为 它 不 是 让 make -rat 去 调用 cons， 而 是 使 
make-rat 本 身 就 是 cons， 因 此 ， 如 果 调 用 make-rat， 在 这 里 就 只 有 一 次 过 程 调用 而 不 是 两 次 调用 。 而 在 
另 一 方面 ， 这 种 做 法 也 会 击溃 系统 的 排 错 辅助 功能 ， 那 种 功能 可 以 追踪 过 程 的 调用 或 者 在 过 程 调用 处 放 人 断 
点 。 你 有 可 能 希望 监视 对 make-rat 的 调用 ， 而 决 不 会 希望 去 监视 程序 里 的 每 个 cons 调 用 。 

我 们 的 选择 是 ， 不 在 本 书 中 采用 这 里 所 说 的 定义 风格 。 
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还 有 ， 为 了 显示 这 里 的 计算 结果 ， 我 们 可 以 将 有 理 数 打印 为 一 个 分 子 ， 在 斜 线 符 之 后 打印 相 
应 的 分 母 ”: 
(define (print-rat x) 
(newline) 
(display (numer x)) 
(display "/") 
(display (denom x))) 


现在 就 可 以 试验 我 们 的 有 理 数 过 程 了 : 
(define one-half (make-rat 1 2)) 
(print-rat one-half) 
1/2 
(define one-third (make-rat 1 3)) 
(print-rat (add-rat one-half one-third) ) 
5/6 
(print-rat (mul-rat one-half one-third) ) 
1/6 


(print-rat (add-rat one-third one-third) ) 
6/9 


正如 上 面 最 后 一 个 例子 所 显示 的 ， 我 们 的 有 理 数 实现 并 没有 将 有 理 数 约 化 到 最 简 形 式 。 
通过 修改 make-zat 很 容易 做 到 这 件 事 。 如 果 我 们 有 了 一 个 如 1.2.5 节 中 那样 的 gcq 过 程 ， 用 
它 可 以 求 出 两 个 整数 的 最 大 公约 数 ， 那 么 现在 就 可 以 利用 它 ， 在 构造 序 对 之 前 将 分 子 和 分 母 
约 化 为 最 简单 的 项 : 

(define (make-rat n d) 


(let ((g (gcd n d))) 
(cons f7 mg) t/ ad g))y) 


现在 我 们 就 有 : 
(print-rat (add-rat one-third one-third) ) 
2/3 


正如 所 期 望 的 。 为 了 完成 这 一 改动 ， 我 们 只 需 修 改 构造 符 make-zat， 完 全 不 必修 改 任何 实 
现实 际 运算 的 过 程 (例如 add-rat 和 mul-rat)。 

练习 2.1 ”请 定义 出 make-rat 的 一 个 更 好 的 版 本 ,使 之 可 以 正确 处 理 正 数 和 负数 。 当 有 
理 数 为 正 时 ，make-rat 应 当 将 其 规范 化 ， 使 它 的 分 子 和 分 母 都 是 正 的 。 如 果 有 理 数 为 负 ， 
那么 就 应 只 让 分 子 为 负 。 


2.1.2 抽象 屏障 


在 继续 讨论 更 多 复合 数据 和 数据 抽象 的 实例 之 前 ， 让 我 们 首先 考虑 一 下 由 有 理 数 的 例子 
提出 的 儿 个 问题 。 前 面 给 出 的 所 有 有 理 数 操作 ， 都 是 基于 构造 函数 make -rat 和 选择 函数 


mdisplay 是 Scheme 系统 里 打印 数据 的 基本 过 程 ， 基 本 过 程 newline 为 随后 的 打印 开始 一 个 新 行 。 这 两 个 过 
程 都 不 返回 有 用 的 值 ， 所 以 ， 在 下 面 使 用 print-zat 时 ， 我 们 只 显示 了 print-zat 打 印 的 是 什么 ， 而 设 有 
显 式 解释 器 对 print-rat 的 返回 值 打印 了 什么 。 
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numer、denom 定 义 出 来 的 。 一 般 而 言 ， 数 据 抽象 的 基本 思想 就 是 为 每 一 类 数据 对 象 标识 
一 组 操作 ， 使 得 对 这 类 数据 对 象 的 所 有 操作 都 可 以 基于 它们 表述 ， 而 且 在 操作 这 些 数据 对 象 
时 也 只 使 用 它们 。 

图 2-1 形 象 化 地 表示 了 有 理 数 系统 的 结构 。 其 中 的 水 平 线 表 示 抽 象 屏障 ， 它 们 隔离 了 系统 
中 不 同 的 层次 。 在 每 一 层 上 ， 这 种 屏障 都 把 使 用 数据 抽象 的 程序 (上面 ) 与 实现 数据 抽象 的 
程序 (下面 ) 分 开 来 。 使 用 有 理 数 的 程序 将 仅仅 通过 有 理 数 包 提供 给 “公众 使 用 ”的 那些 过 
fi (add-rat、sub-rat、mul-rat、div-rat 和 equal-rat?) 去 完成 对 有 理 数 的 各 种 
操作 ， 这 些 过 程 转 而 又 是 完全 基于 构造 函数 和 选择 函数 make -rat、numer 和 denom 实 现 
的 ; 而 这 些 函 数 又 是 基于 序 对 实现 的 。 只 要 序 对 可 以 通过 cons、car 和 和 cdr 操作， 有 关 序 对 
如 何 实 现 的 细节 与 有 理 数 包 的 其 余部 分 都 完全 没有 关系 。 从 作用 上 看 ， 每 一 层次 中 的 过 程 构 
成 了 所 定义 的 抽象 屏障 的 界面 ， 联 系 起 系统 中 的 不 同 层次 。 


使 用 有 理 数 的 程序 


问题 域 中 的 有 理 数 


作为 分 子 和 分 母 的 有 理 数 


作为 序 对 的 有 理 数 


当然 ， 序 对 也 需要 实现 
图 2-1 有 理 数 包 中 的 数据 抽象 屏障 


这 一 简单 思想 有 许多 优点 。 第 一 个 优点 是 这 种 方法 使 程序 很 容易 维护 和 修改 。 任 意 一 种 
比较 复杂 的 数据 结构 ， 都 可 以 以 多 种 不 同方 式 用 程序 设计 语言 所 提供 的 基本 数据 结构 表示 。 
当然 ， 表 示 方 式 的 选择 会 对 操作 它 的 程序 产生 影响 ， 这 样 ， 如 果 后 来 表示 方式 改变 了 ， 所 有 
受 影 响 的 程序 也 都 需要 随 之 改变 。 对 于 大 型 程序 而 言 ， 这 种 工作 将 非常 耗 时 ， 而 且 代价 极其 
昂贵 ， 除 非 在 设计 时 就 已 经 将 依赖 于 表示 的 成 分 限制 到 很 少 的 一 些 程序 模块 上 。 

例如 ， 将 有 理 数 约 化 到 最 简 形 式 的 工作 ， 也 完全 可 以 不 在 构造 的 时 候 做 ， 而 是 在 每 次 访 
问 有 理 数 中 有 关 部 分 时 去 做 。 这 样 就 会 导致 另 一 套 不 同 的 构造 国 数 和 选择 函数 ; 

(define (make-rat n d) 


(cons n d)) 


(define (numer x) 
(let ((g (gcd (car x) (cdr x)))) 
(/ (car x) g))) 


(define (denom x) 
(let ((g (gcd (car x) (cdr x)))) 
(/ (cdr x) g))) 


这 一 实现 与 前 面 实现 的 不 同 之 处 在 于 何 时 计算 gca。 如 果 在 有 理 数 的 典型 使 用 中 ， 我 们 需要 


60 PIE Mié RE HR 








多 次 访问 同一 个 有 理 数 的 分 子 和 分 母 ， 那 么 最 好 是 在 构造 有 理 数 的 时 候 计 算 gcda。 如 果 情 况 
并 不 是 这 样 ， 那 么 把 对 gcd 的 计算 推迟 到 访问 时 也 许 更 好 一 些 。 在 这 里 ， 在 任何 情况 下 ， 当 
我 们 从 一 种 表示 方式 转 到 另 一 种 表示 时 ， 过 程 add-zat、sub-zat 等 等 都 完全 不 必修 改 。 
把 对 于 具体 表示 方式 的 依赖 性 限制 到 少数 几 个 界面 过 程 ， 不 但 对 修改 程序 有 帮助 ， 同 时 
也 有 助 于 程序 的 设计 ， 因 为 这 种 做 法 将 使 我 们 能 保留 考虑 不 同 实现 方式 的 灵活 性 。 继 续 前 面 
的 简单 例子 ,假定 现在 我 们 正在 设计 有 理 数 程序 包 ， 而且 还 无 法 决定 究竟 是 在 创建 时 执行 
gcd, 还 是 应 该 将 它 推迟 到 选择 的 时 候 。 数 据 抽象 方法 使 我 们 能 推迟 决策 的 时 间 ， 而 又 不 会 
阻碍 系统 其 他 部 分 的 工作 进展 。 
练习 2.2 请 考虑 平面 上 线段 的 表示 问题 。 一 个 线段 用 一 对 点 表示 ， 它 们 分 别 是 线段 的 始 
点 与 终点 。 请 定义 构造 函数 make-segment 和 选择 函数 start-segment、end-segment,， 
它们 基于 点 定义 线段 的 表示 。 进 而 ， 一 个 点 可 以 用 数 的 序 对 表示 ， 序 对 的 两 个 成 分 分 别 表示 
点 的 x 坐标 和 y 坐 标 。 请 据 此 进一步 给 出 构造 函数 mnake -point 和 选择 函数 x-point、y- 
point， 用 它们 定义 出 点 的 这 种 表示 。 最 后 ， 请 基于 所 定义 的 构造 函数 和 选择 函数 ， 定 义 出 
过 程 midpoint-segment， 它 以 一 个 线段 为 参数 ， 返 回 线段 的 中 点 〈 也 就 是 那个 坐标 值 是 
两 个 端点 的 平均 值 的 点 )。 为 了 试验 这 些 过 程 ， 还 需要 定义 一 种 打印 点 的 方法 : 
(define (print-point p) 
(newline) 
(display "(") 
(display (x-point p)) 
(display ",") 
(display (y-point p)) 
(display ")")) 
练习 2.3 ”请 实现 一 种 平面 矩形 的 表示 (提示 : 你 有 可 能 借用 练习 2.2 的 结果 )。 基 于 你 的 
构造 国 数 和 选择 函数 定义 几 个 过 程 ， 计 算 给 定 矩 形 的 周 长 和 面积 等 。 现 在 请 再 为 矩形 实现 另 
一 种 表示 方式 。 你 应 该 怎样 设计 系统 ， 使 之 能 提供 适当 的 抽象 屏障 ， 使 同一 个 周 长 或 者 面积 
过 程 对 两 种 不 同 表 示 都 能 工作 ? 


2.1.3 数据 意味 着 什么 


在 2.1.1 节 里 实现 有 理 数 时 ， 我 们 基于 三 个 尚未 定义 的 过 程 make-rat、numer 和 denom， 
由 这 些 出 发 去 做 有 理 数 操作 add-rat、sub-rat 等 等 的 实现 。 按 照 那 时 的 想法 ， 这 些 操作 是 
基于 数据 对 象 (分 子 、 分 母 、 有 理 数 ) 定义 的 ， 这 些 对 象 的 行为 完全 由 前 面 三 个 过 程 刻画 。 

那么 ， 数 据 究竟 意味 着 什么 呢 ? 说 它 就 是 “由 给 定 的 构造 函数 和 选择 函数 所 实现 的 东西 ” 
还 是 不 够 的 。 显然， 并 不 是 任意 的 三 个 过 程 都 适合 作为 有 理 数 实现 的 基础 。 在 这 里 ， 我 们 需 
要 保证 ， 如 果 从 一 对 整数 n 和 ad 构 造 出 一 个 有 理 数 x， 那 么 ， 抽 取出 x 的 numer 和 denom 并 将 它 
们 相 除 ， 得 到 的 结果 应 该 与 na 除 以 ad 相同。 换 句 话说 ，make -rat、numer 和 denom 必 须 满 足 
下 面条 件 ， 对 任意 整数 n 和 任意 非 零 整 数 Q， 如 果 x 是 (make-rat n d), 那么 : 


(numer x) n 





(denom x) d 
事实 上 ， 这 就 是 为 了 能 成 为 适宜 表示 有 理 数 的 基础 ，make-rat、numer 和 denom 必 须 满 足 
的 全 部 条 件 。 一 般 而 言 ， 我 们 总 可 以 将 数据 定义 为 一 组 适当 的 选择 函数 和 构造 函数 ， 以 及 为 
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使 这 些 过 程 成 为 一 套 合 法 表示 ， 它 们 就 必须 满足 的 一 组 特定 条 件 ”。 

这 一 观点 不 仅 可 以 服务 于 “高 层 ” 数 据 对 象 的 定义 ， 例 如 有 理 数 ， 同 样 也 可 用 于 低层 的 
对 象 。 请 考虑 序 对 的 概念 ， 我 们 在 前 面 用 它 定义 有 理 数 。 我 们 从 来 都 没有 说 过 序 对 究竟 是 什 
么 ， 只 说 所 用 的 语言 为 序 对 的 操作 提供 了 三 个 过 程 cons 、car 和 cdr。 有 关 这 三 个 操作 ， 我 
们 需要 知道 的 全 部 东西 就 是 ， 如 果 用 cons 将 两 个 对 象 粘 接 到 一 起 ， 那 么 就 可 以 借助 于 car 和 
cdr 提 取出 这 两 个 对 象 。 也 就 是 说 ， 这 些 操 作 满 足 的 条 件 是 : 对 任何 对 象 x 和 y， 如 果 z 是 
(cons x y), 那么 (car z) 就 是 x, 而 (cdr z) 就 是 y。 我 们 确实 说 过 这 三 个 过 程 是 所 
用 的 语言 里 的 基本 过 程 。 然 而 ， 任 何 能 满足 上 述 条 件 的 三 个 过 程 都 可 以 成 为 实现 序 对 的 基础 。 
下 面 这 个 令 人 吃惊 的 事实 能 够 最 好 地 说 明 这 一 点 : 我 们 完全 可 以 不 用 任何 数据 结构 ， 只 使 用 
过 程 就 可 以 实现 序 对 。 下 面 是 有 关 的 定义 : 

(define (cons x y) 

(define (dispatch m) 
(cond ((= m 0) x) 
((= m 1) y) 
(else (error "Argument not 0 or 1 -- CONS" m))) 
dispatch) 


(define (car z) (z 0)) 

(define (cdr z) (z 1)) 

过 程 的 这 一 使 用 方式 与 我 们 有 关 数 据 应 该 是 什么 的 直观 认识 大 相 径 庭 。 但 不 管 怎么 说 ， 如 果 
要 求 我 们 说 明 这 确实 是 一 种 表示 序 对 的 合法 方式 ， 那 么 只 需要 验证 ， 上 述 几 个 过 程 满足 了 前 
面 提出 的 所 有 条 件 。 

应 该 特别 注意 这 里 的 一 个 微妙 之 处 : 由 (cons x y) 返回 的 值 是 一 个 过 程 一 一 也 就 是 那 
个 内 部 定义 的 过 程 aispatch， 它 有 一 个 参数 ， 并 能 根据 参数 是 0 还 是 1， 分 别 返回 x 或 者 y。 
与 此 相对 应 ，(car z) 被 定义 为 将 z 应 用 于 0， 这 样 ， 如 果 z 是 由 (cons x y) 形成 的 过 程 ， 
将 z 应 用 于 0 将 会 产生 x， 这 样 就 证 明了 (car (cons x y)) 产生 出 x， 正 如 我 们 所 需要 的 。 
与 此 类 似 ，(cdr (cons x y)) 将 (cons x y) 产生 的 过 程 应 用 于 1 而 得 到 y。 因 此 ， 序 
对 的 这 一 过 程 实现 确实 是 一 个 合法 的 实现 ， 如 果 只 通过 cons 、car 和 和 cdr 访问 序 对 ， 我 们 将 
无 法 把 这 一 实现 与 “真正 的 ”数据 结构 区 分 开 。 

上 面 展示 了 序 对 的 一 种 过 程 性 表示 ， 这 并 不 意味 着 我 们 所 用 的 语言 就 是 这 样 做 的 
(Scheme 和 一 般 的 Lisp 系 统 都 直接 实现 序 对 ， 主 要 是 为 了 效率 )， 而 是 说 它 确实 可 以 这 样 做 。 
这 一 过 程 性 表示 虽然 有 些 隐 星 ， 但 它 确实 是 一 种 完全 合适 的 表示 序 对 的 方式 ， 因 为 它 满 足 了 
序 对 需要 满足 的 所 有 条 件 。 这 一 实例 也 说 明 可 以 将 过 程 作为 对 象 去 操作 ， 因 此 就 自动 地 为 我 





"1 令 和 人 吃惊 的 是 ， 将 这 一 思想 严格 地 形式 化 却 非 常 困难 。 目 前 存在 着 两 种 完成 这 一 形式 化 的 途径 。 第 一 种 由 C. 
A. R. Hoare (1972) 提出 ， 称 为 抽象 模型 方法 ， 它 形式 化 了 如 上 面 有 理 数 实例 中 所 勾勒 出 的 “过 程 加 条 件 ” 
的 规范 描述 。 请 注意 ， 这 里 对 于 有 理 数 表示 的 条 件 是 基于 有 关 整 数 的 事实 (相等 和 除法 ) 陈述 的 。 一 般 而 言 ， 
抽象 模型 方法 总 是 基于 某 些 已 经 有 定义 的 数据 对 象 类 型 ， 定 义 出 一 类 新 的 数据 对 象 。 这 样 ， 有 关 这 些 新 对 象 
的 断言 就 可 以 归 约 为 有 关 已 有 定义 的 数据 对 象 的 断言 。 另 一 种 途径 由 MIT 的 Zilles、Goguen 和 IBM 的 Thatcher、 
Wagner 和 Wright (WLThatcher, Wagner, and Wright 1978) ， 以 及 Toronto 的 Guttag ( 见 Guttag 1977) 提出 ， 称 
为 代数 规范 。 这 一 方式 将 “过 程 ” 看 作 是 一 个 抽象 代数 系统 的 元 素 ， 系 统 的 行为 由 一 些 对 应 于 我 们 的 “条 件 ” 
的 公理 刻画 ， 并 通过 抽象 代数 的 技术 去 检查 有 关 数 据 对 象 的 断言 。Liskov 和 Zilles 的 论文 (Liskov and 
Zilles1975) 里 综述 了 这 两 种 方法 。 
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们 提供 了 一 种 表示 复合 数据 的 能 力 。 这 些 东西 现在 看 起 来 好 像 只 是 很 好 玩 ， 但 实际 上 ， 数 据 
的 过 程 性 表示 将 在 我 们 的 程序 设计 宝库 里 扮演 一 种 核心 角色 。 有 关 的 程序 设计 风格 通常 称 为 
消息 传递 。 在 第 3 章 里 讨论 模型 和 模拟 时 ， 我 们 将 用 它 作为 一 种 基本 工具 。 

练习 2.4 下 面 是 序 对 的 另 一 种 过 程 性 表示 方式 。 请 针对 这 一 表示 验证 ,对 于 任意 的 x 和 Yy， 
(car (cons x y)) 都 将 产生 出 x。 

(define (cons x Y) 


(lambda (m) (m x y))) 


(define (car z) 
(z (lambda (p q) p))) 


对 应 的 cdar 应 该 如 何 定 义 ? (提示 : 为 了 验证 这 一 表示 确实 能 行 ， 请 利用 1.1.5 节 的 代 换 模 
型 。) 

练习 2.5 ”请 证 明 ， 如 果 将 a 和 4b 的 序 对 表示 为 乘积 2* 3 对 应 的 整数 ， 我 们 就 可 以 只 用 非 负 
整数 和 算术 运算 表示 序 对 。 请 给 出 对 应 的 过 程 cons、car 和 cdr 的 定义 。 

练习 2.6 《如果 觉得 将 序 对 表示 为 过 程 还 不 足以 令 人 如 雷 灌顶 ， 那 么 请 考虑 ， 在 一 个 可 以 
对 过 程 做 各 种 操作 的 语言 里 ， 我 们 完全 可 以 设 有 数 (至 少 在 只 考虑 非 负 整数 的 情况 下 )， 可 以 
将 0 和 加 一 操作 实现 为 : 

(define zero (lambda (f) (lambda (x) x))) 

(define (add-1 n) 

(lambda (f) (lambda (x) (f ((n £) x))))) 

这 一 表示 形式 称 为 Church 计 数 ， 名 字 来 源 于 其 发 明 人 数理 逻辑 学 家 Alonzo Church (fray), A 
演算 也 是 他 发 明 的 。 

请 直接 定义 one 和 two (不 用 zero 和 add-1) (提示 : 利用 代 换 去 求 值 (add-1 zero)), 
请 给 出 加 法 过 程 十 的 一 个 直接 定义 (不 要 通过 反复 应 用 add-1)。 


2.1.4 PRAY: 区 间 算 术 


Alyssa P. Hacker 正 在 设计 一 个 帮助 人 们 求解 工程 问题 的 系统 。 她 希望 这 个 系统 提供 的 一 
个 特征 是 能 够 去 操作 不 准确 的 量 (例如 物理 设备 的 测量 参数 ) ， 这 种 量具 有 已 知 的 精度 ， 所 以 ， 
在 对 这 种 近似 量 进行 计算 时 ， 得 到 的 结果 也 应 该 是 已 知 精度 的 数值 
电子 工程 师 将 会 用 Alyssa 的 系统 去 计算 一 些 电 子 量 。 有 时 他 们 必须 使 用 下 面 公式 ， 从 两 个 
电阻 RI/ 和 Rs 计算 出 并 联 等 价 电 阻 R, 的 值 : 
项 二 
1/R +1/R, 


此 时 所 知 的 电阻 值 通常 是 由 电阻 生产 厂商 给 出 的 带 误差 保证 的 值 ， 例 如 你 可 能 买 到 一 支 标 明 
“6.8 欧 姆 误差 10%” 的 电阻 ， 这 时 我 们 就 只 能 确定 ， 这 支 电 阻 的 阻 值 在 6.8 — 0.68 =6.12 和 6.8 
十 0.68 二 7.48 欧 姆 之 间 。 这 样 ， 如 果 将 一 支 6.8 欧 姆 误差 10% 的 电阻 与 另 一 支 4.7 欧 姆 误差 5% 的 
电阻 并 联 ， 这 一 组 合 的 电阻 值 可 以 在 大 约 2.58 欧 姆 (如 果 两 支 电 阻 都 有 最 小 值 ) 和 2.97 欧 姆 
(如 果 两 支 电 阻 都 是 最 大 值 ) 之 间 。 

Alyssa 的 想法 是 实现 一 套 “ 区 间 算 术 ”， 即 作为 可 以 用 于 组 合 “区 间 ”( 表 示 某 种 不 准确 
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量 的 可 能 值 的 对 象 ) 的 一 组 算术 运算 。 两 个 区 间 的 加 、 减 、 乘 、 除 的 结果 仍 是 一 个 区 间 ， 表 
示 的 是 计算 结果 的 范围 。 

Alyssa 假 设 有 一 种 称 为 “区 间 ” 的 抽象 对 象 ， 这 种 对 象 有 两 个 端点 ， 一 个 下 界 和 一 个 上 界 。 
她 还 假定 ， 给 了 一 个 区 间 的 两 个 端点 ， 就 可 以 用 数据 构造 函数 make-interval 构 造 出 相应 
的 区 间 来 。Alyssa 首 先 写 出 了 一 个 做 区 间 加 法 的 过 程 ， 她 推理 说 ， 和 的 最 小 值 应 该 是 两 个 区 
间 的 下 界 之 和 ， 其 最 大 值 应 该 是 两 个 区 间 的 上 界 之 和 : 


(define (add-interval x y) 
(make-interval (+ (lower-bound x) (lower-bound y) ) 


(+ (upper-bound x) (upper-bound y)))) 


Alyssa 还 找 出 了 这 种 界 的 乘积 的 最 小 和 最 大 值 ， 用 它们 做 出 了 两 个 区 间 的 乘积 (min 和 max 是 
求 出 任意 多 个 参数 中 的 最 小 值 和 最 大 值 的 基本 过 程 )。 
(define (mul-interval x y) 
(let ((pl (* (lower-bound x) (lower-bound y))) 

(p2 (* (lower-bound x) (upper-bound Y) ) ) 

(p3 (* (upper-bound x) (lower-bound y))) 

(p4 (* (upper-bound x) (upper-bound Y) ) ) ) 

(make-interval (min pl p2 p3 p4) 
(max pl p2 p3 p4)))) 

为 了 做 出 两 个 区 间 的 除法 ，Alyssa 用 第 一 个 区 间 乘 上 第 二 个 区 间 的 倒数 。 请 注意 ， 倒 数 的 两 
个 界限 分 别 是 原来 区 间 的 上 界 的 倒数 和 下 界 的 倒数 : 


(define (div-interval x y) 
(mul-interval x 
(make-interval (/ 1.0 (upper-bound y) ) 
(/ 1.0 (lower-bound y))))) 


练习 2.7 Alyssa 的 程序 是 不 完整 的 ， 因 为 她 还 没有 确定 区 间 抽 象 的 实现 。 这 里 是 区 间 构 
造 符 的 定义 : 

(define (make-interval a b) (cons a b)) 
请 定义 选择 符 upper-bound 和 lower-bound， 完 成 这 一 实现 。 

练习 2.8 ”通过 类 似 于 Alyssa 的 推理 ， 说 明 两 个 区 间 的 差 应 该 怎样 计算 。 请 定义 出 相应 的 
减法 过 程 sub-interval。 

练习 2.9 区间 的 宽度 就 是 其 上 界 和 下 界 之 差 的 一 半 。 区 间 宽 度 是 有 关 区 间 所 描述 的 相应 
数值 的 非 确定 性 的 一 种 度量 。 对 于 某 些 算术 运算 ， 两 个 区 间 的 组 合 结果 的 宽度 就 是 参数 区 间 
的 宽度 的 函数 ， 而 对 其 他 运算 ,组 合 区 间 的 宽度 则 不 是 参数 区 间 宽 度 的 函数 。 证 明 两 个 区 间 
的 和 “(与 差 ) 的 宽度 就 是 被 加 (或 减 ) 的 区 间 的 宽度 的 函数 。 举 例 说 明 ， 对 于 乘 和 除 而 言 ， 
情况 并 非 如 此 。 

练习 2.10 Ben Bitdiddle 是 个 专业 程序 员 ， 他 看 了 Alyssa 工 作 后 评论 说 ， 除 以 一 个 跨 过 横 
跨 0 的 区 间 的 意义 不 清楚 。 请 修改 Alyssa 的 代码 ,检查 这 种 情况 并 在 出 现 这 一 情况 时 报错 。 

练习 2.11 在 看 了 这 些 东 西 之 后 ，Ben 又 说 出 了 下 面 这 段 有 些 神 秘 的 话 :“ 通 过 监测 区 间 
的 端点 ， 有 可 能 将 mul-interval 分 解 为 9 种 情况 ， 每 种 情况 中 所 需 的 乘法 都 不 超过 两 次 。” 
请 根据 Ben 的 建议 重 写 这 个 过 程 。 
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在 排除 了 自己 程序 里 的 错误 之 后 ，Alyssa 给 一 个 可 能 用 户 演示 自己 的 程序 。 那 个 用 户 却说 
她 的 程序 解决 的 问题 根本 不 对 。 他 希望 能 够 有 一 个 程序 ， 可 以 用 于 处 理 那 种 用 一 个 中 间 值 和 
一 个 附加 误差 的 形式 表示 的 数 ， 也 就 是 说 ,希望 程序 能 处 理 3.5 土 0.15 而 不 是 [3.35，3.65]。 
Alyssa 回 到 自己 的 办 公 梨 来 纠正 这 一 问题 ， 另 外 提供 了 一 个 构造 符 和 一 个 选择 符 : 

(define (make-center-width c w) 

(make-interval (- c w) (+ c w))) 

(define (center i) 

(/ (+ (lower-bound i) (upper-bound i)) 2)) 

(define (width i) 

(/ (- (upper-bound i) (lower-bound i)) 2)) 

不 幸 的 是 ，Alyssa 的 大 部 分 用 户 是 工程 师 ， 现 实 中 的 工程 师 经 常 遇 到 只 有 很 小 非 准 确 性 的 
测量 值 ， 而 且 常 常 是 以 区 间 宽 度 对 区 间 中 点 的 比值 作为 度量 值 。 他 们 通常 用 的 是 基于 有 关 部 
件 的 参数 的 百分数 描述 的 误差 ， 就 像 前 面 描述 电阻 值 的 那 种 方式 一 样 。 

练习 2.12 ”请 定义 一 个 构造 函数 make-center-percent， 它 以 一 个 中 心 点 和 一 个 百 分 
比 为 参数 ， 产 生出 所 需要 的 区 间 。 你 还 需要 定义 选择 函数 percent， 通 过 它 可 以 得 到 给 定 区 
间 的 百分数 误差 ， 选择 函 数 center 与 前 面 定 义 的 一 样 。 

练习 2.13 ”请 证 明 ， 在 误差 为 很 小 的 百分数 的 条 件 下 ， 存 在 着 一 个 简单 公式 ， 利 用 它 可 以 
从 两 个 被 乘 区 间 的 误差 算出 乘积 的 百分数 误差 值 。 你 可 以 假定 所 有 的 数 为 正 ， 以 简化 这 一 问题 。 

经 过 相当 多 的 工作 之 后 ，Alyssa P. Hacker 发 布 了 她 的 最 后 系统 。 几 年 之 后 ， 在 她 已 经 忘 
记 了 这 个 系统 之 后 ， 接 到 了 一 个 愤怒 的 用 户 Lem E. Tweakit 的 发 疯 式 的 电话 。 看 起 来 Lem 注 意 
到 并 联 电阻 的 公式 可 以 写成 两 个 代数 上 等 价 的 公式 : 

RR, 
R,+R, 





和 
— 
I/R +1/R, 


这 样 他 就 写 了 两 个 程序 ， 它 们 以 不 同 的 方式 计算 并 联 电阻 值 : 
(define (parl r1 r2) 
(div-interval (mul-interval r1 r2) 
(add-interval r1 r2))) 


(define (par2 r1 r2) 
(let ((one (make-interval 1 1))) 
(div-interval one 
(add-interval (div-interval one r1) 


(div-interval one r2))))) 


Lem 抱 怨 说 ，Alyssa 程 序 对 两 种 不 同 计算 方法 给 出 不 同 的 值 。 这 确实 是 很 严重 的 抱怨 。 

练习 2.14 ”请 确认 Lem 是 对 的 。 请 你 用 各 种 不 同 的 算术 表达 式 来 检查 这 一 系统 的 行为 。 请 
做 出 两 个 区 间 A 和 B， 并 用 它们 计算 表达 式 A/4 和 A/B。 如 果 所 用 区 间 的 宽度 相对 于 中 心 值 取 很 
小 百分数 ， 你 将 会 得 到 更 多 的 认识 。 请 检查 对 于 中 心 一 百分比 形式 ( 见 练习 2.12) 进行 计算 
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的 结果 。 

练习 2.15” 另 一 用 户 Eva Lu Ator 也 注意 到 了 由 不 同 的 等 价 代数 表达 式 计算 出 的 区 间 的 差异 。 
她 说 ， 如 果 一 个 公式 可 以 写成 一 种 形式 ， 其 中 具有 非 准 确 性 的 变量 不 重复 出 现 ， 那 么 Alyssa 
的 系统 产生 出 的 区 间 的 限界 更 紧 一 些 。 她 说 ， 因 此 ， 在 计算 并 联 电 阻 时 ，Paz2 是 比 par1 
“更 好 的 ”程序 。 她 说 得 对 吗 ? 

练习 2.16 ”请 给 出 一 个 一 般 性 的 解释 ， 为 什么 等 价 的 代数 表达 式 可 能 导致 不 同 计 算 结 
R? 你 能 设计 出 一 个 区 间 算 术 包 ， 使 之 没有 这 种 缺陷 吗 ? 或 者 这 件 事情 根本 不 可 能 做 到 ? 
(警告 : 这 个 问题 非常 难 。) 


2.2 层次 性 数据 和 闭 包 性 质 


正如 在 前 面 已 经 看 到 的 ， 序 对 为 我 们 提供 了 一 种 用 于 构造 复合 数据 的 基本 “ 黏 结 剂 ”。 
2-2 展 示 的 是 一 种 以 形象 的 形式 看 序 对 的 标准 方式 ， 其 
中 的 序 对 是 通过 (cons 1 2) BRN. XMAS 
子 和 指针 表示 方式 中 ， 每 个 对 象 表示 为 一 个 指向 盒子 的 
指针 。 与 基本 对 象 相 对 应 的 盒子 里 包含 着 该 对 象 的 表示 ， 
例如 ， 表 示 数 的 盒子 里 就 放 着 那个 具体 的 数 。 用 于 表示 
序 对 的 盒子 实际 上 是 一 对 方 盒 ， 其 中 左边 的 方 盒 里 放 着 
序 对 的 car (指向 caz 的 指针 ) ， 右 边 部 分 放 着 相应 的 car。 

前 面 已 经 看 到 了 ， 我 们 不 仅 可 以 用 cons 去 组 合 起 各 种 数值 ， 也 可 以 用 它 去 组 合 起 序 对 
(你 在 做 练习 2.2 和 练习 2.3 时 已 经 ， 或 者 说 应 该 ， 熟 悉 这 一 情况 了 )。 作 为 这 种 情况 的 推论 ， 序 
对 就 是 一 种 通用 的 建筑 砌 块 ， 通 过 它 可 以 构造 起 所 有 不 同 种 类 的 数据 结构 来 。 图 2-3 显 示 的 是 
组 合 起 数值 1、2、3、4 的 两 种 不 同方 式 。 





图 2-2 (cons1 2) 的 盒子 和 指针 表示 





(cons (cons 1 2) (cons (cons 1 
(cons 3 4)) (cons 2 3)) 
4) 


图 2-3 用 序 对 组 合 起 数值 1、2、3、4 的 两 种 不 同方 式 


我 们 可 以 建立 元 素 本 身 也 是 序 对 的 序 对 ， 这 就 是 表 结构 得 以 作为 一 种 表示 工具 的 根本 基 
础 。 我 们 将 这 种 能 力 称 为 cons 的 闲 包 性 质 。 一 般 说 ， 某 种 组 合 数据 对 象 的 操作 满足 财 包 性 质 ， 
那 就 是 说 ， 通 过 它 组 合 起 数据 对 象 得 到 的 结果 本 身 还 可 以 通过 同样 的 操作 再 进行 组 合 ”。 闭 包 


了 术语 “ 闭 包 ”来 自 抽象 代数 。 在 抽象 代数 里 ， 一 集 元 素 称 为 在 某 个 运算 (操作) 之 下 封闭 ， 如 果 将 该 运算 应 
用 于 这 一 集合 中 的 元 素 ， 产 生出 的 仍然 是 该 集合 里 的 元 素 。 然 而 Lisp 社 团 CRA) 还 用 术语 “ 闭 包 ”描述 
另 一 个 与 此 毫 不 相干 的 概念 : 闭 包 也 是 一 种 为 表示 带 有 自由 变量 的 过 程 而 用 的 实现 技术 。 本 书 中 没有 采用 闭 
包 这 一 术语 的 第 二 种 意义 。 
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性 质 是 任何 一 种 组 合 功能 的 威力 的 关键 要 素 ， 因 为 它 使 我 们 能 够 建立 起 层次 性 的 结构 ， 这 种 
结构 由 一 些 部 分 构成 ， 而 其 中 的 各 个 部 分 又 是 由 它们 的 部 分 构成 ， 并 且 可 以 如 此 继续 下 去 。 

从 第 1 章 的 开始 ， 我 们 在 处 理 过 程 的 问题 中 就 利用 了 闭 包 性 质 ， 而 且 是 最 本 质 性 的 东西 ， 
因为 除了 最 简单 的 程序 外 ， 所 有 程序 都 依赖 于 一 个 事实 : 组 合式 的 成 员 本 身 还 可 以 是 组 合式 .。 
在 这 一 市 里 ， 我 们 要 着 手 研究 复合 数据 的 闭 包 所 引出 的 问题 。 这 里 将 要 描述 一 些 用 起 来 很 方 
便 的 技术 ， 包 括 用 序 对 来 表示 序列 和 树 。 还 要 给 出 一 种 能 以 某 种 很 生动 的 形式 显示 闭 包 的 图 
形 语 言 ”。 


2.2.1 序列 的 表示 


利用 序 对 可 以 构造 出 的 一 类 有 用 结构 是 序列 一 一 一 批 数据 对 象 的 一 种 有 序 汇集 。 显 然 ， 采 
用 序 对 表示 序列 的 方式 很 多 ,一 种 最 直接 的 表示 方式 如 图 2-4 所 示 ， 其 中 用 一 个 序 对 的 链条 表 
示 出 序列 1，2，3，4， 在 这 里 ， 每 个 序 对 的 caz 部 分 对 应 于 这 个 链 中 的 条 目 ，cdazr 则 是 链 中 下 
一 个 序 对 。 最 后 的 一 个 序 对 的 car 用 一 个 能 辨 明 不 是 序 对 的 值 表示 ， 标 明 序 列 的 结束 ， 在 盒 
子 指针 图 中 用 一 条 对 角 线 表 示 ， 在 程序 里 用 变量 nil1 的 值 。 整 个 序列 可 以 通过 磐 套 的 cons 操 
作 构 造 起 来 : 





图 2-4 将 序列 1，2，3，4 表 示 为 序 对 的 链 


(cons 1 
(cons 2 
(cons 3 


(cons 4 nil)))) 


Wt REN consi MANIK PIP NEI PRA AR, Scheme AH HRN IG, HEE 
了 一 个 基本 操作 1ist?4， 上 面 序列 也 可 以 通过 (list 1 2 3 4) FÆ. 一般 说 : 


(list <a> <a> ... <dan>) 
(cons <a,;> (cons <a> (cons ... (cons <a,> nil) ...))) 


”一 种 组 合 方法 应 该 满足 闭 包 的 要 求 是 一 种 很 明显 的 想法 。 然 而 ， 许 多 常见 程序 设计 语言 所 提供 的 数据 组 合 机 
制 都 不 满足 这 一 性 质 ， 或 者 是 使 得 其 中 的 闭 包 性 质 很 难 利用 。 在 Fortran 或 Basic 里 ,组合 数 据 的 一 种 典型 方式 
是 将 它们 放 入 数组 一 一 但 人 却 不 能 做 出 元 素 本 身 是 数组 的 数组 。Pascal 和 C 人 允许 结 构 的 元 素 又 是 结构 ， 但 却 要 
求 程序 员 去 显 式 地 操作 指针 ， 并 限制 性 地 要 求 结构 的 每 个 域 都 只 能 包含 预先 定义 好 形式 的 元 素 。 与 Lisp 及 其 
序 对 不 同 ， 这 些 语 言 都 没有 内 部 的 通用 性 粘 接 剂 ， 因 此 无 法 以 统一 的 方式 去 操作 复合 数据 。 这 一 限制 也 就 是 
Alan Perlis 在 本 书 前 言 中 的 评论 的 背景 ;“ 在 Pascal 里 ， 过 多 的 可 声明 数据 结构 导致 了 函数 的 专用 化 ， 这 就 造 
成 了 对 合作 的 阻碍 和 惩罚 。 让 100 个 函数 在 一 个 数据 结构 上 操作 ， 远 比 让 10 个 函数 在 10 个 数据 结构 上 操作 更 好 
t,” 

“在 这 本 书 里 ， 我 们 用 术语 表 专 指 那些 有 表 尾 结束 标记 的 序 对 的 链 。 与 此 相对 应 ， 用 术语 表 结 构 指 所 有 的 由 序 
对 构造 起 来 的 数据 结构 ， 而 不 仅 是 表 。 
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Lisp 系 统 通常 用 元 素 序列 的 形式 打印 出 表 ， 外 面 用 括号 括 起 。 按 照 这 种 方式 ， 图 2-4 里 的 数据 
对 象 就 将 打印 为 (1 2 3 4): 

(define one-through-four (list 1 2 3 4)) 

one-through-four 

(1 2 3 4) 

请 当心 ， 不 要 将 表达 式 (List 1 2 3 4) 和 表 (1 2 3 4) 搞 混 了 。 后 面 这 个 表 是 对 前 面 
表达 式 求 值得 到 的 结果 。 如 果 想 去 求 值 表达 式 (1 2 3 4), 解释 器 就 会 试图 将 过 程 1 应 用 于 
参数 2、3 和 4， 这 时 会 发 出 一 个 出 错 信号 。 

我 们 可 以 将 car 看 作 选 取 表 的 第 一 项 的 操作 ， 将 car 看 作 是 选取 表 中 除去 第 一 项 之 后 剩 下 
的 所 有 项 形成 的 子 表 。car 和 cdr 的 柑 套 应 用 可 以 取出 一 个 表 里 的 第 二 、 第 三 以 及 后 面 的 各 项 ”。 
构造 符 cons 可 用 于 构造 表 ， 它 在 原 有 的 表 前 面 增加 一 个 元 素 : 

(car one-through-four) 


1 


(cdr one-through-four) 
(2 3 4) 


(car (cdr one-through-four)) 
2 


(cons 10 one-through-four) 
(10 1 2 3 4) 


(cons 5 one-through-four) 

(5 123 4) 
nil 的 值 用 于 表示 序 对 的 链 结 束 ， 它 也 可 以 当 作 一 个 不 包含 任何 元 素 的 序列 ， 空 表 。 单 词 
“nil” 是 拉丁 词汇 “nihil” 的 缩写 ， 这 个 拉丁 词汇 表示 “什么 也 没有 ””%。 

表 操 作 

利用 序 对 将 元 素 的 序列 表示 为 表 之 后 ， 我 们 就 可 以 使 用 常规 的 程序 设计 技术 ， 通 过 顺序 
“向 下 cdQr” 表 的 方式 完成 对 表 的 各 种 操作 了 。 例 如 ， 下 面 的 过 程 1ist -ref 的 实际 参数 是 一 
个 表 和 一 个 数 n+?， 它 返回 这 个 表 中 的 第 n 个 项 。 这 里 人 们 习惯 令 表 元 素 的 编号 从 0 开始 。 计 算 
list-ref 的 方法 如 下 : 

。 对 n= 二 0，1ist-ref 应 返回 表 的 car。 

* 否则 ，list-ref 返 回 表 的 cdr 的 第 (n 一 1) 个 项 。 


5 因为 嵌 套 地 应 用 car 和 cdz 也 会 感到 很 麻烦 ， 所 以 许多 Lisp 方 言 都 提供 了 它们 的 缩写 形式 ， 例 如 ， 
(cadr <arg>) = (car (cdr <arg>)) 


所 有 这 类 过 程 的 名 字 都 以 c 开 头 ， 以 z 结 束 ， 其 中 每 个 a 表 示 一 个 car 操 作 ， 每 个 Q 表 示 一 个 car 操 作 ， 按 照 它 
们 在 名 字 中 出 现 的 顺序 应 用 。 读 car 和 cdr 的 方式 则 继续 保留 ， 因 为 像 cadr 这 样 的 简单 组 合 还 是 可 以 发 音 的 。 
值得 提出 的 是 ， 在 Lisp 方 言 的 标准 化 方面 ， 人 们 已 经 令 人 气 包 地 将 许 许 多 多 精力 花 在 一 些 毫 无 意义 的 字面 问 
题 的 争论 上 : nil1 应 该 是 个 普通 的 名 字 吗 ? nil 的 值 应 该 算是 一 个 符号 吗 ?” 它 应 该 算是 一 个 表 吗 ?” 它 应 该 算 
-个 序 对 吗 ? 在 Scheme 里 ni1 是 个 普通 的 名 字 ， 在 本 节 里 被 我 们 用 作 一 个 变量 ， 其 值 就 是 表 尾 标记 (正如 
true 是 个 普通 变量 ， 具 有 真 的 值 一 样 )。Lisp 的 其 他 方言 ， 包 括 Common Lisp， 都 将 nil 作 为 一 个 特殊 符号 。 
本 书 的 作者 参加 过 许多 语言 标准 化 方面 的 无 益 口 角 ， 真 是 希望 完全 避免 这 些 东 西 。 到 2.3 节 引进 了 引号 之 后 ， 
我 们 就 将 一 直 用 O 表示 空 表 ， 完 全 抛弃 变量 nil。 


68 RLF Fie MH i F 


(define (list-ref items n) 
(if (=n 0) 
(car items) 
(list-ref (cdr items) (- n 1)))) 


(define squares (list 1 4 9 16 25)) 


(list-ref squares 3) 
16 


我 们 经 常 要 向 下 cdaz 整 个 的 表 ， 为 了 帮助 做 好 这 件 事 ，Scheme 包 含 一 个 基本 操作 nu11?， 
用 于 检查 参数 是 不 是 空 表 。 返 回 表 中 项 数 的 过 程 1ength 可 以 说 明 这 一 典型 应 用 模式 : 
(define (length items) 
(if (null? items) 


0 
(+ 1 (length (cdr items))))) 


(define odds (list 13 5 7)) 


(length odds) 
4 
过 程 1ength 实 现 一 种 简单 的 递归 方案 ， 其 中 的 递归 步骤 是 : 
“任意 一 个 表 的 1ength 就 是 这 个 表 的 car 的 1ength 加 一 。 
顺序 地 这 样 应 用 ， 直 至 达到 了 基础 情况 : 
。 空 表 的 1ength 是 0。 
我 们 也 可 以 用 一 种 迭代 方式 来 计算 length: 
(define (length items) 
(define (length-iter a count) 
(if (null? a) 
count 
(length-iter (cdr a) (+ 1 count)))) 
(length-iter items 0)) 
另 一 常用 程序 设计 技术 是 在 向 下 car 一 个 表 的 过 程 中 “向 上 cons” 出 一 个 结果 表 ， 例 如 
过 程 append， 它 以 两 个 表 为 参数 ， 用 它们 的 元 素 组 合成 一 个 新 表 : 
(append squares odds) 
(1 49 16 2523 5 7) 


(append odds squares) 
{13 & 7 1 4 9 16 25) 


append 也 是 用 一 种 递归 方案 实现 的 。 要 得 到 表 1ist1l 和 1ist2 的 append， 按 如 下 方式 做 : 
。 如 果 1List1 是 空 表 ， 结 果 就 是 1ist2。 
。 否则 应 先 做 出 1ist1l 的 cdr 和 1ist2 的 append， 而 后 再 将 1ist1 的 car 通 过 cons 加 到 
结果 的 前 面 : 
(define (append listl1 list2) 
(i£ (null? list1) 


list2 
(cons (car list1) (append (cdr list1) list2)))) 
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练习 2.17 ”请 定义 出 过 程 last -pair， 它 返回 只 包含 给 定 GFZ) 表 里 最 后 一 个 元 素 的 


(last-pair (list 23 72 149 34)) 

(34) 

练习 2.18 ”请 定义 出 过 程 reverse， 它 以 一 个 表 为 参数 ， 返 回 的 表 中 所 包含 的 元 素 与 参 
数 表 相同 ， 但 排列 顺序 与 参数 表 相 反 : 


(reverse (list 1 4 9 16 25)) 
(25 16 9 4 1) 


练习 2.19 ”请 考虑 1.2.2 节 的 兑换 零钱 方式 计数 程序 。 如 果 能 够 轻而易举 地 改变 程序 里 所 
用 的 兑换 币 种 就 更 好 了 。 警 如 说 ， 那 样 我 们 就 能 计算 出 1 英镑 的 不 同 兑 换 方 式 的 数目 。 在 写 前 
面 那 个 程序 时 ， 有 关 币 种 的 知识 中 有 一 部 分 出 现在 过 程 Eizst-denomination 里 ， 另 一 部 
分 出 现在 过 程 里 count -change ( 它 知道 有 5 种 U.S. 硬 币 )。 如 果 能 够 用 一 个 表 来 提供 可 用 于 
兑换 的 硬币 就 更 好 了 。 

我 们 希望 重 写 出 过 程 cc， 使 其 第 二 个 参数 是 一 个 可 用 硬币 的 币值 表 ， 而 不 是 一 个 指定 可 
用 硬币 种 类 的 整数 。 而 后 我 们 就 可 以 针对 各 种 货币 定义 出 一 些 表 : 


(define us-coins (list 50 25 10 5 1)) 
(define uk-coins (list 100 50 20 10 5 2 1 0.5)) 


然后 我 们 就 可 以 通过 如 下 方式 调用 cc: 
(cc 100 us-coins) 
292 


为 了 做 到 这 件 事 ， 我 们 需要 对 程序 cc 做 一 些 修改 。 它 仍然 具有 同样 的 形式 ， 但 将 以 不 同 的 方 
式 访问 自己 的 第 二 个 参数 ， 如 下 面 所 示 : 
(define (cc amount coin-values) 
(cond ((= amount 0) 1) 
((or (< amount 0) (no-more? coin-values)) 0) 
(else 
(+ (cc amount 
(except-first-denomination coin-values) ) 
(cc (- amount 
(first-denomination coin-values) ) 
coin-values) )))) 


请 基于 表 结 构 上 的 基本 操作 ， 定 义 出 过 程 fEirst-denomination、except-first- 
denomination 和 no-more?。 表 coin-values 的 排列 顺序 会 影响 cc 给 出 的 回答 吗 ? Att 
么 ? 

练习 2.20 “过程 +、* 和 1ist 可 以 取 任 意 个 数 的 实际 参数 。 定 义 这 类 过 程 的 一 种 方式 是 
采用 一 种 带 点 尾部 记 法 形式 的 define。 在 一 个 过 程 定义 中 ， 如 果 在 形式 参数 表 的 最 后 一 个 参 
数 之 前 有 一 个 点 号 ， 那 就 表明 ， 当 这 一 过 程 被 实际 调用 时 ， 前 面 各 个 形式 参数 (如 果 有 的 话 ) 
将 以 前 面 的 各 个 实际 参数 为 值 ， 与 平常 一 样 。 但 最 后 一 个 形式 参数 将 以 所 有 剩 下 的 实际 参数 
的 表 为 值 。 例 如 ， 假 若 我 们 定义 了 : 


(define (f x y . z) <body>) 
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过 程 三 就 可 以 用 两 个 以 上 的 参数 调用 。 如 果 求 值 : 


(El 23 4 5 6) 


那么 在 上 的 体 里 ，x 将 是 1，Y 将 是 2， 而 z 将 是 表 (3 4 5 6), BM: 


(define (g . w) <body>) 


过 程 g9 可 以 用 0 个 或 多 个 参数 调用 。 如 果 求 值 : 


(g 123.4 5 6) 


那么 在 g 的 体 里 ，w 将 是 表 (1 2 3 4 5 6)”, 
请 采用 这 种 记 法 形式 写 出 过 程 same-parity， 它 以 一 个 或 者 多 个 整数 为 参数 ， 返 回 所 有 
与 其 第 一 个 参数 有 着 同样 奇偶 性 的 参数 形成 的 表 。 例 如 : 


(same-parity 1 2 3 4 5 6 7) 
(1 35 7) 


(same-parity 2 3 4 5 6 7) 
(2 4 6) 


对 表 的 映射 
一 个 特别 有 用 的 操作 是 将 某 种 变换 应 用 于 一 个 表 的 所 有 元 素 ， 得 到 所 有 结果 构成 的 表 。 
举例 来 说 ， 下 面 过 程 将 一 个 表 里 的 所 有 元 素 按 给 定 因子 做 一 次 缩放 : 


(define (scale-list items factor) 
(if (null? items) 
nil 
(cons (* (car items) factor) 
(scale-list (cdr items) factor)))) 


(scale-list (list 12 3 4 5) 10) 
(10 20 30 40 50) 


我 们 可 以 抽象 出 这 一 具有 一 般 性 的 想法 ， 将 其 中 的 公共 模式 表述 为 一 个 高 阶 过 程 ， 就 像 
1.3 节 里 所 做 的 那样 。 这 一 高 阶 过 程 称 为 map， 它 有 一 个 过 程 参数 和 一 个 表 参 数 ， 返 回 将 这 一 
过 程 应 用 于 表 中 各 个 元 素 得 到 的 结果 形成 的 表 ”。 


(define (map proc items) 


(if (null? items) 


7 用 lambdaa 方 式 定义 E 和 g， 应 该 写 : 
(define f (lambda (x y . z) <body>)) 
(define g (lambda w <body>) ) 

Scheme 标准 提供 了 一 个 map 过 程 ， 它 比 这 里 描述 的 过 程 更 具 一 般 性 。 这 个 更 一 般 的 map 以 一 个 取 n 个 参数 的 过 
程 和 n 个 表 为 参数 ， 将 这 个 过 程 应 用 于 所 有 表 的 第 一 个 元 素 ， 而 后 应 用 于 它们 的 第 二 个 元 素 ， 如 此 下 去 ， 最 后 
返回 所 有 结果 的 表 。 例 如 : 


(map + (list 1 2 3) (list 40 50 60) (list 700 800 900)) 
(741 852 963) 


(map (lambda (x y) (+ x (* 2 y))) 
(list 1 2 3) 
(list 4 5 6)) 

(9 12 15) 
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nil 
(cons (proc (car items) ) 
(map proc (cdr items) )))) 


(map abs (list -10 2.5 -11.6 17)) 
(10 2.5 11.6 17) 


(map (lambda (x) (* x x)) 
(list 1 2 3 4)) 
(1 4 9 16) 


现在 我 们 可 以 用 map 给 出 scale-1ist 的 一 个 新 定义 : 
(define (scale-list items factor) 
(map (lambda (x) (* x factor) ) 
items) ) 
map 是 一 种 很 重要 的 结构 ， 不 仅 因 为 它 代表 了 一 种 公共 模式 ， 而 且 因为 它 建立 起 了 一 种 
处 理 表 的 高 层 抽象 。 在 scale-1ist 原 来 的 定义 里 ， 程 序 的 递归 结构 将 人 的 注意 力 吸引 到 对 
于 表 中 逐个 元 素 的 处 理 上 。 通 过 map 定 义 scale-1ist 抑 制 了 这 种 细节 层面 上 的 情况 ， 强 调 
的 是 从 元 素 表 到 结果 表 的 一 个 缩放 变换 。 这 两 种 定义 形式 之 间 的 差异 ， 并 不 在 于 计算 机 会 执 
行 不 同 的 计算 过 程 (其实 不 会 ) ， 而 在 于 我 们 对 这 同一 个 过 程 的 不 同 思考 方式 。 从 作用 上 看 ， 
map 帮 有 我 们 建 起 了 一 层 抽 象 屏障 ， 将 实现 表 变 换 的 过 程 的 实现 ， 与 如 何 提取 表 中 元 素 以 及 组 
合 结果 的 细节 隔离 开 。 与 图 2-1 里 所 示 的 屏障 类 似 ， 这 种 抽象 也 提供 了 新 的 灵活 性 ， 使 我 们 有 
可 能 在 保持 从 序列 到 序列 的 变换 操作 框架 的 同时 ， 改 变 序 列 实现 的 低层 细节 。2.2.3 节 将 把 序 
列 的 这 种 使 用 方式 扩展 为 一 种 组 织 程序 的 框架 。 
练习 2.21 过 程 square-1ist 以 一 个 数值 表 为 参数 ， 返 回 每 个 数 的 平方 构成 的 表 : 
(square-list (list 1 2 3 4)) 
(1 4 9 16) 
下 面 是 square-1ist 的 两 个 定义 ， 请 填充 其 中 缺少 的 表达 式 以 完成 它们 : 
(define (square-list items) 
(if (null? items) 
nil 
(cons <??> <??>))) 
(define (square-list items) 
(map <??> <??>)) 
练习 2.22 Louis Reasoner 试 图 重 写 练习 2.21 的 第 一 个 square-1ist 过 程 ， 希 望 使 它 能 
AE BSI RT Bat FE 
(define (square-list items) 
(define (iter things answer) 
(if (null? things) 
(iter (cdr things) 
(cons (square (car things) ) 


answer) ))) 


(iter items nil) ) 


但 是 很 不 幸 ， 在 按 这 种 方式 定义 出 的 square-1ist 产 生出 的 结果 表 中 ， 元 素 的 顺序 正好 与 
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我 们 所 需要 的 相反 。 为 什么 ? 
Louis 又 试 着 修正 其 程序 ， 交 换 了 cons 的 参数 : 
(define (square-list items) 
(define (iter things answer) 
(if (null? things) 
answer 
(iter (cdr things) 
(cons answer 
(square (car things)))))) 
(iter items nil) ) 


但 还 是 不 行 。 请 解释 为 什么 。 

练习 2.23 过程 for-each 与 map 类 似 ， 它 以 一 个 过 程 和 一 个 元 素 表 为 参数 ， 但 它 并 不 返 
回 结果 的 表 ， 只 是 将 这 一 过 程 从 左 到 右 应 用 于 各 个 元 素 ， 将 过 程 应 用 于 元 素 得 到 的 值 都 丢掉 
不 用 。for-each 通 常用 于 那些 执行 了 某 些 动作 的 过 程 ， 如 打印 等 。 看 下 面 例子 : 

(for-each (lambda (x) (newline) (display x) ) 

(list 57 321 88)) 

57 

321 

88 
由 for-each 的 调用 返回 的 值 (上 面 没有 显示 ) 可 以 是 某 种 任意 的 东西 ， 例 如 逻辑 值 真 。 请 
给 出 一 个 for-each 的 实现 。 


2.2.2 层次 性 结构 


将 表 作 为 序列 的 表示 方式 ， 可 以 很 自然 地 推广 到 表示 那些 元 素 本 身 也 是 序列 的 序列 。 举 
例 来 说 ， 我 们 可 以 认为 对 象 ((1 2) 3 4) 是 通过 下 面 方式 构造 出 来 的 : 

(cons (list 1 2) (list 3 4)) 
这 是 一 个 包含 三 个 项 的 表 ， 其 中 的 第 一 项 本 身 又 是 表 (1 2)。 这 一 情况 也 由 解释 器 的 打印 形 
式 所 肯定 。 图 2-5 用 序 对 的 语言 展示 出 这 一 结构 的 表示 形式 。 


(3 4) 





图 2-5 由 (cons (list 1 2) (list 3 4)) 形成 的 结构 


认识 这 种 元 素 本 身 也 是 序列 的 序列 的 另 一 种 方式 ， 是 把 它们 看 作 树 。 序 列 里 的 元 素 就 是 
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树 的 分 支 ， 而 那些 本 身 也 是 序列 的 元 素 就 形成 了 树 中 的 子 树 。 图 2-6 显 示 的 是 将 图 2-5 的 结构 看 
作 树 的 情况 。 ((1 2) 3 4) 

递归 是 处 理 树 结构 的 一 种 很 自然 的 工具 ， 因 为 我 们 常常 
可 以 将 对 于 树 的 操作 归结 为 对 它们 的 分 支 的 操作 ， 再 将 这 种 


操作 归结 为 对 分 支 的 分 支 的 操作 ， 如 此 下 去 ， 直 至 达到 了 树 OP 

的 叶子 。 作 为 例子 ， 请 比较 一 下 2.2.1 节 的 1ength 过 程 和 下 N 
面 的 count -leaves 过 程 ， 这 个 过 程 统 计 出 一 棵 树 中 树叶 的 / y 

数目 ; 


图 2-6 将 图 2-5 中 的 表 结 构 看 作 树 


(define x (cons (list 1 2) (list 3 4))) 


(length x) 
3 


(count-leaves x) 
四 


(list $ x) 


(O(I 2) 3 4) (2 2) 3 4)) 


(length (list x x)) 
2 


(count-leaves (list x x)) 
8 


为 了 实现 count -leaves， 可 以 先 回忆 一 下 length 的 递归 方案 : 
。 表 x 的 length 是 x 的 cdr 的 length 加 一 。 
* 空 表 的 1ength 是 0。 
count -leaves 的 递归 方案 与 此 类 似 ， 对 于 空 表 的 值 也 相同 : 
。 空 表 的 count -leaves 是 0， 
但 是 在 递归 步骤 中 ， 当 我 们 去 掉 一 个 表 的 car 时 ， 就 必须 注意 这 一 car 本 身 也 可 能 是 树 ， 其 树 
叶 也 需要 考虑 。 这 样 ， 正 确 的 归 约 步骤 应 该 是 : 
。 对 于 树 x 的 count -leaves 应 该 是 x 的 car 的 count -leaves 与 x 的 cdr 的 count-leaves 
之 和 。 
最 后 ， 在 通过 car 达 到 一 个 实际 的 树叶 时 ， 我 们 还 需要 另 一 种 基本 情况 : 
。 一 个 树叶 的 count -leaves 是 1。 
为 了 有 助 于 写 出 树 上 的 各 种 递归 ，Scheme 提 供 了 基本 过 程 pPair?， 它 检查 其 参数 是 否 为 序 对 。 
下 面 就 是 我 们 完成 的 过 程 ”: 
(define (count-leaves x) 
(cond ((null? x) 0) 
(mot (pair? x)) 1) 


(else (+ (count-leaves (car x)) 


(count-leaves (cdr x)))))) 


练习 2.24 假定 现在 要 求 值 表达 式 (list 1 (list 2 (list 3 4)))， 请 给 出 由 解释 


”在 这 个 定义 里 ，cona 的 前 两 个 子 句 的 顺序 非常 重要 ， 因 为 空 表 将 满足 nul11?， 而 它 同 时 又 不 是 序 对 。 
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器 打印 出 的 结果 ， 给 出 与 之 对 应 的 盒子 指针 结构 ， 并 将 它 解 释 为 一 棵 树 (参见 图 2-6)。 
练习 2.25 给 出 能 够 从 下 面 各 表 中 取出 7 的 car 和 cdr 组 合 : 


(1 3 (5 7) 9) 


(1 (2 (3 (4 (S (6 PII) 
练习 2.26 假定 已 将 x 和 y 定 义 为 如 下 的 两 个 表 : 
(define x (list 1 2 3)) 
(define y (list 4 5 6)) 

解释 器 对 于 下 面 各 个 表达 式 将 打印 出 什么 结果 : 
(append x y) 
(cons x y) 


(last x y) 


练习 2.27 修改 练习 2.18 中 所 做 的 reverse 过 程 ， 得 到 一 个 deep-reverse 过 程 。 它 以 
一 个 表 为 参数 ， 返 回 另 一 个 表 作为 值 ， 结 果 表 中 的 元 素 反 转 过 来 ， 其 中 的 子 树 也 反 转 。 例 如 : 


(define x (list (list 1 2) (list 3 4))) 


x 
(A 2) (3 4)) 


(reverse x) 
((3 4) “(1 27) 


(deep-reverse x) 
C(4 3) 2 12) 


练习 2.28 ” 写 一 个 过 程 Ez*inge， 它 以 一 棵 树 (表示 为 表 ) 为 参数 ， 返 回 一 个 表 ， 表 中 的 


元 素 是 这 棵 树 的 所 有 树叶 ， 按 照 从 左 到 右 的 顺序 。 例 如 : 


(define x (list (list 1 2) (list 3 4))) 


(fringe x) 
(L 2 3 4) 


(fringe (list x x)) 
(L23412 3 4) 


练习 2.29 ”一 个 二 又 活动 体 由 两 个 分 支 组 成 ， 一 个 是 左 分 支 ， 另 一 个 是 右 分 支 。 每 个 分 
支 是 一 个 具有 确定 长 度 的 杆 ， 上 面 或 者 吊 着 一 个 重量 ,或 者 帅 着 另 一 个 二 又 活动 体 。 我 们 可 
以 用 复合 数据 对 象 表示 这 种 二 又 活动 体 ， 将 它 通过 其 两 个 分 支 构造 起 来 例如， 使 用 1ist): 


(define (make-mobile left right) 
(list left right) ) 


分 支 可 以 从 一 个 length ( 它 应 该 是 一 个 数 ) 再 加 上 一 个 structure 构 造 出 来 ， 这 个 


structure 或 者 是 一 个 数 (表示 一 个 简单 重量 )， 或 者 是 另 一 个 活动 体 : 


(define (make-branch length structure) 


(list length structure)) 
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a) 请 写 出 相应 的 选择 国 数 1eft-branch 和 zight-branch， 它 们 分 别 返回 活动 体 的 两 
个 分 支 。 还 有 branch-length 和 branch-structure， 它 们 返回 一 个 分 支 上 的 成 分 。 

b) 用 你 的 选择 函数 定义 过 程 total-weight， 它 返回 一 个 活动 体 的 总 重量 。 

c) 一 个 活动 体 称 为 是 平衡 的 ， 如 果 其 左 分 支 的 力矩 等 于 其 右 分 支 的 力矩 (也 就 是 说 ， 如 
果 其 左 杆 的 长 度 乘 以 吊 在 杆 上 的 重量 ， 等 于 这 个 活动 体 右边 的 同样 乘积 ) ， 而 且 在 其 每 个 分 支 
上 吊 着 的 子 活 动 体 也 都 平衡 。 请 设计 一 个 过 程 ， 它 能 检查 一 个 二 又 活 动 体 是 否 平衡 。 

d) 假定 我 们 改变 活动 体 的 表示 ， 采 用 下 面 构造 方式 : 

(define (make-mobile left right) 

(cons left right) ) 


(define (make-branch length structure) 


(cons length structure) ) 


你 需要 对 自己 的 程序 做 多 少 修改 ， 才 能 将 它 改 为 使 用 这 种 新 表示 ? 


对 树 的 映射 

map 是 处 理 序列 的 一 种 强 有 力 抽象 ， 与 此 类 似 ，map 与 递归 的 结合 也 是 处 理 树 的 一 种 强 有 
力 抽 象 。 举 例 来 说 ， 可 以 有 与 2.2.1 节 的 scale-1ist 类 似 的 scale-tree 过 程 ， 以 一 个 数值 
因子 和 一 棵 叶子 为 数值 的 树 作 为 参数 ， 返 回 一 棵 具有 同样 形状 的 树 ， 树 中 的 每 个 数值 都 乘 以 
了 这 个 因子 。 对 于 scale-tree 的 递归 方案 也 与 count-leaves 的 类 似 : 

(define (scale-tree tree factor) 

(cond ((null? tree) nil) 
((not (pair? tree)) (* tree factor)) 


(else (cons (scale-tree (car tree) factor) 


(scale-tree (cdr tree) factor))))) 


(scale-tree (list 1 (list 2 (list 3 4) 5) (list 6 7)) 
10) 
(10 (20 (30 40) 50) (60 70)) 


实现 scale-tree 的 另 一 种 方法 是 将 树 看 成 子 树 的 序列 ， 并 对 它 使 用 map。 我 们 在 这 种 
序列 上 做 映射 ， 依 次 对 各 棵 子 树 做 缩放 ， 并 和 返回 结果 的 表 。 对 于 基础 情况 ， 也 就 是 当 被 处 理 
的 树 是 树叶 时 ， 就 直接 用 因子 去 乘 它 : 

(define (scale-tree tree factor) 

(map (lambda (sub-tree) 
(if (pair? sub-tree) 
(scale-tree sub-tree factor) 
(* sub-tree factor) )) 
tree) ) 
对 于 树 的 许多 操作 可 以 采用 类 似 方式 ， 通 过 序列 操作 和 递归 的 组 合 实现 。 

练习 2.30 ”请 定义 一 个 与 练习 2.21 中 square-1ist 过 程 类 似 的 square-tree 过 程 。 也 
就 是 说 ， 它 应 该 具有 下 面 的 行为 : 

(square-tree 


(list 1 
(list 2 (list 3 4) 5) 
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(list 6 7))) 
(1 (4 (9 16) 25) (36 49)) 
请 以 两 种 方式 定义 square-tree， 直 接 定义 〈 即 不 使 用 任何 高 阶 函 数 ) ， 以 及 使 用 map 和 递 
归 定 义 。 
练习 2.31 将 你 在 练习 2.30 做 出 的 解答 进一步 抽象 ， 做 出 一 个 过 程 ， 使 它 的 性 质保 证 能 以 
下 面 形 式 定 义 square-tree: 


(define (square-tree tree) (tree-map square tree)) 


练习 2.32 我们 可 以 将 一 个 集合 表示 为 一 个 元 素 互 不 相同 的 表 ， 因 此 就 可 以 将 一 个 集合 
的 所 有 子 集 表示 为 表 的 表 。 例 如 ， 假 定 集合 为 (1 2 3)， 它 的 所 有 子 集 的 集合 就 是 (() (3) 
(2) (2 3) (1) (1 3) (1 2) (1 2 3))。 请 完成 下 面 的 过 程 定义 ， 它 生成 出 一 个 集合 的 
所 有 子 集 的 集合 。 请 解释 它 为 什么 能 完成 这 一 工作 。 
(define (subsets s) 
(if (null? s) 
(list nil) 
(let ((rest (subsets (cdr s)))) 
(append rest (map <??> rest))))) 


223 序列 作为 一 种 约定 的 界面 


我 们 一 直 强 调 数据 抽象 在 对 复合 数据 的 工作 中 的 作用 ， 借 助 这 种 思想 ， 我 们 就 能 设计 出 
不 会 被 数据 表示 的 细节 纠缠 的 程序 ， 使 程序 能 够 保持 很 好 的 弹性 ， 得 以 应 用 到 不 同 的 具体 表 
示 上 。 在 这 一 节 里 ， 我 们 将 要 介绍 与 数据 结构 有 关 的 另 一 种 强 有 力 的 设计 原理 一 一 使 用 约定 
的 界面 。 
在 1.3 节 里 我 们 看 到 ， 可 以 通过 实现 为 高 阶 过 程 的 程序 抽象 ， 抓 住处 理 数值 数据 的 一 些 程 
序 模式 。 要 在 复合 数据 上 工作 做 出 类 似 的 操作 ， 则 对 我 们 操控 数据 结构 的 方式 有 着 深刻 的 依 
赖 性 。 举 个 例子 ， 考 虑 下 面 与 2.2.2 节 中 count -leaves 过 程 类 似 的 过 程 ， 它 以 一 棵 树 为 参数 ， 
计算 出 那些 值 为 奇数 的 叶子 的 平方 和 : 
(define (sum-odd-squares tree) 
(cond ((null? tree) 0) 
((not (pair? tree)) 
(if (odd? tree) (square tree) 0)) 


(else (+ (sum-odd-squares (car tree) ) 
(sum-odd-squares (cdr tree)))))) 


从 表面 上 看 ， 这 一 过 程 与 下 面 的 过 程 很 不 一 样 。 下 面 这 个 过 程 构造 出 的 是 所 有 偶数 的 斐 波 那 
契 数 Fib(b) 的 一 个 表 ， 其 中 的 k 小 于 等 于 某 个 给 定 整 数 n: 
(define (even-fibs n) 
(define (next k) 
CLE (s Eg) 
nil 
(let ((£ (£ib k))) 
(if (even? f) 
(cons f (next (+ k 1))) 
(mext (+ k 1)))))) 
(next 0)) 
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虽然 这 两 个 过 程 在 结构 上 差异 非常 大 ， 但 是 对 于 两 个 计算 的 抽象 描述 却 会 揭示 出 它们 之 
间 极 大 的 相似 性 。 第 一 个 程序 : 

*。 枚 举 出 一 棵 树 的 树叶 ， 

“ 过滤 它们 ， 选 出 其 中 的 奇数 ; 

* 对 选 出 的 每 一 个 数 求 平方 ， 

“用 十 累积 起 得 到 的 结果 ， 从 0 开始 。 
而 第 二 个 程序 : 

© 枚 举 从 0 到 7 的 整数 ， 

“对 每 个 整数 计算 相应 的 斐 波 那 契 数 ， 

“ 过滤 它们 ， 选 出 其 中 的 偶数 ， 

“用 cons 累 积 得 到 的 结果 ， 从 空 表 开 始 。 

言 号 处 理工 程 师 们 可 能 会 发 现 ， 这 种 过 程 可 以 很 自然 地 用 流 过 一 些 级 联 的 处 理 步 骤 的 信 
号 的 方式 描述 ， 其 中 的 每 个 处 理 步 骤 实 现 程 序 方案 中 的 一 个 部 分 ， 如 图 2-7 所 示 。 对 于 第 一 种 
情况 sum-odd-squares， 我 们 从 一 个 枚 举 器 开始 ， 它 产生 出 由 给 定 的 树 的 所 有 树叶 组 成 
“信号 ”"。 这 一 信号 流 过 一 个 过 滤器 ， 所 有 不 是 奇数 的 数 都 被 删除 了 。 这 样 得 到 的 信号 又 通过 
一 个 映射 , 这 是 一 个 “转换 装置 "， 它 将 square 过 程 应 用 于 每 个 元 素 。 这 一 映射 的 输出 被 馈 
入 一 个 累积 器 ， 该 装置 用 + 将 得 到 的 所 有 元 素 组 合 起 来 ， 以 初始 的 0 开始 。even-fibs 的 工 
作 过 程 与 此 类 似 。 


enumerate: map: accumulate: 
tree leaves square +, 0 
enumerate: filter: accumulate: 
integers even? cons, () 


图 2-7 xtfésum-odd-squares (上 ) 和 even-fibs (F) 
的 信号 流 图 揭示 出 这 两 个 程序 的 共性 


遗憾 的 是 ， 上 面 的 两 个 过 程 定 义 并 没有 展现 出 这 种 信号 流 结构 。 和 譬如 说 ， 如 果 仔 细 考 察 
sum-odd-squares 过 程 ， 就 会 发 现 其 中 的 枚 举 工作 部 分 地 由 检查 null1? 和 pair? 实 现 ， 部 
分 地 由 过 程 的 树 形 递 归结 构 实现 。 与 此 类 似 ， 在 那些 检查 中 也 可 以 看 到 一 部 分 累积 工作 ， 另 
一 部 分 是 用 在 递归 中 的 加 法 。 一 般 而 言 ， 在 这 两 个 过 程 里 ,没有 一 个 部 分 正好 对 应 于 信号 流 
描述 中 的 某 一 要 素 。 我 们 的 两 个 过 程 采用 不 同 的 方式 分 解 了 这 个 计算 ， 将 枚 举 工作 散布 在 程 
序 中 各 处 ， 并 将 它 与 映射 、 过 滤器 和 累积 器 混在 一 起 。 如 果 我 们 能 够 重新 组 织 这 一 程序 ， 使 
得 信号 流 结构 明显 表现 在 写 出 的 过 程 中 ， 将 会 大 大 提高 结果 代码 的 清晰 性 。 

序列 操作 

要 组 织 好 这 些 程序 ， 使 之 能 够 更 清晰 地 反映 上 面 信号 流 的 结构 ， 最 关键 的 一 点 就 是 将 注 
意 力 集中 在 处 理 过 程 中 从 一 个 步骤 流向 下 一 个 步骤 的 “信号 ”"。 如 果 我 们 用 一 些 表 来 表示 这 些 
信号 ， 那 么 就 可 以 利用 表 操 作 实现 每 一 步骤 的 处 理 。 举 例 来 说 ， 我 们 可 以 用 2.2.1 节 的 map 过 
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过 滤 一 个 序列 ， 也 就 是 选 出 其 中 满足 某 个 给 定 谓词 的 元 素 ， 可 以 按 下 面 方式 做 : 


(define (filter predicate sequence) 
(cond ((null? sequence) nil) 
((predicate (car sequence)) 
(cons (car sequence) 
(filter predicate (cdr sequence)))) 
(else (filter predicate (cdr sequence))))) 


例如 ， 


(filter odd? (list 1 2 3 4 5)) 
tL 3 8) 


累积 工作 可 以 实现 如 下 : 
(define (accumulate op initial sequence) 
(if (null? sequence) 
initial 
(op (car sequence) 
(accumulate op initial (cdr sequence) )))) 


(accumulate + 0 (list 1 2 3 4 5)) 
15 


(accumulate * 1 (list 1 2 3 4 5)) 
120 


(accumulate cons nil (list 1 2 3 4 5)) 
(L 2 3 4 '5) 


剩 下 的 就 是 实现 有 关 的 信号 流 图 ， 枚 举 出 需要 处 理 的 数据 序列 。 对 于 even-fibs， 我 们 


需要 生成 出 一 个 给 定 区 间 里 的 整数 序列 ， 这 一 序列 可 以 如 下 做 出 : 
(define (enumerate-interval low high) 
(if (> low high) 
nil 
(cons low (enumerate-interval (+ low 1) high)))) 
(enumerate-interval 2 7) 
(2345 6 7) 


要 枚 举 出 一 棵 树 的 所 有 树叶 ， 则 可 以 用 ”?; 
(define (enumerate-tree tree) 
(cond ((null? tree) nil) 
((not (pair? tree)) (list tree)) 
(else (append (enumerate-tree (car tree)) 
(enumerate-tree (cdr tree)))))) 


(enumerate-tree (list 1 (list 2 (list 3 4)) 5)) 


”这 实际 上 就 是 练习 2.28 的 过 程 Eringe， 在 这 里 给 它 另 取 一 个 名 字 ， 是 为 了 强调 它 是 一 般 性 的 序列 操控 过 程 族 


的 一 个 组 成 部 分 。 
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(1 2 3 4 5) 

现在 ,我 们 就 可 以 像 上 面 的 信号 流 图 那样 重新 构造 sum-odd-squares 和 even-fibs 了 。 
对 于 sum-odd-squares， 我 们 需要 枚 举 一 棵 树 的 树叶 序列 ， 过 滤 它 ， 只 留 下 序列 中 的 奇数 ， 
求 每 个 元 素 的 平方 ， 而 后 加 起 得 到 的 结果 : 

(define (sum-odd-squares tree) 

(accumulate + 
0 
(map square 
(filter odd? 
(enumerate-tree tree))))) 
对 于 even-Efibs， 我 们 需要 枚 举 出 从 0 到 z 的 所 有 整数 ， 对 某 个 整数 生成 相应 的 斐 波 那 契 数 ， 
通过 过 滤 只 留 下 其 中 的 偶数 ， 并 将 结果 积累 在 一 个 表 里 : 
(define (even-fibs n) 
(accumulate cons 
nil 
(filter even? 
(map fib 
(enumerate-interval 0 n))))) 

将 程序 表示 为 一 些 针 对 序列 的 操作 ， 这 样 做 的 价值 就 在 于 能 帮助 我 们 得 到 模块 化 的 程序 
设计 ， 也 就 是 说 ， 得 到 由 一 些 比较 独立 的 片段 的 组 合 构成 的 设计 。 通 过 提供 一 个 标准 部 件 的 
库 ， 并 使 这 些 部 件 都 有 着 一 些 能 以 各 种 灵活 方式 相互 连接 的 约定 界面 ， 将 能 进一步 推动 人 们 
去 做 模块 化 的 设计 。 

在 工程 设计 中 ， 模 块 化 结构 是 控制 复杂 性 的 一 种 威力 强大 的 策略 。 举 例 来 说 ， 在 真实 的 
信号 处 理应 用 中 ， 设 计 者 通常 总 是 从 标准 化 的 过 滤器 和 变换 装置 族 中 选 出 一 些 东 西 ， 通 过 级 
联 的 方式 构造 出 各 种 系统 。 与 此 类 似 ， 序 列 操作 也 形成 了 一 个 可 以 混合 和 匹配 使 用 的 标准 的 
程序 元 素 库 。 例 如 ， 我 们 可 以 在 另 一 个 构造 前 a+ 1 个 斐 波 那 契 数 的 平方 的 程序 里 ， 使 用 取 自 
过 程 sum-odd-squares 和 even-fibs 的 片段 : 

(define (list-fib-squares n) 

(accumulate cons 
nil 
(map square 
(map fib 
(enumerate-interval 0 n))))) 

(list-fib-squares 10) 

(0 114 9 25 64 169 441 1156 3025) 

我 们 也 可 以 重新 安排 有 关 的 各 个 片段 ， 将 它们 用 在 产生 一 个 序列 中 所 有 奇数 的 平方 之 乘积 的 
计算 里 : 

(define (product-of-squares-of-odd-elements sequence) 

(accumulate * 
t 


(map square 
(filter odd? sequence)))) 
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(product-of-squares-of-odd-elements (list 1 2 3 4 5)) 
225 


我 们 同样 可 以 采用 序列 操作 的 方式 ， 重 新 去 形式 化 各 种 常规 的 数据 处 理应 用 。 假 定 有 一 
个 人 事 记 录 的 序列 ， 现 在 希望 找 出 其 中 薪水 最 高 的 程序 员 的 工资 数额 。 假 定 现在 有 一 个 选择 
国 数 salary 返 回 记 录 中 的 工资 数 ， 另 有 谓词 programmez? 检 查 某 个 记录 是 不 是 程序 员 ， 此 
时 我 们 就 可 以 写 : 

(define (salary-of-highest-paid-programmer records) 

(accumulate max 
0 
(map salary 


(filter programmer? records) ) ) ) 


这 些 例子 给 了 我 们 一 些 启 发 ， 范 围 广大 的 许多 操作 都 可 以 表述 为 序列 操作 ”。 

在 这 里 ， 用 表 实 现 的 序列 被 作为 一 种 方便 的 界面 ， 我 们 可 以 利用 这 种 界面 去 组 合 起 各 种 
处 理 模 块 。 进 一 步 说 ， 如 果 以 序列 作为 所 用 的 统一 表示 结构 ， 我 们 就 能 将 程序 对 于 数据 结构 
的 依赖 性 局 限 到 不 多 的 几 个 序列 操作 上 。 通 过 修改 这 些 操作 ， 就 可 以 在 序列 的 不 同 表 示 之 间 
转换 ， 并 保持 程序 的 整个 设计 不 变 。 在 3.5 节 里 还 要 继续 探索 这 方面 的 能 力 ， 那 时 将 把 序列 处 
理 的 范 型 推广 到 无 穷 序列 。 

练习 2.33 ”请 填充 下 面 缺失 的 表达 式 ， 完 成 将 一 些 基本 的 表 操 作 看 作 累 积 的 定义 : 

(define (map p sequence) 


(accumulate (lambda (x y) <??>) nil sequence) ) 


(define (append seql seq2) 


(accumulate cons <??> <??>)) 


(define (length sequence) 


(accumulate <??> 0 sequence) ) 
练习 2.34 对 于 x 的 某 个 给 定 值 ， 求 出 一 个 多 项 式 在 x 的 值 ， 也 可 以 形式 化 为 一 种 累积 。 假 
定 需要 求 下 面 多 项 式 的 值 : 
A,X" + Ay xX"! +++ +ax+ ao 
采用 著名 的 Horner 规 则 ， 可 以 构造 出 下 面 的 计算 : 
人 
换 句 话说， 我 们 可 以 从 ww 开始 ， 乘 以 xz， 再 加 上 ww -1:， 乘 以 zf， 如 此 下 去 ， 直 到 处 理 完 ao。 请 


8! Richard Waters (1979) 开发 了 一 个 能 自动 分 析 传 统 的 Fortran 程 序 ， 并 用 映射、 过 滤器 和 累积 器 的 观点 去 观察 它们 
的 程序 。 他 发 现 ， 在 Fortran Scientific Subroutine Package (Fortran 科 学 计算 子 程序 包 ) 里 ， 足 是 有 90% 的 代码 可 以 
很 好 地 纳入 这 一 风范 之 中 。 作 为 程序 设计 语言 ，Lisp 取 得 成 功 的 一 个 原因 ， 就 在 于 它 用 表 作 为 表述 有 序 汇集 的 一 
种 标准 媒介 ， 并 使 它们 可 以 通过 高 阶 操作 来 处 理 。 程 序 设 计 语言 APL 的 威力 和 形式 也 来 自 另 一 种 类 似 选择 。 在 
APL 里 ， 所 有 的 数据 都 是 数组 ， 而 且 为 各 种 类 型 的 通用 数组 操作 提供 了 一 集 具 有 普遍 性 、 使 用 方便 的 运算 符 。 

© 根据 Knuth (1981) ， 这 一 规则 是 W. G. Horner 在 19 世 纪 早 期 提出 的 ， 但 这 一 方法 在 100 多 年 前 就 已 经 被 牛顿 实 
际 使 用 了 。Horner 规 则 在 求 值 多 项 式 时 所 用 的 加 法 和 乘法 次 数 少 于 直接 方法 ， 即 那 种 先 计 算出 ww w*， 而 后 加 
上 aa ， 并 这 样 做 下 去 的 方法 。 事 实 上 ， 可 以 证 明 ， 任 何 多 项 式 的 求 值 算法 至 少 需要 做 Horner 规 则 那么 多 
次 加 法 和 乘法 ， 因 此 ，Horner 规 则 就 是 多 项 式 求 值 的 最 优 算法 。 这 一 论断 由 A. M. Ostrowski 在 1954 年 的 一 篇 
文章 中 (对 加 法 ) 证 明 ， 这 也 是 现代 最 优 算 法 研究 的 开创 性 工作 。 关 于 乘法 的 类 似 论断 由 V. Y Pan 在 1966 年 
证 明 。Borodin 和 Munro 的 著作 (1975) 里 有 对 这 些 工 作 的 概述 和 有 关 最 优 算 法 的 其 他 一 些 结果 。 
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填充 下 面 的 模板 ， 做 出 一 个 利用 Horner 规 则 求 多 项 式 值 的 过 程 。 假 定 多 项 式 的 系数 安排 在 一 
个 序列 里 ， 从 ao 直 至 a,。 


(define (horner-eval x coefficient-sequence) 
(accumulate (lambda (this-coeff higher-terms) <??>) 
0 
coefficient-sequence) ) 


Blan, A TiL + 3x+52x°+2°fEx= 2A, Pie RIE: 


(horner-eval 2 (list 13 05 0 1)) 


练习 2.35 ”将 2.2.2 节 的 count -Leaves 重 新 定义 为 一 个 累积 : 


(define (count-leaves 七 ) 


(accumulate <??> <??> (map <??> <??>))) 


练习 2.36 “过 程 accumulate-n 与 accumulate 类 似 ， 除 了 它 的 第 三 个 参数 是 一 个 序列 
的 序列 ， 假 定 其 中 每 个 序列 的 元 素 个 数 相 同 。 它 用 指定 的 累积 过 程 去 组 合 起 所 有 序列 的 第 一 
个 元 素 ， 而 后 是 所 有 序列 的 第 二 个 元 素 ， 并 如 此 做 下 去 ， 返 回 得 到 的 所 有 结果 的 序列 。 例 如 ， 
如 果 s 是 包含 着 4 个 序列 的 序列 ((1 2 3) (4 5 6) (7 8 9) (10 11 12))， 那 么 
(accumulate-n+0 s) 的 值 就 应 该 是 序列 (22 26 30)。 请 填充 下 面 accumulate-n 定 
义 中 所 缺失 的 表达 式 : 
(define (accumulate-n op init seqs) 
(if (null? (car seqs) ) 
nil 
(cons (accumulate op init <??>) 


(accumulate-n op init <??>)))) 


练习 2.37 假定 我 们 将 向 量 v= (vi) 表示 为 数 的 序列 , 将 矩阵 m= (my) 表示 为 向 量 (矩阵 行 ) 
的 序列 。 例 如 ， 和 矩阵 ; 
1 2 3 4 
4 5 6 6 
: 7 8 9 


用 序列 ((1 2 3 4) (4 5 6 6) (6 7 8 9)) 表示 。 对 于 这 种 表示 ， 我们 可 以 用 序列 操 
作 简 洁 地 表达 基本 的 矩阵 与 向 量 运算 。 这 些 运算 (任何 有 关 和 矩阵 代数 的 书 里 都 有 描述 ) 如 下 : 


(dot-product v w) 返回 和 Zviwi; 





(matrix-*-vector m v) 返回 向 量 t, 其 中 t= mv 

(matrix-*-matrix m n) 返回 矩阵 p， 其 中 py= man; 

(transpose m) 返回 矩阵 n， 其 中 = mj. 
我 们 可 以 将 点 积 (dot product) 定义 为 ”: 


(define (dot-product v w) 


(accumulate + 0 (map * v w))) 


S 这 一 定义 里 使 用 了 脚注 78 中 描述 的 扩充 的 map。 
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请 填充 下 面 过 程 里 缺失 的 表达 式 ， 它 们 计算 出 其 他 的 矩阵 运算 结果 (过 程 accumulate- 
n 在 练习 2.36 中 定义 )。 
(define (matrix-*-vector m v) 


(map <??> m)) 


(define (transpose mat) 


(accumulate-n <??> <??> mat)) 


(define (matrix-*-matrix m n) 
(let ((cols (transpose n))) 


(map <??> m))) 


练习 2.38 ”过 程 accumulate 也 称 为 Eo1d-right， 因 为 它 将 序列 的 第 一 个 元 素 组 合 到 
右边 所 有 元 素 的 组 合 结果 上 。 也 有 一 个 fo01d-left， 它 与 fo1d-right 类 似 , 但 却 是 按照 相 
反方 向 去 操作 各 个 元 素 : 


(define (fold-left op initial sequence) 
(define (iter result rest) 
(if (null? rest) 
result 
(iter (op result (car rest) ) 
(cdr rest)))) 


(iter initial sequence) ) 
下 面 表达 式 的 值 是 什么 ? 
(£old-xight / 1 (list 1 2 3)) 
(fold-Left / 1 (iist 1 2 3)) 
(fold=-right list nil (list 1 2 3)) 
(fold-left list nil (list 1 2 3)) 


如 果 要 求 用 某 个 op 时 保证 fo1d-right 和 fo1d-left 对 任何 序列 都 产生 同样 的 结果 ， 请 给 
出 op 应 该 满足 的 性 质 。 
练习 2.39 ”基于 练习 2.38 的 fo1d-right 和 fold-left 完 成 reverse (练习 2.18) 下 面 
的 定义 : 
(define (reverse sequence) 
(fold-right (lambda (x y) <??>) nil sequence)) 


(define (reverse sequence) 


(fold-left (lambda (x y) <??>) nil sequence)) 


ERS 

PA ATA EFIE, ES AMAA RE. BEE T 
的 问题 : 给 定 了 自然 数 +， 找 出 所 有 不 同 的 有 序 对 ij， 其 中 1<j<i<n， EHER. fil 
如 ， 假 定 n 是 6， 满 足 条 件 的 序 对 就 是 : 

84 有 关 骨 套 映射 的 这 种 方式 是 由 David Turner 展 现 给 我 们 的 ， 他 的 语言 KRC 和 Miranda 为 处 理 这 些 结构 提供 了 很 


优美 的 形式 。 本 节 里 的 例子 (也 请 看 练习 2.42) WA Turner 1981。3.5.3 节 还 要 将 这 一 途径 推广 到 处 理 无 穷 序 
列 的 情况 。 
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完成 这 一 计算 的 一 种 很 自然 的 组 织 方式 : 首先 生成 出 所 有 小 于 等 于 n 的 正 自然 数 的 有 序 对 ;而 
后 通过 过 滤 ， 得 到 那些 和 为 素数 的 有 序 对 ， 最 后 对 每 个 通过 了 过 滤 的 序 对 (i, j)， 产 生出 一 个 
三 元 组 (Litij) 

这 里 是 生成 有 序 对 的 序列 的 一 种 方式 : 对 于 每 个 整数 i<n， 枚 举 出 所 有 的 整数 <i， 并 对 
每 一 对 许 册 生成 序 对 (i, j) 。 用 序列 操作 的 方式 说 ， 我 们 要 对 序列 (enumerate-interval 
1 n) 做 一 次 映射 。 对 于 这 个 序列 里 的 每 个 :， 我 们 都 要 对 序列 (enumerate-interval 1 
(- i 1)) 做 映射 。 对 于 后 一 序列 中 的 每 个 ;， 我 们 生成 出 序 对 (List i j)。 这 样 就 对 每 
个 i 得 到 了 一 个 序 对 的 序列 。 将 针对 所 有 i 的 序列 组 合 到 一 起 (用 append 累 积 起 来 )， 就 能 产 
生出 所 需 的 序 对 序列 了 3。 


(accumulate append 
nil 
(map (lambda (i) 
(map (lambda (j) (list i j)) 
(enumerate-interval 1 (- i 1)))) 


(enumerate-interval 1 n))) 


由 于 在 这 类 程序 里 常 要 用 到 映射 并 用 appena 做 累积 ， 我 们 将 它 独 立 出 来 定义 为 一 个 过 程 : 


(define (flatmap proc seq) 


(accumulate append nil (map proc seq))) 


现在 可 以 过 滤 这 一 序 对 的 序列 ， 找 出 那些 和 为 素数 的 序 对 。 对 序列 里 的 每 个 元 素 调 用 过 滤 谓 
词 。 由 于 这 个 谓词 的 参数 是 一 个 序 对 ， 所 以 它 必 须 将 两 个 整数 从 序 对 里 提取 出 来 。 这 样 ， 作 
用 到 序列 中 每 个 元 素 上 的 谓词 就 是 : 
(define (prime-sum? pair) 
(prime? (+ (car pair) (cadr pair)))) 
Ie ih BEE RR RAE, ARE E Tact ee a SB EFR E, HENA NF 
对 里 的 两 个 元 素 ， 这 一 过 程 生成 出 一 个 包含 了 它们 的 和 的 三 元 组 : 
(define (make-pair-sum pair) 
(list (car pair) (cadr pair) (+ (car pair) (cadr pair)))) 
将 所 有 这 些 组 合 到 一 起 ， 就 得 到 了 完整 的 过 程 : 
(define (prime-sum-pairs n) 
(map make-pair-sum 
(filter prime-sum? 
(flatmap 
(lambda (i) 
(map (lambda (j) (list i j)) 


(enumerate-interval 1 (- i 1)))) 


5 这 里 的 序 对 被 表示 为 两 个 元 素 的 表 ， 没 有 直接 采用 Lisp 的 序 对 ， 因 此 ， 这 里 所 谓 的 “ 序 对 ”(i, j) 就 是 
(list i j), 而 不 是 (cons i j). 
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(enumerate-interval 1 n))))) 

Fok BE ATMA Ay BE FIA PK, AAP Ae ol, Ae Be PR As AE a A SHI 
有 排列 ， 也 就 是 说 ， 生 成 这 一 集合 的 元 素 的 所 有 可 能 排序 方式 。 例 如 ，{1，2，3} 的 所 有 排列 
Æla 2, 3}, {1, 3, 2}, {2, 1, 3}, {2, 3, 1}, {3, 1, JM, 2, 1}, 这 里 是 上 生成 5 所 
有 排列 的 序列 的 一 种 方案 : SEP SHA Ex, VARA RES — TA HEREA, max 
加 到 每 个 序列 的 前 面 。 这 样 就 能 对 5 里 的 每 个 +:， 产 生出 了 5 的 所 有 以 x 开头 的 排列 。 将 对 所 有 x 
的 序列 组 合 起 来 ， 就 可 以 得 到 $ 的 所 有 排列 ”。 

(define (permutations s) 

(if (null? s) ; empty set? 
(list nil) ; sequence containing empty set 
(flatmap (lambda (x) 
(map (lambda (p) (cons x p)) 


(permutations (remove x s)))) 


s))) 
请 注意 这 里 所 用 的 策略 ， 看 看 它 如 何 将 生成 5 的 所 有 排列 的 问题 ， 归 结 为 生成 元 素 少 于 5 的 集 
合 的 所 有 排列 的 问题 。 在 终极 情况 中 我 们 将 达到 空 表 ， 它 表示 没有 元 素 的 集合 。 对 此 我 们 生 
成 出 的 就 是 (list nil), 这 是 一 个 只 包含 一 个 元 素 的 序列 ， 其 中 是 一 个 没有 元 素 的 集合 。 
在 permutations 过 程 中 所 用 的 remove 过 程 返 回 除 指定 项 之 外 的 所 有 元 素 ， 它 可 以 简单 地 
用 一 个 过 滤器 表示 : 
(define (remove item sequence) 


(filter (lambda (x) (not (= x item))) 


sequence) ) 

练习 2.40 请 定义 过 程 unique -pairs， 给 它 整 数 +7， 它 产生 出 序 对 (i, j)， 其 中 1<j<i 
<n。 请 用 unique-pairs 去 简化 上 和 面 prime-sum-pairs 的 定义 。 

练习 2.41 ”请 写 出 一 个 过 程 ， 它 能 产生 出 所 有 小 于 等 于 给 定 整数 "的 正 的 相 异 整数 六 JAk 
的 有 序 三 元 组 ， 使 每 个 三 元 组 的 三 个 元 之 和 等 于 给 定 的 整数 *。 

练习 2.42 “ 八 皇 后 谜 题 ” 问 的 是 怎样 将 八 个 皇后 摆 在 国际 象棋 盘 上 ， 使 得 任意 一 个 皇 
后 都 不 能 攻击 另 一 个 皇后 (也 就 是 说 ,任意 两 个 皇后 都 不 在 同一 行 、 同 一 列 或 者 同一 对 角 线 
上 )。 一 个 可 能 的 解 如 图 2-8 所 示 。 解 决 这 一 迹 题 的 一 种 方法 按 一 个 方向 处 理 棋盘 ， 每 次 在 每 
一 列 里 放 一 个 皇后 。 如 果 现 在 已 经 放 好 了 k 一 1 个 皇后 ， 第 k 个 皇后 就 必须 放 在 不 会 被 已 在 棋盘 
上 的 任何 皇后 攻击 的 位 置 上 。 我 们 可 以 递归 地 描述 这 一 过 程 : 假定 我 们 已 经 生成 了 在 棋盘 的 
前 上 一 1 列 中 放置 KE 一 1 个 星 后 的 所 有 可 能 方式 ， 现 在 需要 的 就 是 对 于 其 中 的 每 种 方式 ， 生 成 出 
将 下 一 个 皇后 放 在 第 k 列 中 每 一 行 的 扩充 集合 。 而 后 过 滤 它们 ， 只 留 下 能 使 位 于 第 k 列 的 皇后 
与 其 他 皇后 相安 无 事 的 那些 扩充 。 这 样 就 能 产生 出 将 k 个 皇后 放置 在 前 k 列 的 所 有 格局 的 序列 。 
继续 这 一 过 程 ， 我 们 将 能 产生 出 这 一 迹 题 的 所 有 人 解 ， 而 不 是 一 个 解 。 

将 这 一 解法 实现 为 一 个 过 程 queens， 令 它 返 回 在 n xn 棋盘 上 放 n 个 皇后 的 所 有 解 的 序列 。 
queens 内 部 的 过 程 queen-cols， 返回 在 棋盘 的 前 k 列 中 放 皇 后 的 所 有 格局 的 序列 。 





% 集 合 5 一 x 里 包括 了 集合 5 中 除 x 之 外 的 所 有 元 素 。 
”在 Scheme 代码 中 ， 分 号 用 于 引进 注释 。 从 分 号 开始 直至 行 尾 的 所 有 东西 都 将 被 解释 器 忽略 掉 。 在 本 书 里 使 用 
的 注释 并 不 多 ， 我 们 主要 是 希望 通过 使 用 有 意义 的 名 字 使 程序 具有 自 解释 性 。 
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图 2-8 八 皇 后 谜 题 的 一 个 解 


(define (queens board-size) 
(define (queen-cols k) 
(if (= k 0) 
(list empty-board) 
(filter 
(lambda (positions) (safe? k positions) ) 
(flatmap 
(lambda (rest-of-queens) 
(map (lambda (new-row) 
(adjoin-position new-row k rest-of-queens) ) 
(enumerate-interval 1 board-size) )) 
(queen-cols (- k 1)))))) 


(queen-cols board-size) ) 


这 个 过 程 里 的 rest -of -queens 是 在 前 k 一 1 列 放置 一 1 个 皇后 的 一 种 方式 ，new-row 是 在 第 
k 列 放置 所 考虑 的 行 编号 。 请 完成 这 一 程序 ， 为 此 需要 实现 一 种 棋盘 格局 集合 的 表示 方式 ， 还 
要 实现 过 程 adjoin-position, 它 将 一 个 新 的 行列 格局 加 入 一 个 格局 集合 ; empty-board, 
它 表示 空 的 格局 集合 。 你 还 需要 写 出 过 程 safe?， 它 能 确定 在 一 个 格局 中 ， 在 第 k 列 的 皇后 相 
对 于 其 他 列 的 皇后 是 否 为 安全 的 (请 注意 ， 我 们 只 需 检查 新 皇后 是 否 安 全 一 一 其 他 皇后 已 经 保 
证 相安 无 事 了 )。 

练习 2.43 Louis Reasoner 在 做 练习 2.42 时 遇 到 了 麻烦 ， 他 的 queens 过 程 看 起 来 能 行 ， 
但 却 运行 得 极 慢 (Louis 居 然 无 法 忍耐 到 它 解 出 6 x 6 棋盘 的 问题 ) 。 当 Louis 请 Eva Lu Ator 帮 忙 
时 ， 她 指出 他 在 flatmap 里 交换 了 由 套 映射 的 顺序 ， 将 它 写 成 了 : 

(flatmap 


(lambda (new-row) 
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(map (lambda (rest-of-queens) 
(adjoin-position new-row k rest-of-queens) ) 
(queen-cols (- k 1)))) 


(enumerate-interval 1 board-size) ) 


八 皇 后 问题 大 约 需 要 多 少时 间 ， 假 定 练习 2.42 中 的 程序 需 用 时 间 7 求 解 这 一 难题 。 
2.2.4 实例 ， 一 个 图 形 语言 


本 市 将 介绍 一 种 用 于 画图 形 的 简单 语言 ， 以 展示 数据 抽象 和 闭 包 的 威力 ， 其 中 也 以 一 种 
非常 本 质 的 方式 使 用 了 高 阶 过 程 。 这 一 语言 的 设计 就 是 为 了 很 容易 地 做 出 一 些 模式 ， 例 如 图 
2-9 中 所 示 的 那 类 图 形 ， 它 们 是 由 某 些 元 素 的 重复 出 现 而 构成 的 ， 这 些 元 素 可 以 变形 或 者 改变 
大 小 “。 在 这 个 语言 里 ， 数 据 元 素 的 组 合 都 用 过 程 表 示 ， 而 不 是 用 表 结 构 表示 。 就 像 cons 满 
足 一 种 闭 包 性 质 ， 使 我 们 能 构造 出 任意 复杂 的 表 结 构 一 样 ， 这 一 语言 中 的 操作 也 满足 闭 包 性 
质 ， 使 我 们 很 容易 构造 出 任意 复杂 的 模式 。 
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图 2-9 利用 这 一 图 形 语言 生成 的 各 种 设计 


在 1.1 节 里 开始 研究 程序 设计 时 我 们 就 强调 说 ， 在 描述 一 种 语言 时 ， 应 该 将 注意 力 集中 到 
语言 的 基本 原 语 、 它 的 组 合 手段 以 及 它 的 抽象 手段 ， 这 是 最 重要 的 。 这 里 的 工作 也 将 按照 同 
样 的 框架 进行 。 

这 一 图 形 语 言 的 优美 之 处 ， 部 分 就 在 于 语言 中 只 有 一 种 元 素 ， 称 为 画家 (painter)。 一 个 
画家 将 画 出 一 个 图 像 ， 这 种 图 像 可 以 变形 或 者 改变 大 小 ， 以 便 能 正好 放 到 某 个 指定 的 平行 四 
边 形 框架 里 。 举 例 来 说 ， 这 里 有 一 个 称 为 vave 的 基本 画家 ， 它 能 做 出 如 图 2-10 所 示 的 折线 画 ， 
而 所 做 出 图 画 的 实际 形状 依赖 于 具体 的 框架 一 一 图 2-10 里 的 四 个 图 像 都 是 由 同一 个 画家 wave 
产生 的 ,但 却 是 相对 于 四 个 不 同 的 框架 。 有 些 画 家 比 它 更 精妙 : 称 为 rogers 的 基本 画家 能 画 





88 这 一 图 形 语言 是 基于 Peter Henderson 所 创建 的 ， 用 于 构造 类 似 于 M.C. Escher 的 版 画 “ 方 形 的 极限 ”中 那样 的 
形象 ( 见 Henderson 1982) 的 一 种 语言 。Escher 的 版 画 由 一 种 重复 的 变 尺度 模式 构成 ， 很 像 本 节 中 用 
square-1limit 过 程 排 出 的 图 画 。 
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Hi MIT AY 44 A William Barton Rogers 的 画像 ， 如 图 2-11 所 示 史 。 图 2-11 里 的 四 个 图 像 是 相对 于 
与 图 2-10 中 wave 形 象 同样 的 四 个 框架 画 出 来 的 。 
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图 2-10 由 画家 wave 相 对 于 4 个 不 同 框架 而 产生 出 的 图 像 。 
相应 框架 用 点 线 表示 ， 它 们 并 不 是 图 像 的 组 成 部 分 


i = A oe 


* William Barton Rogers (1804 一 1882) 是 MIT 的 创始 人 和 第 一 任 校长 。 他 曾 作为 地 质 学 家 和 才华 横 溢 的 教师 ， 
在 William and Mary (威廉 和 玛丽 ) 学 院 和 弗吉尼亚 大 学 任教 。1859 年 他 搬 到 了 波士顿 ， 在 那里 他 可 以 有 更 多 
的 时 间 去 从 事 研究 工作 ， 可 以 着 手 他 的 一 个 创建 “综合 性 技术 学 院 ” 的 计划 。 此 时 他 还 是 马萨诸塞 第 一 任 的 
煤气 表 的 州 检 查 员 。 

在 1861 年 MIT 创 建 时 ，Rogers 被 选 为 第 一 任 校长 。Rogers 推 崇 一 种 “学 以 致 用 ”的 思想 ， 这 与 当时 流行 
的 有 关 大 学 教育 的 观点 截然 不 同 。 当 时 在 大 学 里 人 们 过 于 强调 经 典 ， 正 如 Rogers 所 写 的 ， 那 些 东 西 “阻碍 了 
更 广泛 、 更 深入 和 更 实际 的 自然 科学 和 社会 科学 的 教育 和 训练 "。Rogers 认 为 这 一 教育 方式 也 应 该 与 职业 学 校 
式 的 教育 截然 不 同 ， 用 他 的 话说 : 

强制 性 地 区 分 实践 工作 者 和 科学 工作 者 是 完全 无 益 的 ， 当 代 的 所 有 经 验 已 经 证 明 这 种 区 分 也 是 
完全 没有 价值 的 。 

Rogers 作 为 MIT 的 校长 一 直到 1870 年 ， 是 年 他 因为 健康 原因 而 退休 。 到 了 1878 年 ，MIT 的 第 二 任 校长 
John Runkle 由 于 1873 年 的 金融 大 了 恐慌 带 来 的 财政 危机 的 压力 ， 以 及 哈佛 企图 提取 MIT 的 斗争 压力 而 退休 ， 
Rogers 重 新 回 到 校长 办 公 室 ， 一 直 工 作 到 1881 年 。 

Rogers 在 1882 年 给 MIT 毕 业 班 举行 的 毕业 典礼 的 致辞 中 倒 下 去 世 。Runkle 在 同年 举行 的 纪念 会 致辞 中 引 
用 了 Rogers 最 后 的 话 : 

“ 当 我 今天 站 在 这 里 环顾 校园 时 ，…… 我 看 到 了 科学 的 开始 。 我 记得 在 150 年 以 前 ，Stephen 
Hales 出 版 了 一 本 小 册子 ,讨论 照明 用 气 的 课题 ， 在 书 中 他 写 到 ， 他 的 研究 表明 了 128 谷 (英美 重量 
单位 ， 每 谷 合 64.8 毫 克 一 ip i) 烟煤 …… 

“烟煤 ,” 这 就 是 他 留 在 这 个 世界 上 的 最 后 一 个 词 。 当 时 他 逐渐 地 向 前 倾 下 去 ， 就 像 是 要 在 他 
面前 的 桌子 上 查看 什么 注 记 ， 而 后 他 又 慢 慢 地 恢复 到 直立 状态 、 举 起 了 他 的 双手 ， 慢 慢 地 ， 从 他 那 
生 世 劳作 和 胜利 的 喜悦 感觉 转变 为 “死亡 的 明天 ”， 在 那里 生命 的 奇迹 结束 了 ， 而 脱离 了 肉体 的 灵魂 
则 向 往 着 那 无 穷 未 来 中 全 新 的 永远 深 不 可 测 的 奥秘 ， 并 从 中 得 到 无 尽 的 满足 。 

用 Francis A. Walker (MIT 的 第 三 任 校长 ) 的 话说 : 

他 的 整个 一 生 都 证 明了 他 是 最 正直 和 最 勇敢 的 人 ， 他 的 死 也 像 一 个 骑士 所 最 希望 的 那样 ， 穿 着 
战 袍 ， 和 站 在 自己 的 岗位 上 ， 懂行 着 他 对 于 社会 的 职责 。 
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图 2-11 William Barton Rogers (MIT 的 创始 人 和 第 一 任 校 长 ) 的 图 像 ， 依 据 与 
图 2-10 中 同样 的 4 个 框架 画 出 (原始 图 片 经 MIT 博 物 馆 的 允许 重印 ) 


为 了 组 合 起 有 关 的 图 像 ， 我 们 要 用 一 些 可 以 从 给 定 画家 构造 出 新 画家 的 操作 。 例 如 ， 操 
作 beside 从 两 个 画家 出 发 ， 产 生 一 个 复合 型 画家 ， 它 将 第 一 个 画家 的 图 像 画 在 框架 中 左边 的 
- 半 里 ， 将 第 二 个 画家 的 图 像 画 在 框架 里 右边 一 半 里 。 与 此 类 似 ，be1low 从 两 个 画家 出 发 产 
生 一 个 组 合 型 画家 ， 将 第 一 个 画家 的 图 像 画 在 第 二 个 画家 的 图 像 之 下 。 有 些 操作 将 一 个 画家 
转换 为 另 一 个 新 画家 。 例 如 ，f£1ip-vert 从 一 个 画家 出 发 ， 产 生 一 个 将 该 画家 所 画图 像 上 下 
颠倒 画 出 的 画家 ， 而 Elip-horiz 产 生 的 画家 将 原画 家 的 图 像 左 右 反 转 后 画 出 。 

图 2-12 说 明了 从 wave 出 发 ， 经 过 两 步 做 出 一 个 名 为 vave4 的 画家 的 方式 : 


Vi Mkt 
| 入 V 八 / VW | \ V of 
/ Ne Aes 一 一 Zz 
| 人 \ J E /\ fg L Z 
W ANU 
LA /\ 
(define wave2 (define wave4 
(beside wave (flip-vert wave) ) ) (below wave2 wave2) ) 


图 2-12 从 图 2-10 的 画家 wave 出 发 ， 建 立 起 一 个 复杂 图 像 
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(define wave2 (beside wave (flip-vert wave) ) ) 


(define wave4 (below wave2 wave2) ) 

在 按 这 种 方法 构造 复杂 的 图 像 时 ， 我 们 利用 了 一 个 事实 : 画家 在 有 关 语 言 的 组 合 方式 下 
是 封闭 的 :两 个 画家 的 beside 或 者 below 还 是 画家 ， 因 此 还 可 以 用 它们 作为 元 素 去 构造 更 
复杂 的 画家 。 就 像 用 cons 构 造 起 各 种 表 结 构 一 样 ， 我 们 所 用 的 数据 在 组 合 方式 下 的 闭 包 性 质 
非常 重要 ， 因 为 这 使 我 们 能 用 不 多 几 个 操作 构造 出 各 种 复杂 的 结构 。 

一 旦 能 做 画家 的 组 合 之 后 ， 我 们 就 希望 能 抽象 出 典型 的 画家 组 合 模 式 ， 以 便 将 这 种 组 合 
操作 实现 为 一 些 Scheme 过 程 。 这 也 意味 着 我 们 并 不 需要 这 种 图 形 语 言 里 包含 任何 特殊 的 抽象 
机 制 ， 因 为 组 合 的 方式 就 是 采用 普通 的 Scheme 过 程 。 这 样 ， 对 于 画家 ， 我 们 就 自动 有 了 能 够 
做 原来 可 以 对 过 程 做 的 所 有 事情 。 例 如 ， 我 们 可 以 将 wave4 中 的 模式 抽象 出 来 : 


(define (flipped-pairs painter) 
(let ((painter2 (beside painter (flip-vert painter)))) 
(below painter2 painter2))) 


并 将 wave4 重 新 定义 为 这 种 模式 的 实例 : 
(define wave4 (flipped-pairs wave)) 
我 们 也 可 以 定义 递归 操作 。 下 面 就 是 一 个 这 样 的 操作 ， 它 在 图 形 的 右边 做 分 割 和 分 支 ， 
就 像 在 图 2-13 和 图 2-14 中 显示 的 那样 : 
(define (right-split painter n) 
(if (= n 0) 
painter 


(let ((smaller (right-split painter (- n 1)))) 


(beside painter (below smaller smaller)) 


X1) 
up- up- 
split | split | corner-split 
A= #=1 


right-split 
“%=1 
identity 
right-split 
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right-split n corner-split n 


right-split 
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identity 
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图 2-13 right-split 和 corner-split 的 递归 方案 


通过 同时 在 图 形 中 向 上 和 向 右 分 支 ， 我 们 可 以 产生 出 一 种 平衡 的 模式 ( 见 练习 2.44、 图 2-13 和 图 
2-14): 
(define (corner-split painter n) 
(if (= n 0) 
painter 


(let ((up (up-split painter (- n 1))) 
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图 2-14 将 递归 操作 right-split 和 corner-split 应 用 于 画家 wave 和 rogers。 图 2-9 中 
显示 的 是 组 合 起 4 个 corner-split 图 形 产生 出 的 square-1imit 对 称 图 形 设计 
(right (right-split painter (- n 1)))) 
(let ((top-left (beside up up)) 
(bottom-right (below right right)) 
(corner (corner-split painter (- n 1)))) 
(beside (below painter top-left) 
(below bottom-right corner) ))))) 


将 某 个 cornezr-sp1lit 的 4 个 拷贝 适当 地 组 合 起 来 ， 我 们 就 可 以 得 到 一 种 称 为 saGuare- 
limit 的 模式 ， 将 它 应 用 于 wave 和 rogers 的 效果 见 图 2-9。 


(define (square-limit painter n) 
(let ((quarter (corner-split painter n))) 
(let ((half (beside (flip-horiz quarter) quarter) ) ) 
(below (flip-vert half) half)))) 


练习 2.44 ”请 定义 出 corner-split 里 使 用 的 过 程 up-split， 它 与 right-split 类 
似 ， 除 在 其 中 交换 了 below 和 beside 的 角色 之 外 。 


高 阶 操作 

除了 可 以 获得 组 合 画 家 的 抽象 模式 之 外 ， 我 们 同样 可 以 在 高 阶 上 工作 ， 抽 象 出 画家 的 各 
种 组 合 操 作 的 模式 。 也 就 是 说 ， 可 以 把 画家 操作 看 成 是 操控 和 描写 这 些 元 素 的 组 合 方法 的 元 
素 一 一 写 出 一 些 过程 ， 它 们 以 画家 操作 作为 参数 ， 创 建 出 各 种 新 的 画家 操作 。 
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举例 来 说 ，flipped-pairs 和 square-1imit 两 者 都 将 一 个 画家 的 四 个 拷贝 安排 在 一 
个 正方 形 的 模式 中 ， 它 们 之 间 的 差异 仅仅 在 这 些 拷贝 的 旋转 角度 。 抽 象 出 这 种 画家 组 合 模式 
的 一 种 方式 是 定义 下 面 的 过 程 ， 它 基于 四 个 单 参数 的 画家 操作 ， 产 生出 一 个 画家 操作 ， 这 一 
操作 里 将 用 这 四 个 操作 去 变换 一 个 给 定 的 画家 ， 并 将 得 到 的 结果 放 入 一 个 正方 形 里 。t1l、tr、 
bl 和 br 分 别 是 应 用 于 左上 角 、 右 上 角 、 左 下 角 和 右 下 角 的 四 个 拷贝 的 变换 : 


(define (square-of-four tl tr bl br) 
(lambda (painter) 
(let ((top (beside (tl painter) (tr painter) )) 
(bottom (beside (bl painter) (br painter) ))) 
(below bottom top) ))) 
操作 fl1ipped-pairs 可 以 基于 square-of-four 定 义 如 下 ”?: 


(define (flipped-pairs painter) 
(let ((combine4 (square-of-four identity flip-vert 
identity flip-vert))) 
(combine4 painter))) 


而 square-1limit 可 以 描述 为 : 
(define (square-limit painter n) 
(let ((combine4 (square-of-four flip-horiz identity 
rotate18s0 flip-vert))) 
(combine4 (corner-split painter n)))) 


练习 2.45 ”可 以 将 right-split 和 up-sp1lit 表 述 为 某 种 广义 划分 操作 的 实例 。 请 定义 
一 个 过 程 sp1it， 使 它 具 有 如 下 性 质 ， 求 值 : 

(define right-split (split beside below) ) 

(define up-split (split below beside) ) 


产生 能 够 出 过 程 right -split 和 up-split， 其 行为 与 前 面 定义 的 过 程 一 样 。 

框架 

在 我 们 进一步 弄 清 楚 如 何 实现 画家 及 其 组 合 方式 之 前 ， 还 必须 首先 考虑 框架 的 问题 。 一 
个 框架 可 以 用 三 个 向 量 描述 : 一 个 基准 向 量 和 两 个 角 向 量 。 基 准 向 量 描述 的 是 框架 基准 点 相 
对 于 平面 上 某 个 绝对 基准 点 的 偏 移 量 ， 角 向 量 描述 了 框架 的 角 相 对 于 框架 基准 点 的 偏 移 量 。 
如 果 两 个 角 向 量 正 交 ， 这 个 框架 就 是 一 个 矩形 。 否 则 它 就 是 一 个 一 般 的 平行 四 边 形 。 

图 2-15 显 示 的 是 一 个 框架 和 与 之 相关 的 三 个 向 量 。 根 据 数 据 抽象 原理 ， 我 们 现在 完全 不 
必 去 说 清楚 框架 的 具体 表示 方式 ， 而 只 需要 说 明 ， 存 在 着 一 个 构造 函数 make-frame， 它 能 
从 三 个 向 量 出 发 做 出 一 个 框架 。 与 之 对 应 的 选择 函数 是 origin-frame、edgel-frame 和 
edge2-frame ( 见 练 习 2.47)。 

我 们 将 用 单位 正方 形 (0<x, y<1) 里 的 坐标 去 描述 图 像 。 对 于 每 个 框架 ， 我 们 要 为 它 关 联 
一 个 框架 坐标 映射 ， 借 助 它 完成 有 关 图 像 的 位 移 和 伸缩 ， 使 之 能 够 适 配 于 这 个 框架 。 这 一 映 


°° 我 们 也 可 以 等 价 地 将 其 写 为 : 
(define flipped-pairs 


(square-of-four identity flip-vert identity flip-vert) ) 


2% rotatel180 将 一 个 画家 旋转 180 度 ( 见 练习 2.50)。 不 用 rotate180， 我 们 也 可 以 利用 练习 1.42 的 compose 
过 程 ， 写 (compose flip-vert flip-horiz)。 
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框架 基 © 
准 向 量 显示 屏 上 的 (0, 0) 点 


图 2-15 一 个 框架 由 三 个 向 量 描述 ， 包 括 一 个 基准 向 量 和 两 个 角 向 量 


射 的 功能 就 是 把 单位 正方 形变 换 到 相应 框架 ， 所 采用 的 方法 也 就 是 将 向 量 y = (x, y) 映射 到 下 
面 的 向 量 和 : 


Origin (Frame)+x* Edge, (Frame) +y . Edge, (Frame) 


例如 ， 点 (0, 0) 将 被 映射 到 给 定 框架 的 原点 ，(1, 1) 被 映射 到 与 原点 对 角 的 那个 点 ， 而 (0.5, 
0.5) 被 映射 到 给 定 框架 的 中 心 点 。 我 们 可 以 通过 下 面 过 程 建立 起 框架 的 坐标 映射 ”: 
(define (frame-coord-map frame) 
(lambda (v) 
(add-vect 
(origin-frame frame) 
(add-vect (scale-vect (xcor-vect v) 
(edgel-frame frame) ) 
(scale-vect (ycor-vect v) 
(edge2-frame frame) ))))) 


请 注意 看 ， 这 里 将 Erame-coord-map 应 用 于 一 个 框架 的 结果 是 返回 了 一 个 过 程 ， 它 对 于 每 
个 给 定 的 向 量 返 回 另 一 个 向 量 。 如 果 参 数 向 量 位 于 单位 正方 形 里 ， 得 到 的 对 应 结果 向 量 也 将 
位 于 相应 的 框架 里 。 例 如 : 
((frame-coord-map a-frame) (make-vect 0 0)) 
返回 的 向 量 如 下 : 
(origin-frame a-frame) 
练习 2.46 ”从 原点 出 发 的 一 个 二 维 向 量 v 可 以 用 一 个 由 x 坐标 和 y 坐 标 构成 的 序 对 表示 。 请 
为 这 样 的 向 量 实现 一 个 数据 抽象 : 给 出 一 个 构造 函数 make -vect， 以 及 对 应 的 选择 函数 
xcor-vect 和 ycor-vect。 借 助 于 你 给 出 的 构造 函数 和 选择 函数 ， 实 现 过 程 add-vect.、 
sub-vect 和 scale-vect， 它 们 能 完成 向 量 加 法 、 向 量 减 法 和 向 量 的 伸缩 。 
(x1, yH, 2)= Œ +x, yi tye) 
xis Yi)— Or, Yo) = ts Yi) 
s- (x, y)=(sx, sy) 


2 过 程 frame-coord-map 用 到 了 练习 2.46 里 讨论 的 向 量 操作 ， 现 在 假定 它们 已 经 在 某 种 向 量 表示 上 实现 好 了 。 
由 于 这 里 采用 了 数据 抽象 ， 只 要 这 些 向 量 操作 的 行为 是 正确 的 ， 采 用 什么 样 的 具体 向 量 表示 方式 都 没有 关系 。 
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练习 2.47 下 面 是 实现 框架 的 两 个 可 能 的 过 程 函数 : 
(define (make-frame origin edgel edge2) 


(list origin edgel edge2) ) 


(define (make-frame origin edgel edge2) 


(cons origin (cons edgel edge2) ) ) 
请 为 每 个 构造 函数 提供 适当 的 选择 函数 ， 为 框架 做 出 相应 的 实现 。 
画家 
一 个 画家 被 表示 为 一 个 过 程 ， 给 了 它 一 个 框架 作为 实际 参数 ， 它 就 能 通过 适当 的 位 移 和 
伸缩 ， 画 出 一 幅 与 这 个 框架 匹配 的 图 像 。 也 就 是 说 ， 如 果 p 是 一 个 画家 而 £ 是 一 个 框架 ， 通 过 
以 王 作为 实际 参数 调用 p， 就 能 产生 出 上 中 P 的 图 像 。 
基本 画家 的 实现 细节 依赖 于 特定 图 形 系统 的 各 种 特性 和 被 画图 像 的 种 类 。 例 如 ， 假 定 现 
在 有 了 一 个 过 程 daraw-1line， 它 能 在 屏幕 上 两 个 给 定点 之 间 画 出 一 条 直线 ， 那 么 我 们 就 可 以 
利用 它 创建 一 个 画 折线 图 的 画家 ， 例 如 从 通过 下 面 的 线段 表 创建 出 图 2-10 的 wave 画 家 ”: 
(define (segments->painter segment-list) 
(lambda (frame) 
(for-each 
(lambda (segment) 
(draw-line 
((frame-coord-map frame) (start-segment segment) ) 


((frame-coord-map frame) (end-segment segment) ) ) ) 
segment-list) )) 


这 里 所 给 出 的 线段 都 用 相对 于 单位 正方 形 的 坐标 描述 ， 对 于 表 中 的 每 个 线段 ， 这 个 画家 将 根 
据 框架 坐标 映射 ， 对 线段 的 各 个 端点 做 变换 ， 而 后 在 两 个 端点 之 间 画 一 条 直线 。 

将 画家 表示 为 过 程 ， 就 在 这 一 图 形 语言 中 竖立 起 一 道 强 有 力 的 抽象 屏障 。 这 就 使 我 们 可 
以 创建 和 混用 基于 各 种 图 形 能 力 的 各 种 类 型 的 基本 画家 。 任 何 过 程 只 要 能 取 一 个 框架 作为 参 
数 ， 画 出 某 些 可 以 伸缩 后 适合 这 个 框架 的 东西 ， 它 就 可 以 作为 一 个 画家 ”?。 

练习 2.48 平面 上 的 一 条 直线 段 可 以 用 一 对 向 量 表示 一 一 从 原点 到 线段 起 点 的 向 量 ， 以 及 
从 原点 到 线段 终点 的 向 量 。 请 用 你 在 练习 2.46 做 出 的 向 量 表示 定义 一 种 线段 表示 ， 其 中 用 构 
造 国 数 make-segment 以 及 选择 函数 start-segment 和 enda-segment。 

练习 2.49 利用 segments->painter 定 义 下 面 的 基本 画家 : 

a) 画 出 给 定 框架 边界 的 画家 。 

b) 通过 连接 框架 两 对 角 画 出 一 个 大 又 子 的 画家 。 

c) 通过 连接 框架 各 边 的 中 点 画 出 一 个 鞭 形 的 画家 。 


d) 画家 wave。 





3 画家 segments->paintezr 用 到 了 练习 2.48 里 描述 的 线段 表示 ， 还 用 到 练习 2.23 里 描述 的 Eorz-each 过 程 。 

举例 来 说 ， 图 2-11 里 的 rogers 画 家 是 用 一 个 灰 度 图 像 创 建 的 ， 对 于 给 定 框架 中 的 每 个 点 ，rogers 画 家 都 将 
在 图 像 中 确定 一 个 点 ， 它 应 该 在 有 关 的 框架 坐标 映射 下 映射 到 框架 中 的 这 个 点 ， 而 且 涂 灰 这 个 点 。 通 过 允许 
不 同 种 类 的 画家 ， 我 们 大 大 发 扬 了 2.1.3 节 中 讨论 的 抽象 数据 的 思想 ， 在 那里 提出 说 一 种 有 理 数 表示 可 以 是 任 
何 的 东西 ， 只 要 它 能 满足 适当 的 条 件 。 这 里 利用 的 事实 就 是 ， 一 个 画家 可 以 以 任何 方式 实现 ， 只 要 它 能 在 指 
定 的 框架 里 画 出 一 些 东 西 来 。2.1.3 节 还 说 明了 如 何 将 序 对 实现 为 过 程 。 画 家 也 是 我 们 用 过 程 表示 数据 的 又 一 
个 例子 。 
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画家 的 变换 和 组 合 

各 种 对 画家 的 操作 (例如 £1ip-vert 或 者 beside) 的 功能 就 是 创建 另 一 个 画家 ， 这 其 
中 涉及 原来 的 画家 ， 还 涉及 根据 参数 框架 派生 出 的 某 些 框架 。 举 例 来 说 ，f1ip-vert 在 反 转 
画家 时 完全 不 必 知 道 它 们 究竟 如 何 工 作 ， 它 只 需 知 道 怎样 将 一 个 框架 上 下 颠倒 就 足够 了 。 产 
生出 的 画家 使 用 的 仍 是 原来 的 画家 ， 只 不 过 是 让 它 在 一 个 颠倒 的 框架 里 工作 。 

对 坷 家 的 操作 都 基于 个 过 程 EzaaaEozupaiatsz， 它 以 一 个 画家 以 及 有 关 怎 样 变 
换 框架 和 生成 画家 的 信息 作为 参数 。 对 一 个 框架 调用 这 样 的 变换 去 产生 画家 ， 实 际 完成 的 是 
对 这 个 框架 的 一 个 变换 ， 并 基于 变换 后 的 框架 去 调用 原来 的 画家 。transform-painter 的 
参数 是 一 些 点 (用 向 量 表示 )， 它 们 描述 了 新 框架 的 各 个 角 。 在 用 于 做 框架 变换 时 ， 第 一 个 点 
描述 的 是 新 框架 的 原点 ， 另 外 两 个 点 描述 的 是 新 框架 的 两 个 边 向 量 的 终点 。 这 样 ， 位 于 单位 
正方 形 里 的 参数 描述 的 就 是 一 个 包含 在 原 框 架 里 面 的 框架 。 


(define (transform-painter painter origin cornerl corner2) 
(lambda (frame) 
(let ((m (frame-coord-map frame) ) ) 
(let ((new-origin (m origin) ) ) 
(painter 
(make-frame new-origin 
(sub-vect (m cornerl) new-origin) 


(sub-vect (m corner2) new-origin))))))) 


从 下 面 可 以 看 到 如 何 给 出 反 转 画家 的 定义 : 


(define (flip-vert painter) 


(transform-painter painter 


(make-vect 0.0 1.0) ; new origin 
(make-vect 1.0 1.0) ; new end of edgel 
(make-vect 0.0 0.0))) ; newend of edge2 


利用 transform-painter 很 容易 定义 各 种 新 的 变换 。 例 如 ， 我 们 可 以 定义 出 一 个 画家 ， 它 
将 自己 的 图 像 收缩 到 给 定 框 架 右 上 的 四 分 之 一 区 域 里 : 


(define (shrink-to-upper-right painter) 
(transform-painter painter 
(make-vect 0.5 0.5) 
(make-vect 1.0 0.5) 
(make-vect 0.5 1.0))) 
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(define (rotate90 painter) 
(transform-painter painter 
(make-vect 1.0 0.0) 
(make-vect 1.0 1.0) 
(make-vect 0.0 0.0))) 


或 者 将 图 像 向 中 心 收缩 ”: 


(define (squash-inwards painter) 


“变换 rotate90 只 有 对 正方 形 框架 工作 才 是 真正 的 旋转 ， 因 为 它 还 要 拉 伸 或 者 压缩 图 像 去 适应 框架 。 
% 图 2-10 和 图 2-11 里 的 菱形 图 形 就 是 通过 将 squash-inwards 作 用 于 wave 和 rogers 而 得 到 的 。 
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(transform-painter painter 
(make-vect 0.0 0.0) 
(make-vect 0.65 0.35) 
(make-vect 0.35 0.65))) 
框架 变换 也 是 定义 两 个 或 者 更 多 画家 的 组 合 的 关键 。 例 如 ，beside 过 程 以 两 个 画家 为 参 
， 分 别 将 它们 变换 为 在 参数 框架 的 左 半 边 和 右 半边 画图 ， 这 样 就 产生 出 一 个 新 的 复合 型 画 
。 当 我 们 给 了 这 一 画家 一 个 框架 后 ， 它 首先 调用 其 变换 后 的 第 一 个 画家 在 框架 的 左 半边 画 
， 而 后 调用 变换 后 的 第 二 个 画家 在 框架 的 右 半 边 画 图 : 
(define (beside painterl painter2) 


(let ((split-point (make-vect 0.5 0.0))) 
(let ((paint-left 


RM g 


(transform-painter painterl 
(make-vect 0.0 0.0) 
split-point 


H 


(make-vect 0.0 .0))) 
(paint-right 
(transform-painter painter2 


split-point 


口 


(make-vect 1.0 0.0) 


-0)))) 


H 


(make-vect 0.5 
(lambda (frame) 
(paint-left frame) 
(paint-right frame))))) 


请 特别 注意 ， 这 里 的 画家 数据 抽象 ， 特 别 是 将 画家 用 过 程 表示 ， 怎 样 使 Deside 的 实现 变 
得 如 此 简单 。 这 里 的 beside 过 程 完全 不 必 了 解 作 为 其 成 分 的 各 个 画家 的 任何 东西 ， 它 只 需 知 
道 这 些 画家 能 够 在 指定 框架 里 画 出 一 些 东 西 就 够 了 。 

练习 2.50 ”请 定义 变换 fl1ip-horiz， 它 能 在 水 平方 向 上 反 转 画家 。 再 定义 出 对 画家 做 
反 时 针 方 向 上 180 度 和 270 度 旋转 的 变换 。 

练习 2.51 定义 对 画家 的 below 操 作 ， 它 以 两 个 画家 为 参数 。 在 给 定 了 一 个 框架 后 ， 由 
below 得 到 的 画家 将 要 求 第 一 个 画家 在 框架 的 下 部 画图 ， 要 求 第 二 个 画家 在 框架 的 上 部 画图 。 
请 按 两 种 方式 定义 below: 首先 写 出 一 个 类 似 于 上 面 beside 的 过 程 ， 另 一 个 则 直接 通过 
beside 和 适当 的 旋转 操作 (来 自 练习 2.50) 完成 有 关 工 作 。 


强健 设计 的 语言 层次 
在 上 述 的 图 形 语 言 中 ， 我 们 演习 了 前 面 介绍 的 有 关 过 程 和 数据 抽象 的 关键 思想 。 其 中 的 


基本 数据 抽象 和 画家 都 用 过 程 表 示 实 现 ， 这 就 使 该 语言 能 以 一 种 统一 方式 去 处 理 各 种 本 质 上 
完全 不 同 的 画图 能 力 。 实 现 组 合 的 方法 也 满足 闭 包 性 质 ， 使 我 们 很 容易 构造 起 各 种 复杂 的 设 
计 。 最 后 ， 用 于 做 过 程 抽象 的 所 有 工具 ， 现 在 也 都 可 用 作 组 合 画 家 的 抽象 手段 。 

我 们 也 对 程序 设计 的 另 一 个 关键 概念 有 了 一 点 认识 ， 这 就 是 分 层 设 计 的 问题 。 这 一 概念 
说 的 是 ， 一 个 复杂 的 系统 应 该 通过 一 系列 的 层次 构造 出 来 ， 为 了 描述 这 些 层次 ， 需 要 使 用 一 
系列 的 语言 。 构 造 各 个 层次 的 方式 ， 就 是 设法 组 合 起 作为 这 一 层次 中 部 件 的 各 种 基本 元 素 ， 
而 这 样 构造 出 的 部 件 又 可 以 作为 另 一 个 层次 里 的 基本 元 素 。 在 分 层 设计 中 ， 每 个 层次 上 所 用 
的 语言 都 提供 了 一 些 基 本 元 素 、 组 合 手段 ， 还 有 对 该 层次 中 的 适当 细节 做 抽象 的 手段 。 
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在 复杂 系统 的 工程 中 广泛 使 用 这 种 分 层 设 计 方 法 。 例 如 ， 在 计算 机 工程 里 ， 电 阻 和 晶体 
管 被 组 合 起 来 〈 用 模拟 电路 的 语言 ) ， 产 生出 一 些 部 件 ， 例 如 与 门 、 或 门 等 等 ， 这 些 门 电路 又 
被 作为 数字 电路 设计 的 语言 中 的 基本 元 素 ”。 将 这 类 部 件 组 合 起 来 ， 构 成 了 处 理 器 、 总 线 和 存 
储 系统 ， 随 即 ， 又 通过 它们 的 组 合 构造 出 各 种 计算 机 ， 此 时 采用 的 是 适合 于 描述 计算 机 体系 
结构 的 语言 。 计 算 机 的 组 合 可 以 进一步 构成 分 布 式 系统 ， 采 用 的 是 适合 描述 网 络 互联 的 语言 。 
我 们 还 可 以 这 样 做 下 去 。 

作为 分 层 设计 的 一 个 小 例子 ,我 们 的 图 形 语 言 用 了 一 些 基本 元 素 (基本 画家 )， 它 们 是 基 
于 描述 点 和 直线 的 语言 建立 起 来 ， 为 segments->painter 提 供 线 段 表 ,或 者 为 rogers 之 
类 提供 着 色 能 力 。 前 面 关 于 这 一 图 形 语言 的 描述 ， 主 要 是 集中 在 这 些 基本 元 素 的 组 合 方面 ， 
采用 的 是 peside 和 below 一 类 的 几何 组 合 手 段 。 我 们 也 在 更 高 的 层次 上 工作 ， 将 beside 和 
below 作 为 基本 元 素 ， 在 一 个 具有 square-of-four 一 类 操作 的 语言 中 处 理 它们 ， 这 些 操 作 
抓 住 了 一 些 将 几何 组 合 手段 组 合 起 来 的 常见 模式 。 

分 层 设 计 有 助 于 使 程序 更 加 强健 ， 也 就 是 说 ， 使 我 们 更 有 可 能 在 给 定 规范 发 生 一 些小 改 
变 时 ， 只 需 对 程序 做 少量 的 修改 。 例 如 ， 假 定 我 们 希望 改变 图 2-9 所 示 的 基于 wave 的 图 像 ， 
我 们 就 可 以 在 最 低 的 层次 上 工作 ， 直 接 去 修改 wave 元 素 的 表现 细节 ， 也 可 以 在 中 间 层 次 上 工 
作 ， 改 变 corner-split 里 重复 使 用 wave 的 方式 ; 也 可 以 在 最 高 的 层次 上 工作 ， 改 变 对 图 
形 中 各 个 角 上 4 个 副本 的 安排 。 一 般 来 说 ,分 层 结构 中 的 每 个 层次 都 为 表述 系统 的 特征 提供 了 
一 套 独特 词汇 ， 以 及 一 套 修改 这 一 系统 的 方式 。 

练习 2.52 在 上 面 描述 的 各 个 层次 上 工作 ， 修 改 图 2-9 中 所 示 的 方块 的 限制 。 特 别 是 : 

a) 给 练习 2.49 的 基本 wave 画 家 加 入 某 些 线段 (例如 ， 加 上 一 个 笑脸 )。 

b) 修改 corner-split 的 构造 模式 (例如 ， 只 用 up-split 和 right-split 的 图 像 的 
各 一 个 副本 ， 而 不 是 两 个 )。 

c) 修改 square-1imit， 换 一 种 使 用 square-of-four 的 方式 ， 以 另 一 种 不 同 模式 组 
合 起 各 个 角 区 (例如 ， 你 可 以 让 大 的 Rogers 先 生 从 正方 形 的 每 个 角 问 外 看 )。 


2.3 符号 数据 

到 目前 为 止 ， 我 们 已 经 使 用 过 的 所 有 复合 数据 ， 最 终 都 是 从 数值 出 发 构造 起 来 的 。 在 这 
一 节 里 ， 我 们 要 扩充 所 用 语言 的 表述 能 力 ， 引 进 将 任意 符号 作为 数据 的 功能 。 
2.3.1 引号 

如 果 我 们 能 构造 出 采用 符号 的 复合 数据 ， 我 们 就 可 以 有 下 面 这 类 的 表 : 

(a b č dj 


(23 45 17) 
( (Norah 12) (Molly 9) (Anna 7) (Lauren 6) (Charlotte 4)) 


这 些 包含 着 符号 的 表 看 起 来 就 像 是 我 们 语言 里 的 表达 式 : 
(* (+ 23 45) (+ x 9)) 


(define (fact n) (if (=n 1y 1 (* n (fact (= n 1))))) 


”3.3.4 节 描述 了 一 个 这 样 的 语言 。 
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为 了 能 够 操作 这 些 符号 ， 我 们 的 语言 里 就 需要 有 一 种 新 元 素 : 为 数据 对 象 加 引号 的 能 力 。 
假定 我 们 希望 构造 出 表 (a b)， 当 然 不 能 用 (list a b) 完成 这 件 事 ， 因 为 这 一 表达 式 将 
要 构造 出 的 是 a 和 b 的 值 的 表 ， 而 不 是 这 两 个 符号 本 身 的 表 。 在 自然 语言 的 环境 中 ， 这 种 情况 
也 是 众所周知 的 ， 在 那里 的 单词 和 句子 可 能 看 作 语 义 实体 ， 也 可 以 看 作 是 字符 的 序列 (语法 
实体 )。 在 自然 语言 里 ， 常 见 的 方式 就 是 用 引号 表明 一 个 词 或 者 一 个 句子 应 作为 文字 看 待 ， 将 
它们 直接 作为 字符 的 序列 。 例 如 说 ,，“John” 的 第 一 个 字母 显然 是 “J”。 如 果 我 们 对 某 人 说 
“大 声 说 你 的 名 字 ”， 此 时 希望 听 到 的 是 那个 人 的 名 字 。 如 果 说 “大 声 说 “你 的 名 字 '”， 此 时 
希望 听 到 的 就 是 词组 “你 的 名 字 ”。 请 注意 ， 我 们 在 这 里 不 得 不 用 崔 套 的 引号 去 描述 别人 应 该 
说 的 东西 ”。 

我 们 可 以 按照 同样 的 方式 ， 将 表 和 符号 标记 为 应 该 作为 数据 对 象 看 待 ， 而 不 是 作为 应 该 
求 值 的 表达 式 。 然 而 ， 这 里 所 用 的 引号 形式 与 自然 语言 中 的 不 同 ， 我 们 只 在 被 引 对 象 的 前 面 
放 一 个 引号 (按照 习惯 ， 在 这 里 用 单 引 号 ) 。 在 Scheme 里 可 以 不 写 结束 引号 ， 因 为 这 里 已 经 靠 
空白 和 括号 将 对 象 分 隔 开 ， 一 个 单 引 号 的 意义 就 是 引用 下 一 个 对 象 ”。 

现在 我 们 就 可 以 区 分 符号 和 它们 的 值 了 : 

(define a 1) 

(define b 2) 

(list a b) 

(1 2) 

(list ‘a ’b) 

(a b) 

(list ‘a b) 

(a 2) 

引号 也 可 以 用 于 复合 对 象 ， 其 中 采用 的 是 表 的 方便 的 输出 表示 方式 '”: 

(car "(a b c)) 


a 


(cdr la b c)) 


% 允许 在 一 个 语言 中 使 用 引号 ， 将 会 极 大 地 损害 根据 简单 词语 在 语言 中 做 推理 的 能 力 ， 因 为 它 破坏 了 对 等 的 东 
西 可 以 相互 替换 的 观念 。 举 个 例子 ， 三 等 于 二 加 一 ， 但 是 “三 ”这 个 字 却 不 等 于 “二 加 一 ”这 个 短语 。 引 号 
是 很 有 威力 的 东西 ， 因 为 它 使 我 们 可 以 构造 起 一 种 能 操作 其 他 表达 式 的 表达 式 (正如 我 们 将 在 第 4 章 里 看 到 的 
那样 )。 但是， 在 一 种 语言 里 允许 用 语句 去 讨论 这 一 语言 里 的 其 他 语句 ， 那么 有 关 “ 对 等 的 东西 可 以 相互 代 换 ” 
究竟 是 什么 意思 ， 我 们 就 很 难 给 任何 具有 内 在 统一 性 的 说 法 了 。 举 例 说 ， 如 果 我 们 知道 长 庚 星 就 是 启明 星 ， 
那么 我 们 就 可 以 从 句子 “长 庚 星 就 是 金星 ”推导 出 “启明 星 就 是 金星 。 然 而 ， 即 使 有 “ 张 三 知 道 长 庚 星 就 是 
金星 ”， 我 们 也 无 法 推论 说 “ 张 三 知 道 启 明星 就 是 金星 ”。 

% 单 引 号 和 用 于 括 起 应 该 打印 输出 的 字符 串 的 双 引 号 不 同 。 单 引号 可 以 用 于 括 起 表 和 符号 ， 而 双 引 号 只 能 用 于 
字符 串 。 在 本 书 里 只 将 字符 串 用 于 需要 打印 输出 的 对 象 。 

0o 严格 地 说 ， 引 号 的 这 种 使 用 方式 ， 违 背 了 我 们 语言 中 所 有 复合 表达 式 都 应 该 由 括号 限定 ， 都 具有 表 的 形式 的 
普遍 性 原则 。 通 过 引进 特殊 形式 quote 就 可 以 恢复 这 种 一 致 性 ， 这 种 特殊 形式 的 作用 与 引号 完全 一 样 。 因 此 ， 
我 们 完全 可 以 用 (quote a) 代替 'a, 采用 (quote (a b c)) 而 不 是 '(a b c)。 这 也 就 是 解释 器 的 实际 
工作 方式 。 引 号 只 不 过 是 一 种 将 下 一 完整 表达 式 用 (quote <expression>) 形式 包 于 起 来 的 单字 符 缩 写 形 
式 。 这 一 点 非常 重要 ， 因 为 它 维 持 了 我 们 的 原则 : 解释 器 看 到 的 所 有 表达 式 都 可 以 作为 数据 对 象 去 操作 。 例 
如 ， 我 们 可 以 构造 出 表达 式 (car ' (a b c) ) ， 它 就 等 同 于 通过 对 表达 式 (list "car (list ’quote (a 
b c))) 的 求 值 而 得 到 的 (car (quote (a b c)))。 
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(b c) 


记 住 这 些 之 后 ， 我 们 就 可 以 通过 求 值 0 得 到 空 表 ， 这 样 就 可 以 丢掉 变量 nil 了 。 

为 能 对 符号 做 各 种 操作 ， 我 们 还 需要 用 另 一 个 基本 过 程 eq? ， 这 个 过 程 以 两 个 符号 作 
为 参数 ， 检 查 它们 是 否 为 同样 的 符号 ”"。 利 用 eq? 可 以 实现 一 个 称 为 nemq 的 有 用 过 程 ， 它 以 
一 个 符号 和 一 个 表 为 参数 。 如 果 这 个 符号 不 包含 在 这 个 表 里 (也 就 是 说 ， 它 与 表 里 的 任何 项 
目 都 不 eq? )，memq 就 返回 假 ， 否 则 就 返回 该 表 的 由 这 个 符号 的 第 一 次 出 现 开 始 的 那个 子 表 : 


(define (memq item X) 
(cond ((null? x) false) 
((eq? item (car x)) x) 
(else (memq item (cdr x))))) 


举例 来 说 ， 表 达 式 ， 
(memg ‘apple *(pear banana prune) ) 
的 值 是 假 ， 而 表达 式 ， 
(memq ‘apple ‘(x (apple sauce) y apple pear) ) 
的 值 是 (apple pear), 
练习 2.53 解释 器 在 求 值 下 面 各 个 表达 式 时 将 打印 出 什么 ? 
(list “a Db ’c) 
(list (list ‘george) ) 
(eae * ( (scl. #2} (Xl yo) )) 
(cadr *((x1 x2) (yl y2))) 
(pair? (car ‘(a short list))) 
(memg ‘red *((red shoes) (blue socks) ) ) 


(memg ‘red *(red shoes blue socks) ) 


练习 2.54 ”如 果 两 个 表 包 含 着 同样 元 素 ， 这 些 元 素 也 按 同 样 顺序 排列 ， 那 么 就 称 这 两 个 
表 equal?。 例 如 : 


(equal? ’(this is a list) ’(this is a list)) 


是 真 ， 而 


(equal? ’(this is a list) ’(this (is a) list)) 


是 假 。 说 得 更 准确 些 ， 我 们 可 以 从 符号 相等 的 基本 eq? 出 发 ， 以 递归 方式 定义 出 equal?。a 
和 b 是 equal? 的 ， 如 果 它 们 都 是 符号 ， 而 且 这 两 个 符号 满足 eq?; 或 者 它们 都 是 表 ， 而 且 
(car a) 和 (car b) 相互 equal?， 它们 的 (cdr a) 和 (cdr b) 也 是 equal?。 请 利 
用 这 一 思路 定义 出 equal? 过 程 %。 


避 我 们 可 以 认为 ， 两 个 符号 是 “同样 ”的 ， 如 果 它 们 是 由 同样 字符 按照 同样 顺序 构成 。 这 一 定义 回避 了 一 个 我 
们 目前 尚且 无 法 去 探讨 的 深入 问题 ， 程序 设计 语言 里 “同样 ”的 意义 问题 。 我 们 将 在 第 3 章 中 重新 回 到 这 个 
问题 (第 3.1.3 节 )。 

避 在 实践 中 ， 程 序 员 们 不 仅 用 equa1l? 比 较 包含 符号 的 表 ， 也 用 它 比较 包含 数值 的 表 。 有 关 两 个 数值 相等 的 数 
(用 检测 ) 是 否 也 eq? 的 问题 高 度 依赖 于 具体 实现 。 对 于 equal? 的 一 个 更 好 的 定义 (例如 Scheme 中 的 基本 过 
E) 还 要 去 检查 a 和 b 是 否 为 两 个 数 ， 如 果 是 它们 都 是 数 ， 数 值 相等 时 就 认为 它们 equal?。 
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练习 2.55 Eva Lu Ator 输 入 了 表达 式 : 


(car `’ abracadabra) 


令 她 吃惊 的 是 解释 器 打印 出 的 是 quote。 请 解释 这 一 情况 。 
2.3.2 实例 : 符号 求 导 


为 了 阐释 符号 操作 的 情况 ， 并 进一步 阐释 数据 抽象 的 思想 ,现在 考虑 设计 一 个 执行 代数 
表达 式 的 符号 求 导 的 过 程 。 我 们 希望 该 过 程 以 一 个 代数 表达 式 和 一 个 变量 作为 参数 ， 返 回 这 
个 表达 式 相 对 于 该 变量 的 导数 。 例 如 ， 如 果 送 给 这 个 过 程 的 参数 是 az + px 十 c 和 x， 它 应 该 返 
回 2ax 十 b。 符 号 求 导数 对 于 Lisp 有 着 特殊 的 历史 意义 ， 它 正 是 推动 人 们 去 为 符号 操作 开发 计 
算 机 语言 的 重要 实例 之 一 。 进 一 步 说 ， 它 也 是 人 们 为 符号 数学 工作 开发 强 有 力 系 统 的 研究 领 
域 的 开端 ， 今 天 已 经 有 越 来 越 多 的 应 用 数学 家 和 物理 学 家 们 正在 使 用 这 类 系统 。 

为 了 开发 出 一 个 符号 计算 程序 ， 我 们 将 按照 2.1.1 节 开发 有 理 数 系统 那样 ， 采 用 同样 的 数 
据 抽 象 策略 。 也 就 是 说 ， 首 先 定义 一 个 求 导 算法 ， 令 它 在 一 些 抽 象 对 象 上 操作 ， 例 如 “和 ”、 
“乘积 ”和 “变量 ”， 并 不 考虑 这 些 对 象 实际 上 如 何 表示 ， 以 后 才 去 关心 具体 表示 的 问题 。 

对 抽象 数据 的 求 导 程序 

为 了 使 有 关 的 讨论 简单 化 ， 我 们 在 这 里 考虑 一 个 非常 简单 的 符号 求 导 程序 ， 它 处 理 的 表 
达 式 都 是 由 对 于 两 个 参数 的 加 和 乘 运算 构造 起 来 的 。 对 于 这 种 表达 式 求 导 的 工作 可 以 通过 下 
面 几 条 归 约 规则 完成 : 

dc 


KTO 当 c 是 一 个 常量 ， 或 者 一 个 与 x 不 同 的 变量 
dx] 
dx 
d(u+v)_ du, dv 
dx dx dy 





d(uv dv du 
ee) ae) 

可 以 看 到 ， 这 里 的 最 后 两 条 规则 具有 递归 的 性 质 ， 也 就 是 说 ， 要 想得到 一 个 和 式 的 导数 ， 
我 们 首先 要 找 出 其 中 各 个 项 的 导数 ， 而 后 将 它们 相 加。 这 里 的 每 个 项 又 可 能 是 需要 进一步 分 
解 的 表达 式 。 通 过 这 种 分 解 ， 我 们 能 得 到 越 来 越 小 的 片段 ， 最 终 将 产生 出 常量 或 者 变量 ， 它 
们 的 导数 就 是 0 或 者 1。 

为 了 能 在 一 个 过 程 中 体现 这 些 规 则 ， 我 们 用 一 下 按 愿 望 思维 ， 就 像 在 前 面 设 计 有 理 数 的 
实现 时 所 做 的 那样 。 如 果 现在 有 了 一 种 表示 代数 表达 式 的 方式 ， 我 们 一 定 能 判断 出 某 个 表达 
式 是 否 为 一 个 和 式 、 乘 式 、 常 量 或 者 变量 ， 也 能 提取 出 表达 式 里 的 各 个 部 分 。 对 于 一 个 和 式 
(举例 来 说 ) ， 我 们 可 能 希望 取得 其 被 加 项 (第 一 个 项 ) 和 加 项 (第 二 个 项 )。 我 们 还 需要 能 从 
儿 个 部 分 出 发 构造 出 整个 表达 式 。 让 我 们 假定 现在 已 经 有 了 一 些 过 程 ， 它 们 实现 了 下 述 的 构 
造 国 数 、 选 择 函 数 和 谓词 : 

(variable? e) e 是 变量 吗 ? 

(same-variable? v1 v2) V1 和 v2 是 同一 个 变量 吗 ? 
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(sum? e) e 是 和 式 吗 ? 
(addend e) e 的 被 加 数 

(augend e) e 的 加 数 
(make-sum al a2) 构造 起 al 与 a2 的 和 式 
(product? e) e 是 乘 式 吗 ? 
(multiplier e) e 的 被 乘 数 
(multiplicand e) e 的 乘 数 
(make-product ml m2) 构造 起 m1 与 m2 的 乘 式 


利用 这 些 过 程 ， 以 及 判断 表达 式 是 否 数值 的 基本 过 程 number?， 我 们 就 可 以 将 各 种 求 导 规则 
用 下 面 的 过 程 表达 出 来 了 : 
(define (deriv exp var) 
(cond ((number? exp) 0) 
((variable? exp) 
(if (same-variable? exp var) 1 0)) 
((sum? exp) 
(make-sum (deriv (addend exp) var) 
(deriv (augend exp) var) ) 
((product? exp) 
(make-sum 
(make-product (multiplier exp) 
(deriv (multiplicand exp) var) ) 
(make-product (deriv (multiplier exp) var) 
(multiplicand exp)))) 
(else 


(error "unknown expression type -- DERIV" exp)))) 
过 程 deriv 里 包含 了 一 个 完整 的 求 导 算 法 。 因 为 它 是 基于 抽象 数据 表述 的 ， 因 此 ， 无 论 我 们 
如 何 选择 代数 表达 式 的 具体 表示 ， 只 要 设计 了 一 组 正确 的 选择 函数 和 构造 函数 ， 这 个 过 程 都 
可 以 工作 。 表 示 的 问题 是 下 面 必须 考虑 的 问题 。 


代数 表达 式 的 表示 

我 们 可 以 设想 出 许多 用 表 结 构 表示 代数 表达 式 的 方法 。 例 如 ， 可 以 利用 符号 的 表 去 直 
接 反 应 代数 的 记 法 形式 ， 将 表达 式 ax+b 表 示 为 表 (a * x 十 bp)。 然 而 , 一 种 特别 直 截 
了 当 的 选择 ， 是 采用 Lisp 里 面 表示 组 合式 的 那 种 带 插 号 的 前 级 形式 ， 也 就 是 说 ， 将 ax +b 表 
示 为 (+ (* a x) b)。 这 样 ， 我 们 有 关 求 导 问 题 的 数据 表示 就 是 : 

。 变 量 就 是 符号 ， 它 们 可 以 用 基本 谓词 symbo1? 判 断 : 

(define (variable? x) (symbol? x)) 

* 两 个 变量 相同 就 是 表示 它们 的 符号 相互 eq?: 


(define (same-variable? vl v2) 


(and (variable? v1) (variable? v2) (eq? vl v2))) 
。 和 式 与 乘 式 都 构造 为 表 ; 
(define (make-sum al a2) (list "+ al a2)) 
(define (make-product ml m2) (list ** ml m2)) 


。 和 式 就 是 第 一 个 元 素 为 符号 十 的 表 : 
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(define (sum? x) 


(and (pair? x) (eq? (car x) ‘"+))) 


“ 被 加 数 是 表示 和 式 的 表 里 的 第 二 个 元 素 : 


(define (addend s) (cadr s)) 


* 加 数 是 表示 和 式 的 表 里 的 第 三 个 元 素 : 
(define (augend s) (caddr s)) 

。 乘 式 就 是 第 一 个 元 素 为 符号 * WK: 
(define (product? x) 


(and (pair? x) (eq? (car x) **))) 
*。 被 乘 数 是 表示 乘 式 的 表 里 的 第 二 个 元 素 : 
(define (multiplier p) (cadr p)) 
*。 乘 数 是 表示 乘 式 的 表 里 的 第 三 个 元 素 : 


(define (multiplicand p) (caddr p)) 


这 样 ， 为 了 得 到 一 个 能 够 工作 的 符号 求 导 程序 ， 我 们 只 需 将 这 些 过 程 与 Qeriv 装 在 一 起 。 现 
在 让 我 们 看 几 个 表现 这 一 程序 的 行为 的 实例 : 

(deriv (+ x 3) x) 

(+ 1 0) 

(deriv "(+ x y) °x) 

(+ (* x 0) (* 1 y)) 

(deriv (+ (* x y) (+ x 3)) `r) 

(+ (* (* x y) (+ 1 0)) 

(* (+ (* x 0) (* L y)) 
(+ x 3))) 
程序 产生 出 的 这 些 结 果 是 对 的 ， 但 是 它们 没有 经 过 化 简 。 我 们 确实 有 : 
0+1.y 

当然 ， 我 们 也 可 能 希望 这 一 程序 能 够 知道 x* O=0, 1- y==y 以 及 0 十 y= 二 y。 因 此 ， 第 二 个 例子 
的 结果 就 应 该 是 简单 的 y。 正 如 上 面 的 第 三 个 例子 所 显示 的 ， 当 表达 式 变 得 更 加 复杂 时 ， 这 一 
情况 也 可 能 变 成 严重 的 问题 。 

现在 所 面临 的 困难 很 像 我 们 在 做 有 理 数 首先 时 所 遇 到 的 问题 : 希望 将 结果 化 简 到 最 简单 
的 形式 。 为 了 完成 有 理 数 的 化 简 ， 我 们 只 需要 修改 构造 函数 和 选择 函数 的 实现 。 这 里 也 可 以 
采取 同样 的 策略 。 我 们 在 这 里 也 完全 不 必修 改 aeriv， 只 需要 修改 make-sum， 使 得 当 两 个 
求 和 对 象 都 是 数 时 ，make- sum 求 出 它们 的 和 返回 。 还 有 ， 如 果 其 中 的 一 个 求 和 对 象 是 0， 那 
么 make-sum 就 直接 返回 另 一 个 对 象 。 


(define (make-sum al a2) 
(cond ((=number? al 0) a2) 
((=number? a2 0) al) 
((and (number? al) (number? a2)) (+ al a2)) 


(else (list "+ al a2)))) 
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在 这 个 实现 里 用 到 了 过 程 =number?， 它 检查 某 个 表达 式 是 否 等 于 一 个 给 定 的 数 。 
(define (=number? exp num) 


(and (number? exp) (= exp num))) 


与 此 类 似 ， 我 们 也 需要 修改 make-product， 设 法 引进 下 面 的 规则 : 0 与 任何 东西 的 乘 
积 都 是 9，1 与 任何 东西 的 乘积 总 是 那个 东西 : 


(define (make-product ml m2) 
(cond ((or (=number? ml 0) (=number? m2 0)) 0) 
((=number? ml 1) m2) 
((=number? m2 1) m1) 
((and (number? m1) (number? m2)) (* ml m2) ) 
(else (list ’* ml m2)))) 


下 面 是 这 一 新 过 程 版 本 对 前 面 三 个 例子 的 结果 : 
(deriv '(+ x 3) °x) 
dl 
(deriv "(* x y) °x) 
y 
(deriv *(* (* x y) (+ x 3)) ’x) 
(+ (* x y) (* y (+ x 3))) 


显然 情况 已 经 大 大 改观 。 但 是 ， 第 三 个 例子 还 是 说 明 ， 要 想 做 出 一 个 程序 ， 使 它 能 将 表达 式 
做 成 我 们 都 能 同意 的 “最 简单 ”形式 ， 前 面 还 有 很 长 的 路 要 走 。 代 数 化 简 是 一 个 非常 复杂 的 
问题 ， 除 了 其 他 各 种 因素 之 外 ， 还 有 另 一 个 根本 性 的 问题 : 对 于 某 种 用 途 的 最 简 形 式 ， 对 于 
另 一 用 途 可 能 就 不 是 最 简 形 式 。 

练习 2.56 ”请 说 明 如 何 扩充 基本 求 导 规则 ， 以 便 能 够 处 理 更 多 种 类 的 表达 式 。 例 如 ， 通 
过 给 程序 aeziv 增 加 一 个 新 子 句 ， 并 以 适当 方式 定义 过 程 exponentiation?、base、 
exponent 和 make-exponentiation 的 方式 ， 实 现下 述 求 导 规 则 (你 可 以 考虑 用 符号 ** 


BEAN FEE ) : 
d(u") -(%) 
=nu"'| — 
dx dx 


Ta an PUM eee BR FEA AR PROV EAA, EN AEA 

练习 2.57 ”请 扩充 求 导 程序 ， 使 之 能 处 理 任意 项 (两 项 或 者 更 多 项 ) 的 和 与 乘积 。 这 样 ， 
上 面 的 最 后 一 个 例子 就 可 以 表示 为 : 

(deriv "(x x y (+ x 3)) °x) 
设法 通过 只 修改 和 与 乘积 的 表示 ， 而 完全 不 修改 过 程 aeziv 的 方式 完成 这 一 扩充 。 例 如 ， 让 
一 个 和 式 的 addend 是 它 的 第 一 项 ， 而 其 augend 是 和 式 中 的 其 余 项 。 

练习 2.58 ”假定 我 们 希望 修改 求 导 程 序 ， 使 它 能 用 于 常规 数学 公式 ， 其 中 十 和 * 采用 的 
是 中 缀 运算 符 而 不 是 前 级 。 由 于 求 导 程 序 是 基于 抽象 数据 定义 的 ， 要 修改 它 ， 使 之 能 用 于 另 
一 种 不 同 的 表达 式 表示 ， 我 们 只 需要 换 一 套 工 作 在 新 的 、 求 导 程 序 需要 使 用 的 代数 表达 式 的 
表示 形式 上 的 谓词 、 选 择 函 数 和 构造 函数 。 

a) 请 说 明 怎 样 做 出 这 些 过 程 , 以 便 完 成 在 中 组 表示 形式 (例如 (x+ (3* (x+ (y+2))))) 
上 的 代数 表达 式 求 导 。 为 了 简化 有 关 的 工作 ， 现 在 可 以 假定 + 和 * 总 是 取 两 个 参数 ， 而 且 表 
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达 式 中 已 经 加 上 了 所 有 的 括号 。 

b) 如 果 人 允许 标准 的 代数 写法 ,例如 (x + 3* (x + y + 2))， 问 题 就 会 变 得 更 困难 
许多 。 在 这 种 表达 式 里 可 能 不 写 不 必要 的 括号 ， 并 要 假定 乘法 应 该 在 加 法 之 前 完成 。 你 还 能 为 
这 种 表示 方式 设计 好 适当 的 谓词 、 选 择 函数 和 构造 函数 ， 使 我 们 的 求 导 程 序 仍然 能 工作 吗 ? 


2.3.3 实例: 集合 的 表示 


在 前 面 的 实例 中 ， 我 们 已 经 构造 起 两 类 复合 数据 对 象 的 表示 : 有 理 数 和 代数 表达 式 。 在 
这 两 个 实例 中 ， 我 们 都 采用 了 某 一 种 选择 ， 在 构造 时 或 者 选择 成 员 时 去 简化 〈 约 简 ) 有 关 的 
表示 。 除 此 之 外 ， 选 择 用 表 的 形式 来 表示 这 些 结构 都 是 直截了当 的 。 现 在 我 们 要 转 到 集合 的 
表示 问题 ， 此 时 ， 表 示 方 式 的 选择 就 不 那么 显然 了 。 实 际 上 ， 在 这 里 存在 儿 种 选择 ， 而 且 它 
们 相互 之 间 在 几 个 方面 存在 明显 的 不 同 。 

非 形式 地 说 ， 一 个 集合 就 是 一 些 不 同 对 象 的 汇集 。 要 给 出 一 个 更 精确 的 定义 ， 我 们 可 以 
利用 数据 抽象 的 方法 ， 也 就 是 说 ， 用 一 组 可 以 作用 于 “集合 ”的 操作 来 定义 它们 。 这 些 操作 
是 union-set, intersection-set, element-of-set? 和 adjoin-set。 其 中 
element-of-set? 是 一 个 谓词 ， 用 于 确定 某 个 给 定 元 素 是 不 是 某 个 给 定 集合 的 成 员 。 
adjoin-set 以 一 个 对 象 和 一 个 集合 为 参数 ， 返 回 一 个 集合 ， 其 中 包含 了 原 集合 的 所 有 元 素 ， 
再 加 上 刚刚 加 入 进来 的 这 个 新 元 素 。union-set 计 算出 两 个 集合 的 并 集 ， 这 也 是 一 个 集合 ， 
其 中 包含 了 所 有 属于 两 个 参数 集合 之 一 的 元 素 。intersection-set 计 算出 两 个 集合 的 交 
集 ， 它 包含 着 同时 出 现在 两 个 参数 集合 中 的 那些 元 素 。 从 数据 抽象 的 观点 看 ， 我 们 在 设计 有 
关 的 表示 方面 具有 充分 的 自由 ， 只 要 在 这 种 表示 上 实现 的 上 述 操作 能 以 某 种 方式 符合 上 面 给 
CHA ARE! 


集合 作为 未 排序 的 表 
集合 的 一 种 表示 方式 是 用 其 元 素 的 表 ， 其 中 任何 元 素 的 出 现 都 不 超过 一 次 。 这 样 ， 空 集 
就 用 空 表 来 表示 。 对 于 这 种 表示 形式 ，element -of -set? 类 似 于 2.3.1 市 的 过 程 mnemq， 但 它 
应 该 用 equal? 而 不 是 eq? ， 以 保证 集合 元 素 可 以 不 是 符号 : 
(define (element-of-set? x set) 
(cond ((null? set) false) 


((equal? x (car set)) true) 
(else (element-of-set? x (cdr set))))) 


利用 它 就 能 写 出 adjoin-set。 如 果 要 加 入 的 对 象 已 经 在 相应 集合 里 ， 那 么 就 返回 那个 集 
A: 否则 就 用 cons 将 这 一 对 象 加 入 表示 集合 的 表 里 : 
(define (adjoin-set x set) 


(if (element-of-set? x set) 


3 如 果 和 希望 更 形式 化 些 ， 可 以 将 “以 某 种 方式 符合 上 面 给 出 的 解释 ”说 明 为 ， 有 关 操 作 必 须 满足 以 规则 : 
。 对 于 任何 集合 S 和 对 象 x，(element-of-set? x (adjoin-set x S)) AH ( 非 形式 地 说 ,“ 将 
一 个 对 象 加 入 某 集合 后 产生 的 集合 里 包含 着 这 个 对 象 ” ) 。 
。 对 于 任何 集合 S 和 T， 以 及 对 象 Xx,， (element-of-set? x (union-set S T)) 等 于 (or 
(element-of-set? x S) (element-of-set? x T)) ( 非 形 式 地 说 ,“(union S T) 的 元 素 
就 是 在 S 里 或 者 在 T 里 的 元 素 ) 。 
*。 对 于 任何 对 象 x，(element-of-set? x “0) Af ( 非 形式 地 说 ， 任 何 对 象 都 不 是 空 集 的 元 素 ) 。 
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set 


(cons x set))) 


实现 intezrsection-set 时 可 以 采用 递归 策略 : 如 果 我 们 已 知 如 何 做 出 set2 与 set1 的 cdr 
的 交集 ， 那 么 就 只 需要 确定 是 否 应 将 set1 的 car 包 含 到 结果 之 中 了 ， 而 这 依赖 于 (car 
set1) 是 否 也 在 set2 里 。 下 面 是 这 样 写 出 的 过 程 : 
(define (intersection-set setl set2) 
(cond ((or (null? setl) (null? set2)) *()) 
((element-of-set? (car setl) set2) 
(cons (car setl) 
(intersection-set (cdr setl) set2))) 


(else (intersection-set (cdr setl) set2)))) 

在 设计 一 种 表示 形式 时 ， 有 一 件 必须 关注 的 事情 是 效率 问题 。 为 考虑 这 一 问题 ， 就 需要 
考虑 上 面 定 义 的 各 集合 操作 所 需要 的 工作 步 数 。 因 为 它们 都 使 用 了 element-of-set?,， 这 
一 操作 的 速度 对 整个 集合 的 实现 效率 将 有 重大 影响 。 在 上 面 这 个 实现 里 ， 为 了 检查 某 个 对 象 
是 否 为 一 个 集合 的 成 员 ，element -of -set? 可 能 不 得 不 扫描 整个 集合 (最 坏 情 况 是 这 一 元 
素 恰 好 不 在 集合 里 )。 因 此 ， 如 果 集 合 有 n 个 元 素 ，element -of -set? 就 可 能 需要 n 步 才能 完 
成 。 这 样 ， 这 一 操作 所 需 的 步 数 将 以 8(n) 的 速度 增长 。adjoin-set 使 用 了 这 个 操作 ， 因 此 
它 所 需 的 步 数 也 以 8(n) 的 速度 增长 。 而 对 于 intersection-set， 它 需要 对 set1 的 每 个 元 
素 做 一 次 element -of -set? 检 查 ， 因 此 所 需 步 数 将 按 所 涉及 的 两 个 集合 的 大 小 之 乘积 增长 ， 
或 者 说 ， 在 两 个 集合 大 小 都 为 nz 时 就 是 89(02)。union-set 的 情况 也 是 如 此 。 

练习 2.59 请 为 采用 未 排序 表 的 集合 实现 定义 union-set 操 作 。 

练习 2.60 ”我 们 前 面 说 明了 如 何 将 集合 表示 为 没有 重复 元 素 的 表 。 现 在 假定 允许 重复 ， 
例如 ， 集合 {1，2，3} 可 能 被 表示 为 表 (2 3 2 1 3 2 2)。 请 为 在 这 种 表示 上 的 操作 设计 
过 程 element-of-set?、adjoin-set、union-set 和 intersection-set。 与 前 面 不 
重复 表示 里 的 相应 操作 相 比 ， 现 在 各 个 操作 的 效率 怎么 样 ? 在 什么 样 的 应 用 中 你 更 倾向 于 使 
用 这 种 表示 ， 而 不 是 前 面 那 种 无 重复 的 表示 ? 


集合 作为 排序 的 表 

加 速 集合 操作 的 一 种 方式 是 改变 表示 方式 ， 使 集合 元 素 在 表 中 按照 上 升序 排列 。 为 此 ， 
我 们 就 需要 有 某 种 方式 来 比较 两 个 元 素 ， 以 便 确 定 哪 个 元 素 更 大 一 些 。 例 如 ， 我 们 可 以 按 字 
典 序 做 符号 的 比较 ， 或 者 同意 采用 某 种 方式 为 每 个 对 象 关 联 一 个 唯一 的 数 ， 在 比较 元 素 的 时 
候 就 比较 与 之 对 应 的 数 。 为 了 简化 这 里 的 讨论 ， 我 们 将 仅仅 考虑 集合 元 素 是 数值 的 情况 ， 这 
样 就 可 以 用 > 和 < 做 元 素 的 比较 了 。 下 面 将 数 的 集合 表示 为 元 素 按 照 上 升 顺序 排列 的 表 。 在 
前 面 第 一 种 表示 方式 下 ， 集 合 {1，3，6，10} 的 元 素 在 相应 的 表 里 可 以 任意 排列 ， 而 在 现在 
的 新 表示 方式 中 ， 我 们 就 只 允许 用 表 (1 3 6 10)。 

从 操作 element -of-set? 可 以 看 到 采用 有 序 表 示 的 一 个 优势 : 为 了 检查 一 个 项 的 存在 
性 ， 现 在 就 不 必 扫描 整 个 表 了 。 如 果 检 查 中 遇 到 的 某 个 元 素 大 于 当时 要 找 的 东西 ， 那 么 就 可 
以 断定 这 个 东西 根本 不 在 表 里 : 


(define (element-of-set? x set) 


(cond ((null? set) false) 
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((= x (car set)) true) 
((< x (car set)) false) 


(else (element-of-set? x (cdr set))))) 


这 样 能 节约 多 少 步 数 呢 ? 在 最 坏 情况 下 ， 我 们 要 找 的 项 目 可 能 是 集合 中 的 最 大 元 素 ， 此 时 所 
需 步 数 与 采用 未 排序 的 表示 时 一 样 。 但 另 一 方面 ， 如 果 需 要 查找 许多 不 同 大 小 的 项 ， 我 们 总 
可 以 期 望 ， 有 些 时 候 这 一 检索 可 以 在 接近 表 开 始 处 的 某 一 点 停止 ， 也 有 些 时 候 需 要 检查 表 的 
一 大 部 分 。 平 均 而 言 ， 我 们 可 以 期 望 需要 检查 表 中 的 一 半 元 素 ， 这 样 ， 平 均 所 需 的 步 数 就 是 
大 约 n/2。 这 仍然 是 BQ(n) 的 增长 速度 ， 但 与 前 一 实现 相 比 ， 平 均 来 说 ， 现 在 我 们 节约 了 大 约 一 
EMI BR 〈 这 一 解释 并 不 合理 ， 因 为 前 面 说 未 排序 表 需 要 检查 整个 表 ， 考 虑 的 只 是 一 种 特殊 
情况 : 查找 没有 出 现在 表 里 的 元 素 。 如 果 查 找 的 是 表 里 存在 的 元 素 ， 即 使 采用 未 排序 的 表 ， 
平均 查找 长 度 也 是 表 元 素 的 一 半 。 一 一 译 者 注 )。 

操作 intersection-set 的 加 速 情况 更 使 人 印象 深刻 。 在 未 排序 的 表示 方式 里 ， 这 一 
操作 需要 O(n?) 的 步 数 ， 因 为 对 set1 的 每 个 元 素 ， 我 们 都 需要 对 set2 做 一 次 完全 的 扫描 。 对 
于 排序 表示 则 可 以 有 一 种 更 聪明 的 方法 。 我 们 在 开始 时 比较 两 个 集合 的 起 始 元 素 ， 例 如 x1 和 
x2。 如 果 x1 等 于 x2， 那 么 这 样 就 得 到 了 交集 的 一 个 元 素 ， 而 交集 的 其 他 元 素 就 是 这 两 个 集合 
的 car 的 交集 。 如 果 此 时 的 情况 是 x1 小 于 x2， 由 于 x2 是 集合 set2 的 最 小 元 素 ， 我 们 立即 可 
以 断定 x1 不 会 出 现在 集合 set2 里 的 任何 地 方 ， 因 此 它 不 应 该 在 交集 里 。 这 样 ， 两 集合 的 交集 
就 等 于 集合 set2 与 set1 的 cdr 的 交集 。 与 此 类 似 ， 如 果 x2 小 于 x1l1， 那 么 两 集合 的 交集 就 等 
于 集合 set1 与 set2 的 cdr 的 交集 。 下 面 是 按 这 种 方式 写 出 的 过 程 : 


(define (intersection-set setl set2) 


(if (or (null? set1) (null? set2)) 
KS 
(let ((X1 (car set1)) (x2 (car set2))) 
(cond ((= x1 x2) 
(cons x1 


(intersection-set (cdr setl) 
(cdr set2)))) 
(he Z1 X2) 
(intersection-set (cdr setl) set2)) 
(We 22-1) 
(intersection-set setl (cdr set2))))))) 
为 了 估计 出 这 一 过 程 所 需 的 步 数 ， 请 注意 ， 在 每 个 步骤 中 ， 我 们 都 将 求 交 集 问 题 归 结 到 更 
小 集合 的 交集 计算 问题 一 一 去 掉 了 set1 和 set2 之 一 或 者 是 两 者 的 第 一 个 元 素 。 这 样 ， 所 
需 步 数 至 多 等 于 set1 与 set2 的 大 小 之 和 ， 而 不 像 在 未 排序 表示 中 它们 的 乘积 。 这 也 就 是 
O(n) 的 增长 速度 ， 而 不 是 9(n?) 这 一 加 速 非常 明显 ， 即 使 对 中 等 大 小 的 集合 也 是 如 此 。 
练习 2.61 “请 给 en sati 通过 类 似 element -of-set? 





的 方式 说 明 ， 可 以 如 何 利 用 排序 的 优势 得 到 一 个 过 程 ， 其 平均 所 需 的 步 数 是 采用 未 排序 表示 
时 的 一 半 。 

练习 2.62 请 给 出 在 集合 的 排序 表示 上 union-set 的 一 个 Q(n) 实现 。 

集合 作为 二 叉 树 


如 果 将 集合 元 素 安排 成 一 棵 树 的 形式 ， 我 们 还 可 以 得 到 比 排序 表 表 示 更 好 的 结果 。 树 中 
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每 个 结 点 保存 集合 中 的 一 个 元 素 ， 称 为 该 结 点 的 “数据 项 ”"， 它 还 链接 到 另外 的 两 个 结 点 (可 
能 为 空 )。 其 中 “左边 ”的 链接 所 指向 的 所 有 元 素 均 小 于 本 结 点 的 元 素 ， 而 “右边 ”链接 到 的 
元 素 都 大 于 本 结 点 里 的 元 素 。 图 2-16 显 示 的 是 一 棵 表示 集合 的 树 。 同 一 个 集合 表示 为 树 可 以 
有 多 种 不 同 的 方式 ， 我 们 对 一 个 合法 表示 的 要 求 就 是 ， 位 于 左 子 树 里 的 所 有 元 素 都 小 于 本 结 
点 里 的 数据 项 ， 而 位 于 右 子 树 里 的 所 有 元 素 都 大 于 它 。 


A ÀA /\ 


1 3 9 


A\ A / 


图 2-16 RA {1, 3, 5, 7, 9, 11} 的 几 种 二 又 树 表示 


树 表示 方法 的 优点 在 于 : 假定 我 们 希望 检查 某 个 数 x 是 否 在 一 个 集合 里 ， 那 么 就 可 以 用 x 
与 树 顶 结 点 的 数据 项 相 比 较 。 如 果 x 小 于 它 ， 我 们 就 知道 现在 只 需要 搜索 左 子 树 ， 如 果 x 比 较 
大 ， 那 么 就 只 需 搜索 右 子 树 。 在 这 样 做 时 ， 如 果 该 树 是 “平衡 的 "， 也 就 是 说 ， 每 棵 子 树 大 约 
是 整个 树 的 一 半 大 ， 那 么 ， 这 样 经 过 一 步 ， 我 们 就 将 需要 搜索 规模 为 "的 树 的 问题 ， 归 约 为 搜 
索 规 模 为 a/2 的 树 的 问题 。 由 于 经 过 每 个 步 又 能 够 使 树 的 大 小 减 小 一 半 ， 我 们 可 以 期 望 搜索 规 
模 为 x 的 树 的 计算 步 数 以 8(log n) 速度 增长 ，。 在 集合 很 大 时 ， 相 对 于 原来 的 表示 ， 现 在 的 操 
作 速 度 将 明显 快 得 多 。 

我 们 可 以 用 表 来 表示 树 ， 将 结 点 表示 为 三 个 元 素 的 表 : 本 结 点 中 的 数据 项 ， 其 左 子 树 和 
右 子 树 。 以 空 表 作为 左 子 树 或 者 右 子 树 ， 就 表示 没有 子 树 连 接 在 那里 。 我 们 可 以 用 下 面 过 程 
描述 这 种 表示 '”: 


(define (entry tree) (car tree)) 
(define (left-branch tree) (cadr tree)) 
(define (right-branch tree) (caddr tree)) 


(define (make-tree entry left right) 
(list entry left right)) 


现在 ， 我 们 就 可 以 采用 上 面 描述 的 方式 实现 过 程 e:lement-of-set? 了 了 : 


(define (element-of-set? x set) 
(cond ((null? set) false) 


108 每 步 使 问题 规模 减 小 一 半 ， 这 就 是 对 数 型 增长 的 最 明显 特征 ， 就 像 我 们 在 1.2.4 节 里 的 快速 求 寡 算 法 和 1.3.3 节 
里 的 半 区 间 搜 索 算 法 中 所 看 到 的 那样 。 

我们 用 树 来 表示 集合 ， 而 树 本 身 又 用 表 表 示 一 一 从 作用 上 看 ， 这 就 是 在 一 种 数据 抽象 上 面 构造 另 一 种 数据 抽 
象 。 我 们 可 以 把 过 程 entry、left-branch、right-branch 和 make-tree 看 作 是 一 种 方法 ， 它 将 “二 
叉 树 ”抽象 隔离 于 如 何 用 表 结 构 表 示 它 的 特定 方式 之 外 。 





23 HFRE 107 





((= x (entry set)) true) 

((< x (entry set) ) 

(element-of-set? x (left-branch set) )) 
((> x (entry set) ) 

(element-of-set? x (right-branch set))))) 


向 集合 里 加 入 一 个 项 的 实现 方式 与 此 类 似 ， 也 需要 89(log n) 步 数 。 为 了 加 入 元 素 x， 我 们 
需要 将 x 与 结 点 数据 项 比较 ， 以 便 确 定 x 应 该 加 入 右 子 树 还 是 左 子 树 中 。 在 将 x 加 入 适当 的 分 
支 之 后 ， 我 们 将 新 构造 出 的 这 个 分 支 、 ao 分 支 放 到 一 起 。 如 果 x 等 于 这 个 数 
据 项 ， 那 么 就 直接 返回 这 个 结 点 。 如 果 需 要 将 x 加 入 一 个 空子 树 ， 那 么 我 们 就 生成 一 棵 树 ， 以 
x 作 为 数据 项 ， 并 让 它 具 有 空 的 左右 分 支 。 下 本 是 这 个 过程 


(define (adjoin-set x set) 
(cond ((null? set) (make-tree x *() *())) 
((= x (entry set)) set) 
((< x (entry set) ) 
(make-tree (entry set) 
(adjoin-set x (left-branch set) ) 
(right-branch set) )) 
((> x (entry set) ) 
(make-tree (entry set) 
(left-branch set) 
(adjoin-set x (right-branch set)))))) 


我 们 在 上 面 断 言 ， 搜 索 树 的 操作 可 以 在 对 数 步 数 中 完成 ， 这 实际 上 依赖 于 树 “平衡 ”的 
假设 ， 也 就 是 说 ， 每 个 树 的 左右 子 树 中 的 结 点 大  ， 
致 上 一 样 多 ， 因 此 每 棵 子 树 中 包含 的 结 点 大 约 就 hy 
是 其 父 的 一 半 。 但 是 我 们 怎么 才能 确保 构造 出 的 2 
树 是 平衡 的 呢 ? 即使 是 从 一 棵 平衡 的 树 开始 工作 ， is 
采用 adjoin-set 加 入 元 素 也 可 能 产生 出 不 平衡 
的 结果 。 因 为 新 加 入 元 素 的 位 置 依赖 于 它 与 当时 4 
已 经 在 树 中 的 那些 项 比较 的 情况 。 我 们 可 以 期 望 ， i 
如 果 “ 随 机 地 ”将 元 素 加 入 树 中 ， 平 均 而 言 将 会 5 
使 树 趋 于 平衡 。 但 在 这 里 并 设 有 任何 保证 。 例 如 ， % 5 
如 果 我 们 从 空 集 出 发 ， 顺 序 将 数值 1 至 7 加 入 其 中 ， SS 
我 们 就 会 得 到 如 图 2-17 所 示 的 高 度 不 平衡 的 树 。 7 
在 这 个 树 里 ， 所 有 的 左 子 树 都 为 空 ， 所 以 它 与 简 图 2-17 通过 顺序 加 入 1 到 7 产生 的 非 平衡 树 
单 排序 表 相 比 一 点 优势 也 没有 。 解决 这 个 问题 的 
一 种 方式 是 定义 一 个 操作 ， 它 可 以 将 任意 的 树 变换 为 一 棵 具有 同样 元 素 的 平衡 树 。 在 每 执行 
过 几 次 adqjoin-set 操 作 之 后 ， 我 们 就 可 以 通过 执行 它 来 保持 树 的 平衡 。 当 然 ， 解 决 这 一 问 
题 的 方法 还 有 许多 ， 大 部 分 这 类 方法 都 涉及 设计 一 种 新 的 数据 结构 ， 设 法 使 这 种 数据 结构 上 
的 搜索 和 插入 操作 都 能 够 在 9dog n) 步 数 内 完成 '%。 


106 这 种 结构 的 例子 如 B 树 和 红 黑 树 。 存 在 大 量 有 关 数 据 结 构 的 文献 讨论 这 一 问题 ， 参 见 Cormen, Leiserson, and 
Rivest 1990, 
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练习 2.63 下 面 两 个 过 程 都 能 将 树 变换 为 表 : 
(define (tree->list-1 tree) 
(if (null? tree) 
"() 
(append (tree->list-1 (left-branch tree) ) 
(cons (entry tree) 
(tree->list-1 (right-branch tree)))))) 


(define (tree->list-2 tree) 

(define (copy-to-list tree result-list) 
(if (null? tree) 
result-list 

(copy-to-list (left-branch tree) 

(cons (entry tree) 

(copy-to-list (right-branch tree) 
result-list))))) 


(copy-to-list tree '())) 


a) 这 两 个 过 程 对 所 有 的 树 都 产生 同样 结果 吗 ? 如 果 不 是 ， 它 们 产生 出 的 结果 有 什么 不 


E? 它们 对 图 2-16 中 的 那些 树 产 生 什么 样 的 表 ? 


b) 将 "个 结 点 的 平衡 树 变换 为 表 时 ， 这 两 个 过 程 所 需 的 步 数 具有 同样 量 级 的 增长 速度 吗 ? 


如 果 不 一 样 ， 哪 个 过 程 增 长 得 慢 一 些 ? 


练习 2.64 下面 过 程 1ist ->tree 将 一 个 有 序 表 变换 为 一 棵 平衡 二 又 树 。 其 中 的 辅助 函 
数 partial-tree 以 整数 x 和 一 个 至 少 包 含 n 个 元 素 的 表 为 参数 ， 构 造 出 一 棵 包含 这 个 表 的 前 
n 个 元 素 的 平衡 树 。 由 partial-tree 返 回 的 结果 是 一 个 序 对 (用 cons 构 造 )， 其 car 是 构造 


出 的 树 ， 其 car 是 没有 包含 在 树 中 那些 元 素 的 表 。 


(define (list->tree elements) 
(car (partial-tree elements (length elements)))) 


(define (partial-tree elts n) 


(if (= n 0) 
(cons ’() elts) 
(let ((left-size (quotient (- n 1) 2))) 


(let ((left-result (partial-tree elts left-size))) 
(let ((left-tree (car left-result) ) 
(non-left-elts (cdr left-result) ) 
(right-size (- n (+ left-size 1)))) 
(let ((this-entry (car non-left-elts) ) 


(right-result (partial-tree (cdr non-left-elts) 


right-size) )) 
(let ((right-tree (car right-result) ) 
(remaining-elts (cdr right-result) )) 


(cons (make-tree this-entry left-tree right-tree) 


remaining-elts)))))))) 


a) 请 简要 地 并 尽 可 能 清楚 地 解释 为 什么 partial-tree 能 完成 工作 。 请 画 出 将 list- 


>tree 用 于 表 (1 3 5 7 9 11) 产生 出 的 树 。 
b) 过 程 1ist ->tree 转 换 n 个 元 素 的 表 所 需 的 步 数 以 什么 量 级 增长 ? 


练习 2.65 利用 练习 2.63 和 练习 2.64 的 结果 ， 给 出 对 采用 (平衡 ) 二 又 树 方式 实现 的 集合 
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的 union-set 和 :intersection-set 操 作 的 9(z) 实现 !07 。 


集合 与 信息 检索 

我 们 考察 了 用 表 表 示 集 合 的 各 种 选择 ， 并 看 到 了 数据 对 象 表示 的 选择 可 能 如 何 深刻 地 影 
响 到 使 用 数据 的 程序 的 性 能 。 关 注 集合 的 另 一 个 原因 是 ， 这 里 所 讨论 的 技术 在 涉及 信息 检索 
的 各 种 应 用 中 将 会 一 次 又 一 次 地 出 现 。 

现在 考虑 一 个 包含 大 量 独立 记录 的 数据 库 ， 例 如 一 个 企业 中 的 人 事 文 件 ， 或 者 一 个 会 计 
系统 里 的 交易 记录 。 典 型 的 数据 管理 系统 都 需 将 大 量 时 间 用 在 访问 和 修改 所 存 的 数据 上 ， 因 
此 就 需要 访问 记录 的 高 效 方法 。 完 成 此 事 的 一 种 方式 是 将 每 个 记录 中 的 一 部 分 当 作 标 识 key 
( 键 值 )。 所 用 键 值 可 以 是 任何 能 唯一 标识 记录 的 东西 。 对 于 人 事 文件 而 言 ， 它 可 能 是 雇员 的 
ID 编码 。 对 于 会 计 系 统 而 言 ， 它 可 能 是 交易 的 编号 。 在 确定 了 采用 什么 键 值 之 后 ， 就 可 以 将 
记录 定义 为 一 种 数据 结构 ， 并 包含 key 选 择 过 程 ， 它 可 以 从 给 定 记 录 中 提取 出 有 关 的 键 值 。 

现在 就 可 以 将 这 个 数据 库 表示 为 一 个 记录 的 集合 。 为 了 根据 给 定 键 值 确定 相关 记录 的 位 
置 ， 我 们 用 一 个 过 程 1ookup， 它 以 一 个 键 值 和 一 个 数据 库 为 参数 , 返回 具有 这 个 键 值 的 记录 ， 
或 者 在 找 不 到 相应 记录 时 报告 失败 。1ookup 的 实现 方式 几乎 与 element -of-set? 一 模 一 
样 ， 如 果 记 录 的 集合 被 表示 为 未 排序 的 表 ， 我 们 就 可 以 用 : 

(define (lookup given-key set-of-records) 

(cond ((null? set-of-records) false) 
((equal? given-key (key (car set-of-records) ) ) 


(car set-of-records) ) 


(else (lookup given-key (cdr set-of-records) )))) 

不 言 而 喻 ， 还 有 比 未 排序 表 更 好 的 表示 大 集合 的 方法 。 常 常 需要 “随机 访问 ”其 中 记录 
的 信息 检索 系统 通常 用 某 种 基于 树 的 方法 实现 ， 例 如 用 前 面 讨论 过 的 二 叉 树 。 在 设计 这 种 系 
统 时 ， 数 据 抽象 的 方法 学 将 很 有 帮助 。 设 计 师 可 以 创建 某 种 简单 而 直接 的 初始 实现 ， 例 如 采 
用 未 排序 的 表 。 对 于 最 终 系统 而 言 ， 这 种 做 法 显然 并 不 合适 ， 但 采用 这 种 方式 提供 一 个 “一 
挥 而 就 ”的 数据 库 ， 对 用 于 测试 系统 的 其 他 部 分 则 可 能 很 有 帮助 。 然 后 可 以 将 数据 表示 修改 
得 更 加 精细 。 如 果 对 数据 库 的 访问 都 是 基于 抽象 的 选择 函数 和 构造 函数 ， 这 种 表示 的 改变 就 
` 会 要 求 对 系统 其 余部 分 做 任何 修改 。 

练习 2.66 ”假设 记录 的 集合 采用 二 又 树 实现 ， 按 照 其 中 作为 键 值 的 数值 排序 。 请 实现 相 
应 的 lookup 过 程 。 


2.3.4 实例: Huffman 编 码 树 


本 节 将 给 出 一 个 实际 使 用 表 结 构 和 数据 抽象 去 操作 集合 与 树 的 例子 。 这 一 应 用 是 想 确定 
一 些 用 0 和 1 (二 进 制 位 ) 的 序列 表示 数据 的 方法 。 举 例 说 ， 用 于 在 计算 机 里 表示 文本 的 
ASCII 标 准 编码 将 每 个 字符 表示 为 一 个 包含 7 个 二 进 制 位 的 序列 ， 采 用 7 个 二 进 制 位 能 够 区 分 
2 种 不 同情 况 ， 即 128 个 可 能 不 同 的 字符 。 一 般 而 言 ， 如 果 我 们 需要 区 分 "个 不 同 字符 ， 那 么 
就 需要 为 每 个 字符 使 用 log: ?个 二 进 制 位 。 假 设 我 们 的 所 有 信息 都 是 用 A、B、C、D、E、F、 
G 和 HH 这样 8 个 字符 构成 的 ， 那 么 就 可 以 选择 每 个 字符 用 3 个 二 进 制 位 ， 例 如 : 


107 练习 2.63 到 2.65 来 自 Paul Hilfinger。 
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A 000 C010 E 100 G 110 

B 001 D 011 F 101 H 111 
采用 这 种 编码 方式 ， 消 息 : 

BACADAEAFABBAAAGAH 
将 编码 为 54 个 二 进 制 位 
001000010000011000100000101000001001000000000110000111 

像 ASCII 码 和 上 面 A 到 互 编码 这 样 的 编码 方式 称 为 定 长 编码 ， 因 为 它们 采用 同样 数目 的 二 进 制 
位 表示 消息 中 的 每 一 个 字符 。 变 长 编码 方式 就 是 用 不 同 数目 的 二 进 制 位 表示 不 同 的 字符 ， 这 
种 方式 有 时 也 可 能 有 些 优势 。 举 例 说 ， 莫 尔 斯 电报 码 对 于 字母 表 中 各 个 字母 就 没有 采用 同样 
数目 的 点 和 划 ， 特 别 是 最 常见 的 字母 E 只 用 一 个 点 表示 。 一 般 而 言 ， 如 果 在 我 们 的 消息 里 ， 某 
些 符号 出 现 得 很 频繁 ， 而 另 一 些 却 很 少见 ， 那 么 如 果 为 这 些 频繁 出 现 的 字符 指定 较 短 的 码 字 ， 
我 们 就 可 能 更 有 效 地 完成 数据 的 编码 (对 于 同样 消息 使 用 更 少 的 二 进 制 位 )。 请 考虑 下 面 对 于 
字母 A 到 互 的 另 一 种 编码 : 

AO C 1010 E 1100 G 1110 

B 100 D 1011 F 1101 H 1111 

采用 这 种 编码 方式 ， 上 面 的 同样 信息 将 编码 为 如 下 的 串 : 

100010100101101100011010100100000111001111 

这 个 串 中 只 包含 42 个 二 进 制 位 ， 也 就 是 说 ， 与 上 面 定 长 编码 相 比 ， 现 在 的 这 种 方式 节约 了 超 
过 20% 的 空间 。 

采用 变 长 编码 有 一 个 困难 ， 那 就 是 在 读 0/1 序 列 的 过 程 中 确定 何 时 到 达 了 一 个 字符 的 结束 。 
莫 尔 斯 码 解决 这 一 问题 的 方式 是 在 每 个 字母 的 点 划 序 列 之 后 用 一 个 特殊 的 分 陪 符 ( 它 用 的 是 
一 个 间歇 )。 另 一 种 解决 方式 是 以 某 种 方式 设计 编码 ， 使 得 其 中 每 个 字符 的 完整 编码 都 不 是 另 
一 字符 编码 的 开始 一 段 (或 称 前 级 )。 这 样 的 编码 称 为 前 级 码 。 在 上 面 例子 里 ，A 编 码 为 0 而 B 
编码 为 100， 没 有 其 他 字符 的 编码 由 0 或 者 100 开 始 。 

一 般 而 言 ， 如 果 能 够 通过 变 长 前 级 码 去 利用 被 编码 消息 中 符号 出 现 的 相对 频 度 ， 那 么 就 
能 明显 地 节约 空间 。 完 成 这 件 事 情 的 一 种 特定 方式 称 为 Hufftman 编 码 ， 这 个 名 称 取 自 其 发 明 人 
David Huffman。 一 个 Huffman 编 码 可 以 表示 为 一 棵 二 又 树 ， 其 中 的 树叶 是 被 编码 的 符号 。 树 
中 每 个 非 叶 结 点 代表 一 个 集合 ， 其 中 包含 了 这 一 结 点 之 下 的 所 有 树叶 上 的 符号 。 除 此 之 外 ， 
位 于 树叶 的 每 个 符号 还 被 赋予 一 个 权重 (也 就 是 它 的 相对 频 度 )， 非 叶 结 点 所 包含 的 权重 是 位 
于 它 之 下 的 所 有 叶 结 点 的 权重 之 和 。 这 种 权重 在 编码 和 解码 中 并 不 使 用 。 下 面 将 会 看 到 ， 在 
构造 树 的 过 程 中 需要 它们 的 帮助 。 

图 2-18 显 示 的 是 上 面 给 出 的 A 到 HH 编码 所 对 应 的 Huffman 编 码 树 ， 树 叶 上 的 权重 表明 ， 这 
棵 树 的 设计 所 针对 的 消息 是 ， 字 母 A 具 有 相对 权重 8，B 具 有 相对 权重 3， 其 余 字母 的 相对 权重 
都 是 1。 

给 定 了 一 棵 Hufftman 树 ， 要 找 出 任 一 符号 的 编码 ， 我 们 只 需 从 树 根 开始 向 下 运动 ， 直 到 到 
达 了 保存 着 这 一 符号 的 树叶 为 止 ， 在 每 次 向 左 行 时 就 给 代码 加 上 一 个 0， 右 行 时 加 上 一 个 1。 
在 确定 向 哪 一 分 支 运动 时 ， 需 要 检查 该 分 支 是 否 包 含 着 与 这 一 符号 对 应 的 叶 结 点 ， 或 者 其 集 
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合 中 包含 着 这 个 符号 。 举 例 说 ， 从 图 2-18 中 树 的 根 开 始 ， 到 达 D 的 叶 结 点 的 方式 是 走 一 个 右 分 
支 ， 而 后 一 个 左 分 支 ， 而 后 是 右 分 支 ， 而 后 又 是 右 分 支 ， 因 此 其 代码 为 1011。 


{ABCDEFGH} 17 








{B CDEFGH}9 
A8 


{BCD}5 


{EFGH}4 





B3 


Gl H1 


图 2-18 一 棵 Huffman 编 码 树 


在 用 Huffman 树 做 一 个 序列 的 解码 时 ， 我 们 也 从 树 根 开始 ， 通 过 位 序列 中 的 0 或 1 确定 是 移 
向 左 分 支 还 是 右 分 支 。 每 当 我 们 到 达 一 个 叶 结 点 时 ， 就 生成 出 了 消息 中 的 一 个 符号 。 此 时 就 
重新 从 树 根 开始 去 确定 下 一 个 符号 。 例 如 ， 如 果 给 我 们 的 是 上 面 的 树 和 序列 10001010。 从 树 
根 开始 ， 我 们 移 向 右 分 支 (因为 串 中 第 一 个 位 是 1)， 而 后 向 左 分 支 (因为 第 二 个 位 是 0)， 而 
后 再 向 左 分 支 ( 因 为 第 三 个 位 也 是 0)。 这 时 已 经 到 达 B 的 叶 ， 所 以 被 解码 消息 中 的 第 一 个 符号 
是 B。 现 在 再 次 从 根 开始 ， 因 为 序列 中 下 一 个 位 是 90， 这 就 导致 一 次 向 左 分 支 的 移动 ， 使 我 们 
到 达 A 的 叶 。 然 后 我 们 再 次 从 根 开始 处 理 剩 下 的 串 1010， 经 过 右 左右 左 移动 后 到 达 了 C。 这 样 ， 
整个 消息 也 就 是 BAC。 

生成 Huffman 树 

给 定 了 符号 的 “字母 表 ” 和 它们 的 相对 频 度 ， 我 们 怎么 才能 构造 出 “最 好 的 ”编码 呢 ? 
换 句 话 说 ， 哪 样 的 树 能 使 消息 编码 的 位 数 达 到 最 少 ? Huffman 给 出 了 完成 这 件 事 的 一 个 算法 ， 
并 且 证 明了 ， 对 于 符号 所 出 现 的 相对 频 度 与 构造 树 的 消息 相符 的 消息 而 言 ， 这 样 产生 出 的 编 
码 确实 是 最 好 的 变 长 编码 。 我 们 并 不 打算 在 这 里 证 明 Hufftman 编 码 的 最 优 性 质 ， 但 将 展示 如 何 
去 构造 Hufftman 树 "os 。 

生成 Huffman 树 的 算法 实际 上 十 分 简单 ， 其 想法 就 是 设法 安排 这 棵 树 ， 使 得 那些 带 有 最 低 
频 度 的 符号 出 现在 离 树 根 最 远 的 地 方 。 这 一 构造 过 程 从 叶 结 点 的 集合 开始 ， 这 种 结 点 中 包含 
各 个 符号 和 它们 的 频 度 ， 这 就 是 开始 构造 编码 的 初始 数据 。 现 在 要 找 出 两 个 具有 最 低 权 重 的 
叶 ， 并 归并 它们 ， 产 生出 一 个 以 这 两 个 结 点 为 左右 分 支 的 结 点 。 新 结 点 的 权重 就 是 那 两 个 结 
点 的 权重 之 和 。 现 在 我 们 从 原来 集合 里 删除 前 面 的 两 个 叶 结 点 ， 并 用 这 一 新 结 点 代替 它们 。 


'” 有关 Huffman 编 码 的 数学 性 质 的 讨论 见 Hamming 1980, 
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随后 继续 这 一 过 程 ， 在 其 中 的 每 一 步 都 归并 两 个 具有 最 小 权重 的 结 点 ， 将 它们 从 集合 中 删除 ， 
并 用 一 个 以 这 两 个 结 点 作为 左右 分 支 的 新 结 点 取而代之 。 当 集合 中 只 剩 下 一 个 结 点 上 时， 这 一 
过 程 终止 ， 而 这 个 结 点 就 是 树 根 。 下 面 显示 的 是 图 2-18 中 的 Huftman 树 的 生成 过 程 : 


初始 树叶 {(A 8) (B 3) (C 1) (D 1) (Œ 1) (F 1) (G 1) (H 1)} 
归并 {(A 8) (B 3) {C D} 2) (Œ 1) (F 1) (G 1) (H 1)} 
归并 {(A 8) (B 3) ({C D} 2) ({E F} 2) (G 1) (H 1)} 
归并 {(A 8) (B 3) ({C D} 2) ({E F} 2) ({G H} 2)} 
归并 {(A 8) (B 3) ({C D} 2) (E F G H} 4)} 

归并 {(A 8) (B C D} 5) ({E F G H} 4)} 

归并 {(A 8) ({B CD E F G H} 9)} 

最 后 归并 {({A B C D EF G H} 17)} 


这 一 算法 并 不 总 能 描述 一 棵 唯一 的 树 ， 这 是 因为 ， 每 步 选择 出 的 最 小 权重 结 点 有 可 能 不 唯一 。 
还 有 ， 在 做 归并 时 ， 两 个 结 点 的 顺序 也 是 任意 的 ， 也 就 是 说 ， 随 便 哪 个 都 可 以 作为 左 分 支 或 
者 右 分 支 。 


Huffman 树 的 表示 
在 下 面 的 练习 中 ， 我 们 将 要 做 出 一 个 使 用 Huffman 树 完成 消息 编码 和 解码 ， 并 能 根据 上 面 
给 出 的 梗概 生成 Huffman 树 的 系统 。 开 始 还 是 讨论 这 种 树 的 表示 。 
将 一 棵 树 的 树叶 表示 为 包含 符号 leaf、 叶 中 符号 和 权重 的 表 : 
(define (make-leaf symbol weight) 
(list ’leaf symbol weight)) 
(define (leaf? object) 


(eq? (car object) *leaf)) 


(define (symbol-leaf x) (cadr x) ) 
(define (weight-leaf x) (caddr x)) 


一 棵 一 般 的 树 也 是 一 个 表 ， 其 中 包含 一 个 左 分 支 、 一 个 右 分 支 、 一 个 符号 集合 和 一 个 权重 。 
符号 集合 就 是 符号 的 表 ， 这 里 没有 用 更 复杂 的 集合 表示 。 在 归并 两 个 结 点 做 出 一 棵 树 时 ， 树 
的 权重 也 就 是 这 两 个 结 点 的 权重 之 和 ， 其 符号 集 就 是 两 个 结 点 的 符号 集 的 并 集 。 因 为 这 里 的 
符号 集 用 表 来 表示 ， 通 过 2.2.1 节 的 append 过 程 就 可 以 得 到 它们 的 并 集 : 
(define (make-code-tree left right) 
(list left 

right 

(append (symbols left) (symbols right) ) 

(+ (weight left) (weight right) ))) 


如 果 以 这 种 方式 构造 ， 我 们 就 需要 采用 下 面 的 选择 函数 : 
(define (left-branch tree) (car tree)) 
(define (right-branch tree) (cadr tree)) 
(define (symbols tree) 


(if (leaf? tree) 
(list (symbol-leaf tree) ) 
(caddr tree) )) 
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(define (weight tree) 
(if (leaf? tree) 
(weight-leaf tree) 
(cadddr tree) )) 


在 对 树叶 或 者 一 般 树 调用 过 程 symbols 和 weight 时 ， 它 们 需要 做 的 事情 有 一 点 不 同 。 这 些 
不 过 是 通用 型 过 程 ( 可 以 处 理 多 于 一 种 数据 的 过 程 ) 的 简单 实例 ， 有 关 这 方面 的 情况 ， 在 2.4 
节 和 2.5 节 将 有 很 多 讨论 。 


解码 过 程 
下 面 的 过 程 实现 解码 算法 ， 它 以 一 个 0/1 的 表 和 一 棵 Huffman 树 为 参数 : 
(define (decode bits tree) 
(define (decode-1 bits current-branch) 
(if (null? bits) 
"Y 
(let ((next-branch 
(choose-branch (car bits) current-branch))) 
(if (leaf? next-branch) 
(cons (symbol-leaf next-branch) 
(decode-1 (cdr bits) tree) ) 
(decode-1 (cdr bits) next-branch) ) ))) 
(decode-1 bits tree) ) 


(define (choose-branch bit branch) 


(cond ((= bit 0) (left-branch branch) ) 
((= bit 1) (right-branch branch) ) 
(else (error "bad bit -- CHOOSE-BRANCH" bit) ))) 


过 程 aecode-1 有 两 个 参数 ， 其 中 之 一 是 包含 二 进 制 位 的 表 ， 另 一 个 是 树 中 的 当前 位 置 。 它 
不 断 在 树 里 “向 下 ”移动 ， 根 据 表 中 下 一 个 位 是 0 或 者 1 选择 树 的 左 分 支 或 者 右 分 支 ( 这 一 工 
作 由 过 程 choose-branch 完 成 )。 一 旦 到 达 了 叶 结 点 ， 它 就 把 位 于 这 里 的 符号 作为 消息 中 的 
下 一 个 符号 ， 将 其 cons 到 对 于 消息 里 随后 部 分 的 解码 结果 之 前 。 而 后 这 一 解码 又 从 树 根 重新 
开始 。 请 注意 choose-branch 里 最 后 一 个 子 句 的 错误 检查 ， 如 果 过 程 遇 到 了 不 是 0/1 的 东西 
时 就 会 报告 错误 。 

带 权 重 元 素 的 集合 

在 树 表示 里 ， 每 个 非 叶 结 点 包含 着 一 个 符号 集合 ， 在 这 里 表示 为 一 个 简单 的 表 。 然 而 ， 
上 面 讨 论 的 树 生成 算法 要 求 我 们 也 能 对 树叶 和 树 的 集合 工作 ， 以 便 不 断 地 归并 一 对 一 对 的 最 
小 项 。 因 为 在 这 里 需要 反复 去 确定 集合 里 的 最 小 项 ， 采 用 某 种 有 序 的 集合 表示 会 比较 方便 。 

我 们 准备 将 树叶 和 树 的 集合 表示 为 一 批 元 素 的 表 ， 按 照 权 重 的 上 升 顺 序 排列 表 中 的 元 素 。 
下 面 用 于 构造 集合 的 过 程 adjoin-set 与 练习 2.61 中 描述 的 过 程 类 似 ， 但 这 里 比较 的 是 元 素 
的 权重 ， 而 且 加 入 集合 的 新 元 素 原 来 绝 不 会 出 现在 这 个 集合 里 。 


(define (adjoin-set x set) 
(cond ((null? set) (list x)) 
((< (weight x) (weight (car set))) (cons x set)) 
(else (cons (car set) 


(adjoin-set x (cdr set)))))) 
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下 面 过 程 以 一 个 符号 -权重 对 偶 的 表 为 参数 ， 例 如 ((A 4) (B 2) (C 1) (D 1))， 它 构 
造 出 树叶 的 初始 排序 集合 ， 以 便 Huffman 算 法 能 够 去 做 归并 : 


(define (make-leaf-set pairs) 
(if (null? pairs) 
A 
(let ((pair (car pairs))) 
(adjoin-set (make-leaf (car pair) ; symbol 
(cadr pair)) ; frequency 
(make-leaf-set (cdr pairs)))))) 


练习 2.67 请 定义 一 棵 编码 树 和 一 个 样 例 消息 : 


(define sample-tree 
(make-code-tree (make-leaf “A 4) 
(make-code-tree 
(make-leaf ’B 2) 
(make-code-tree (make-leaf ’D 1) 
(make-leaf °C 1))))) 


(define sample-message "(0 1 10010101 1 1 0)) 


然后 用 过 程 decode 完 成 该 消息 的 编码 ， 给 出 编码 的 结果 。 
练习 2.68 过程 e:ncode 以 一 个 消息 和 一 棵 树 为 参数 ， 产 生出 被 编码 消息 所 对 应 的 二 进 制 
位 的 表 : 
(define (encode message tree) 
(if (null? message) 
a (encode-symbol (car message) tree) 


(encode (cdr message) tree) )) ) 


其 中 的 encode-symbol1 是 需要 你 写 出 的 过 程 ， 它 能 根据 给 定 的 树 产 生出 给 定 符号 的 二 进 制 
位 表 。 你 所 设计 的 encode-symbol 在 遇 到 未 出 现在 树 中 的 符号 时 应 报告 错误 。 请 用 在 练习 
2.67 中 得 到 的 结果 检查 所 实现 的 过 程 ， 工 作 中 用 同样 一 棵 树 ， 看 看 得 到 的 结果 是 不 是 原来 那 
个 消息 。 

练习 2.69 下面 过 程 以 一 个 符号 - 频 度 对 偶 表 为 参数 (其 中 没有 任何 符号 出 现在 多 于 一 个 
对 偶 中 )， 并 根据 Huffman 算 法 生成 出 Huffman 编 码 树 。 


(define (generate-huffman-tree pairs) 


(successive-merge (make-leaf-set pairs))) 


其 中 的 make-leaf-set 是 前 面 给 出 的 过 程 ， 它 将 对 偶 表 变换 为 叶 的 有 序 集 ，successive- 
merge 是 需要 你 写 的 过 程 ， 它 使 用 make-code-tree 反 复归 并 集合 中 具有 最 小 权重 的 元 素 ， 
直至 集合 里 只 剩 下 一 个 元 素 为 止 。 这 个 元 素 就 是 我 们 所 需要 的 Hufftman 树 。( 这 一 过 程 稍微 有 
点 技巧 性 ， 但 并 不 很 复杂 。 如 果 你 正在 设计 的 过 程 变 得 很 复杂 ， 那 么 几乎 可 以 肯定 是 在 什么 
地 方 搞 错 了 。 你 应 该 尽 可 能 地 利用 有 序 集合 表示 这 一 事实 。) 

练习 2.70 “下面 带 有 相对 频 度 的 8 个 符号 的 字母 表 ， 是 为 了 有 效 编码 20 世 纪 50 年 代 的 摇滚 
歌曲 中 的 词语 而 设计 的 。( 请 注意 ,“ 字 母 表 ”中 的 “符号 ”不 必 是 单个 字母 。) 

A 2 NA 16 

BOOM 1 SHA 3 
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GET 2 YIP 9 

JOB 2 WAH 1 
请 用 (练习 2.69 的 ) generate-huffman-tree 过 程 生成 对 应 的 Hufftman 树 ， 用 (练习 2.68 
的 ) encode 过 程 编码 下 面 的 消息 : 

Get a job 

Sha na na na na na na na na 

Get a job 

Sha na na na na na na na na 

Wah yip yip yip yip yip yip yip yip yip 

Sha boom 
这 一 编码 需要 多 少 个 二 进 制 位 ? 如 果 对 这 8 个 符号 的 字母 表 采 用 定 长 编码 ， 完 成 这 个 歌曲 的 编 
码 最 少 需要 多 少 个 二 进 制 位 ? 

练习 2.71 ”假定 我 们 有 一 棵 n 个 符号 的 字母 表 的 Huffman 树 ， 其 中 各 符号 的 相对 频 度 分 别 
是 1，2，4，…，2””!。 请 对 n=5 和 n= 10 勾 勒 出 有 关 的 树 的 样子 。 对 于 这 样 的 树 (对 于 一 般 
的 n) ， 编 码 出 现 最 频繁 的 符号 用 多 少 个 二 进 制 位 ?最 不 频繁 的 符号 呢 ? 

练习 2.72 ”考虑 你 在 练习 2.68 中 设计 的 编码 过 程 。 对 于 一 个 符号 的 编码 ， 计 算 步 数 的 增长 
速率 是 什么 ?请 注意 ， 这 时 需要 把 在 每 个 结 点 中 检查 符号 表 所 需 的 步 数 包括 在 内 。 一 般 性 地 
回答 这 一 问题 是 非常 困难 的 。 现 在 考虑 一 类 特殊 情况 ， 其 中 的 n 个 符号 的 相对 频 度 如 练习 2.71 
所 描述 的 。 请 给 出 编码 最 频繁 的 符号 所 需 的 步 数 和 最 不 频繁 的 符号 所 需 的 步 数 的 增长 速度 
(作为 n 的 函数 )。 


2.4 抽象 数据 的 多 重 表 示 


我 们 已 经 介绍 过 数据 抽象 ， 这 是 一 种 构造 系统 的 方法 学 ， 采 用 这 种 方法 ， 将 使 一 个 程序 中 
的 大 部 分 描述 能 与 这 一 程序 所 操作 的 数据 对 象 的 具体 表示 的 选择 无 关 。 举 例 来 说 ， 在 2.1.1 节 
里 ， 我 们 看 到 如 何 将 一 个 使 用 有 理 数 的 程序 的 设计 与 有 理 数 的 实现 工作 相互 分 离 ， 具 体 实 现 
中 采用 的 是 计算 机 语言 所 提供 的 构造 复合 数据 的 基本 机 制 。 这 里 的 关键 性 思想 就 是 构筑 起 一 
道 抽象 屏障 一 一 对 于 上 面 情况 ， 也 就 是 有 理 数 的 选择 函数 和 构造 函数 (make-rat, numer, 
denom) 一 一 它 能 将 有 理 数 的 使 用 方式 与 其 借助 于 表 结构 的 具体 表示 形式 隔离 开 。 与 此 类 似 的 
抽象 屏障 ， 也 把 执行 有 理 数 算术 的 过 程 (add-rat, sub-rat, mul-rat 和 div-rat) 与 
使 用 有 理 数 的 “高 层 ” 过 程 隔 离开 。 这 样 做 出 的 程序 所 具有 的 结构 如 图 2-1 所 示 。 

数据 抽象 屏障 是 控制 复杂 性 的 强 有 力 工 具 。 通 过 对 数据 对 象 基础 表示 的 屏蔽 ， 我 们 就 可 
以 将 设计 一 个 大 程序 的 任务 ， 分 割 为 一 组 可 以 分 别处 理 的 较 小 任务 。 但 是 ， 这 种 类 型 的 数据 
抽象 还 不 够 强大 有 力 ， 因 为 在 这 里 说 数据 对 象 的 “基础 表示 ”并 不 一 定 总 有 意义 。 

从 一 个 角度 看 ， 对 于 一 个 数据 对 象 也 可 能 存在 多 种 有 用 的 表示 方式 ， 而 且 我 们 也 可 能 希 
望 所 设计 的 系统 能 处 理 多 种 表示 形式 。 举 一 个 简单 的 例子 ， 复 数 就 可 以 表示 为 两 种 几乎 等 价 
的 形式 : 直角 坐标 形式 ( 实 部 和 虚 部 ) 和 极 坐标 形式 ( 模 和 幅 角 )。 有 时 采用 直角 坐标 形式 更 
合适 ， 有 时 极 坐标 形式 更 方便 。 的 确 ， 我 们 完全 可 能 设想 一 个 系统 ， 其 中 的 复数 同时 采用 了 
两 种 表示 形式 ， 而 其 中 的 过 程 可 以 对 具有 任意 表示 形式 的 复数 工作 。 
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更 重要 的 是 ， 一 个 系统 的 程序 设计 和 常常 是 由 许多 人 通过 一 个 相当 长 时 期 的 工作 完成 的 ， 
系统 的 需求 也 在 随 着 时 间 而 不 断 变 化 。 在 这 样 一 种 环境 里 ， 要 求 每 个 人 都 在 数据 表示 的 选择 
上 达成 一 致 是 根本 就 不 可 能 的 事情 。 因 此 ， ee 
外 ， 我 们 还 需要 有 抽象 屏障 去 隔离 互 不 相同 的 设计 选择 ， 以 便 允 许 不 同 的 设计 选择 在 同 
程序 里 共存 。 进 一 步 说， 由 于 大 型 程序 常常 是 通过 组 合 起 一 RARER, TRÉ 
模板 又 是 独立 设计 的 ， 我 们 也 需要 一 些 方法 ， 使 程序 员 可 能 逐步 地 将 许多 模块 结合 成 一 个 大 
型 系统 ， 而 不 必 去 重新 设计 或 者 重新 实现 这 些 模块 。 

在 这 一 节 里 ， 我 们 将 学 习 如 何 去 处 理 数 据 ， 使 它们 可 能 在 一 个 程序 的 不 同 部 分 中 采用 
不 同 的 表示 方式 。 这 就 需要 我 们 去 构造 通用 型 过 程 一 一 也 就 是 那 种 可 以 在 不 止 一 种 数据 表 
示 上 操作 的 过 程 。 这 里 构造 通用 型 过 程 所 采用 的 主要 技术 ， 是 让 它们 在 带 有 类 型 标志 的 数 
据 对 象 上 工作 。 也 就 是 说 ， 让 这 些 数据 对 象 包含 着 它们 应 该 如 何 处 理 的 明确 信息 。 我 们 还 
要 讨论 数据 导向 的 程序 设计 ， 这 是 一 种 用 于 构造 采用 了 通用 型 操作 的 系统 有 力 而 且 方 便 的 
技术 。 

我 们 将 从 简单 的 复数 实例 开始 ， 看 看 如 何 采 用 类 型 标志 和 数据 导向 的 风格 ， 为 复数 分 别 
设计 出 直角 坐标 表示 和 极 坐标 表示 ， 而 又 维持 一 种 抽象 的 “复数 ”数据 对 象 的 概念 。 做 到 这 
一 点 的 方式 就 是 定义 基于 通用 型 选择 函数 定义 复数 的 算术 运算 (add-complex, sub- 
complex, mul-complexfildiv-complex), 使 这 些 选 择 函 数 能 访问 一 个 复数 的 各 个 部 分 ， 
无 论 复数 采用 的 是 什么 表示 方式 。 作 为 结果 的 复数 系统 如 图 2-19 所 示 ， 其 中 包含 两 种 不 同类 
型 的 抽象 屏障 ,“ 水 平 ”抽象 屏障 扮演 的 角色 与 图 2-1 中 的 相同 ， 它 们 将 “高 层 ” 操 作 与 “ 
层 ” 表 示 隔 离开 。 此 外 ， 还 存在 着 一 道 “垂直 ”屏障 ， 它 使 我 们 能 够 隔离 不 同 的 设计 ， 并 且 . 
还 能 够 安装 其 他 的 表示 方式 。 





使 用 复数 的 程序 
add-complex sub-complex mul-complex div-complex 
复数 算术 包 


直角 坐标 表示 极 坐标 表示 





表 结 构 和 基本 机 器 算术 
图 2-19 复数 系统 中 的 数据 抽象 屏障 
在 2.5 节 里 ， 我 们 将 说 明 如 何 利用 类 型 标志 和 数据 导向 的 风格 去 开发 一 个 通用 型 算术 包 ， 
其 中 提供 的 过 程 (add, mul) 可 以 用 于 操作 任何 种 类 的 “ 数 ”， 在 需要 另 一 类 新 的 数 时 也 


很 容易 进行 扩充 。 在 2.5.3 节 里 ， 我 们 还 要 展示 如 何在 执行 符号 代数 的 系统 里 使 用 通用 型 算术 
功能 


2.4.1 复数 的 表示 


这 里 要 开发 一 个 完成 复数 算术 运算 的 系统 ， 作 为 使 用 通用 型 操作 的 程序 的 一 个 简单 的 ， 
但 不 那么 实际 的 例子 。 开 始 时 ， 我 们 要 讨论 将 复数 表示 为 有 序 对 的 两 种 可 能 表示 方式 : 直角 
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坐标 形式 〈 实 部 和 虚 部 ) 以 及 极 坐 标 形式 ( 模 和 幅 角 ) '”。2.4.2 布 将 展示 如 何 通过 类 型 标志 
和 通用 型 操作 ， 使 这 两 种 表示 共存 于 同一 个 系统 中 。 
与 有 理 数 一 样 ， 复 数 也 可 以 很 自然 地 用 有 序 对 表示 。 我 们 可 以 将 复数 集合 设想 为 一 个 带 

有 两 个 坐标 轴 (〈“ 实 ” 轴 和 “ 虚 ” 轴 ) 的 二 维 空间 ( 见 图 2-20)。 按 照 这 一 观点 ， 复 数 z=x++iy 
(其 中 六 = 一 1) 可 看 作 这 个 平面 上 的 一 个 点 ， 其 中 的 实 坐 标 是 x 而 虚 坐 标 为 y。 在 这 种 表示 下 ， 
复数 的 加 法 就 可 以 归结 为 两 个 坐标 分 别 相 加 : 

实 部 (zi + 22) = SHB (21) + SEB (z2) 

虚 部 (zi +z) = HERDS (21) + HERDS (22) 


虚 坐 标 







° z=x+iy= re“ 


实 坐标 


x 


图 2-20 将 复数 看 作 平 面 上 的 点 


在 需要 乘 两 个 复数 时 ， 更 自然 的 考虑 是 采用 复数 的 极 坐 标 形式 ， 此 时 复数 用 一 个 模 和 一 
个 幅 角 表示 〈 图 2-20 中 的 r 和 4 ) 。 两 个 复数 的 乘积 也 是 一 个 向 量 ， 得 到 它 的 方式 是 模 相 乘 ， 幅 
角 相 加 。 

FR (21 © Z2) = FR (21) + $ (22) 
WE (zi* 22) = FA a) + WR FA e) 

可 见 ， 复 数 有 两 种 不 同 表示 方式 ， 它 们 分 别 适 合 不 同 的 运算 。 当 然 ， 从 编写 使 用 复数 的 
程序 的 开发 人 员 角 度 看 ， 数 据 抽象 原理 的 建议 是 所 有 复数 操作 都 应 该 可 以 使 用 ， 无 论 计算 机 
所 用 的 具体 表示 形式 是 什么 。 例 如 ， 我 们 也 常常 需要 取得 一 个 复数 的 模 ， 即 使 它 原本 采用 的 
是 复数 的 直角 坐标 表示 。 同 样 ， 我 们 也 常常 需要 得 到 复数 的 实 部 ， 即 使 它 实际 采用 的 是 极 坐 

在 设计 一 个 这 样 的 系统 时 ， 我 们 将 沿用 在 2.1.1 节 设计 有 理 数 包 时 所 采用 的 同样 的 数据 抽 
象 策略 ， 假 定 所 有 复数 运算 的 实现 都 基于 如 下 四 个 选择 国 数 : real-part, imag-part, 
magnitudefilangle; 还 要 假定 有 两 个 构造 复数 的 过 程 : make-from-real-imag 返 回 一 
个 采用 实 部 和 虚 部 描述 的 复数 ，make-from-mag-ang 返 回 一 个 采用 模 和 幅 角 描述 的 复数 。 
这 些 过 程 的 性 质 是 ， 对 于 任何 复数 z， 下 面 两 者 : 


(make-from-real-imag (real-part z) (imag-part 2z)) 


O 在 实际 计算 系统 里 ， 大 部 分 情况 下 人 们 都 倾向 于 采用 直角 坐标 形式 而 不 是 极 坐标 形式 ， 这 样 做 的 原因 是 在 
直角 坐标 形式 和 极 坐标 形式 之 间 转 换 的 伟人 误差 。 这 也 是 为 什么 说 这 个 复数 实例 不 实际 的 原因 。 但 无 论 如 
何 ， 这 一 实例 清晰 地 阐释 了 采用 通用 型 操作 时 的 系统 设计 ， 也 是 对 于 本 章 后 面 开 发 的 更 实际 的 系统 的 一 个 
很 好 准备 。 
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和 


(make-from-mag-ang (magnitude z) (angle 2z)) 


产生 出 的 复数 都 等 于 z。 

利用 这 些 构 造 函 数 和 选择 函数 ， 我 们 就 可 以 实现 复数 算术 了 ， 其 中 使 用 由 这 些 构造 函数 
和 选择 函数 所 刻画 的 “抽象 数据 ”， 就 像 前 面 在 2.1.1 节 中 针对 有 理 数 所 做 的 那样 。 正 如 上 面 公 
式 中 所 描述 的 ， 复 数 的 加 法 和 减法 采用 实 部 和 虚 部 的 方式 描述 ， 而 乘法 和 除法 采用 模 和 幅 角 
的 方式 描述 : 

(define (add-complex zl z2) 


(make-from-real-imag (+ (real-part z1) (real-part z2)) 


(+ (imag-part zl) (imag-part z2)))) 


(define (sub-complex z1 z2) 
(make-from-real-imag (- (real-part z1) (real-part z2)) 


(- (imag-part z1) (imag-part z2)))) 


(define (mul-complex z1 z2) 
(make-from-mag-ang (* (magnitude z1) (magnitude z2) ) 


(+ (angle z1) (angle 2z2)))) 


(define (div-complex z1 z2) 
(make-from-mag-ang (/ (magnitude z1) (magnitude z2) ) 
(- (angle z1) (angle z2)))) 


为 了 完成 这 一 复数 包 ， 我 们 必须 选择 一 种 表示 方式 ， 而 且 必 须 基 于 基本 的 数值 和 基本 表 
结构 ， 基 于 它们 实现 各 个 构造 函数 和 选择 函数 。 现 在 有 两 种 显 见 的 方式 完成 这 一 工作 : 可 以 
将 复数 按 “ 直 角 坐 标 形式 ”表示 为 一 个 有 序 对 〈 实 部 ， 虚 部 ) ， 或 者 按照 “ 极 坐标 形式 ”表示 
为 有 序 对 〈 模 ， 幅 角 )。 究 竟 应 该 选择 哪 一 种 方式 呢 ? 

为 了 将 不 同 选择 的 情况 看 得 更 清楚 些 ， 现 在 让 我 们 假定 有 两 个 程序 员 ，Ben Bitdiddle 和 
Alyssa P. Hacker， 他 们 正在 分 别 独立 地 设计 这 一 复数 系统 的 具体 表示 形式 。Ben 选 择 了 复数 的 
直角 坐标 表示 形式 ， 采 用 这 一 选择 ， 选 取 复 数 的 实 部 与 虚 部 是 直截了当 的 ， 因 为 这 种 复数 就 
是 由 实 部 和 虚 部 构成 的 。 而 为 了 得 到 模 和 幅 角 ， 或 者 需要 在 给 定 模 和 幅 角 的 情况 下 构造 复数 
时 ， 他 利用 了 下 面 的 三 角 关 系 : 

x=rcosA r= Jè +y 

y=rsinA A=arctan (y, x) 
这 些 公 式 建 立 起 实 部 和 虚 部 对 偶 (x，y) 与 模 和 幅 角 对 偶 (r, A) 之 间 的 联系 ""。Ben 在 这 种 表 
示 之 下 给 出 了 下 面 这 儿 个 选择 函数 和 构造 函数 : 

(define (real-part z) (car z)) 

(define (imag-part z) (cdr z)) 

(define (magnitude z) 

(sqrt (+ (square (real-part z)) (square (imag-part z))))) 


(define (angle z) 


NO 这 里 所 用 的 反正 切 函 数 由 Scheme 的 atan 过 程 计算 ， 其 定义 取 两 个 参数 y 和 x， 返 回 正切 是 yx 的 角度 。 参 数 的 
符号 决定 角度 所 在 的 象限 。 
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(atan (imag-part z) (real-part z))) 
(define (make-from-real-imag x y) (cons x y)) 


(define (make-from-mag-ang r a) 


(cons (* r (cos a)) (* r (sin a)))) 
而 在 另 一 边 ，Alyssa 却 选择 了 复数 的 极 坐标 形式 。 对 于 她 而 言 ， 选 取 模 和 幅 角 的 操作 直 截 
了 当 ， 但 必须 通过 三 角 关 系 去 得 到 实 部 和 虚 部 。Alyssa 的 表示 是 : 
(define (real-part z) 
(* (magnitude z) (cos (angle z)))) 
(define (imag-part z) 
(* (magnitude z) (sin (angle z)))) 
(define (magnitude z) (car z)) 
(define (angle z) (cdr z)) 
(define (make-from-real-imag x y) 


(cons (sqrt (+ (square x) (square y))) 
(atan y x))) 


(define (make-from-mag-ang r a) (cons r a)) 


数据 抽象 的 规则 保证 了 add-complex、sub-complex、mul-complex 和 div- 
complex 的 同一 套 实现 对 于 Ben 的 表示 或 者 Alyssa 的 表示 都 能 正常 工作 。 


2.4.2 带 标 志 数 据 


认识 数据 抽象 的 一 种 方式 是 将 其 看 作 “ 最 小 允诺 原则 ”的 一 个 应 用 。 在 2.4.1 市 中 实现 复 
数 系统 时 ， 我 们 可 以 采用 Ben 的 直角 坐标 表示 形式 或 者 Alyssa 的 极 坐 标 表 示 形 式 ， 由 选择 函数 
和 构造 函数 形成 的 抽象 屏障 ， 使 我 们 可 以 把 为 自己 所 用 数据 对 象 选 择 具体 表示 形式 的 事情 尽 
量 向 后 推 ， 而 且 还 能 保持 系统 设计 的 最 大 灵活 性 。 

最 小 允诺 原则 还 可 以 推进 到 更 极端 的 情况 。 如 果 我 们 需要 的 话 ， 那 么 还 可 以 在 设计 完成 选 
择 函 数 和 构造 函数 ， 并 决定 了 同时 使 用 Ben 的 表示 和 Alyssa 的 表示 之 后 ， 仍 然 维持 所 用 表示 方 
式 的 不 确定 性 。 如 果 要 在 同一 个 系统 里 包含 这 两 种 不 同 表 示 形 式 ， 那 么 就 需要 有 一 种 方式 ， 将 
极 坐 标 形式 的 数据 与 直角 坐标 形式 的 数据 区 分 开 。 否 则 的 话 ， 如 果 现 在 要 找 出 对 偶 (3, 4) 的 
magnitude, 我们 将 无 法 知道 答案 是 5 (将 数据 解释 为 直角 坐标 表示 形式 ) 还 是 3 (将 数据 解 
释 为 极 坐 标 表 示 )。 完 成 这 种 区 分 的 一 种 方式 ， 就 是 在 每 个 复数 里 包含 一 个 类 型 标志 部 分 一 一 
用 符号 rectangular 或 者 polar。 此 后 如 果 我 们 需要 操作 一 个 复数 ， 借 助 于 这 个 标志 就 可 以 
确定 应 该 使 用 的 选择 函数 了 。 

为 了 能 对 带 标志 数据 进行 各 种 操作 ， 我 们 将 假定 有 过 程 type-tag 和 contents， 它 们 
分 别 从 数据 对 象 中 提取 出 类 型 标志 和 实际 内 容 (对 于 复数 的 情况 ， 其 中 的 极 坐 标 或 者 直角 坐 
标 ) 。 还 要 假定 有 一 个 过 程 attach-tag， 它 以 一 个 标志 和 实际 内 容 为 参数 ， 生 成 出 一 个 带 标 
志 的 数据 对 象 。 实 现 这 些 的 直接 方式 就 是 采用 普通 的 表 结 构 : 

(define (attach-tag type-tag contents) 


(cons type-tag contents)) 


(define (type-tag datum) 
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(if (pair? datum) 
(car datum) 


(error "Bad tagged datum -- TYPE-TAG" datum) ) ) 


(define (contents datum) 
(if (pair? datum) 
(cdr datum) 
(error "Bad tagged datum -- CONTENTS" datum) ) ) 
利用 这 些 过 程 ， 我 们 就 可 以 定义 出 谓词 rectangular? 和 polar?， 它 们 分 别 辨识 直角 坐标 
的 和 极 坐标 的 复数 : 
(define (rectangular? z) 
(eq? (type-tag z) ‘rectangular) ) 
(define (polar? z) 
(eq? (type-tag z) ‘polar)) 
有 了 类 型 标志 之 后 ，Ben 和 Alyssa 现 在 就 可 以 修改 自己 的 代码 ， 使 他 们 的 两 种 不 同 表示 能 
够 共存 于 同一 个 系统 中 了 。 当 Ben 构 造 一 个 复数 时 ， 总 为 它 加 上 标志 ， 说 明 采 用 的 是 直角 坐 
标 ， 而 当 Alyssa 构 造 复数 时 ， 总 将 其 标志 设置 为 极 坐标 。 此 外 ，Ben 和 Alyssa 还 必须 保证 他 们 
所 用 的 过 程 名 并 不 冲突 。 保 证 这 一 点 的 一 种 方式 是 ，Ben 总 为 在 他 的 表示 上 操作 的 过 程 名 字 加 
上 后 缀 zxectangular， 而 Alyssa 为 她 的 过 程 名 加 上 后 缀 Polar。 这 里 是 Ben 根 据 2.4.1 节 修改 
后 的 直角 坐标 表示 : 
(define (real-part-rectangular z) (car z)) 


(define (imag-part-rectangular z) (cdr z)) 


(define (magnitude-rectangular z) 
(sqrt (+ (square (real-part-rectangular 2) ) 


(square (imag-part-rectangular z))))) 


(define (angle-rectangular z) 
(atan (imag-part-rectangular z) 


(real-part-rectangular z)) 


(define (make-from-real-imag-rectangular x y) 
(attach-tag ‘rectangular (cons x y))) 


(define (make-from-mag-ang-rectangular r a) 
(attach-tag rectangular 


(cons (* r (cos a)) (* r (sin a))))) 


下 面 是 修改 后 的 极 坐 标 表示 : 


(define (real-part-polar z) 
(* (magnitude-polar z) (cos (angle-polar z)))) 


(define (imag-part-polar z) 
(* (magnitude-polar z) (sin (angle-polar z)))) 


(define (magnitude-polar z) (car z)) 
(define (angle-polar z) (cdr z)) 


(define (make-from-real-imag-polar x y) 
(attach-tag ‘polar 
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(cons (sqrt (+ (square x) (square y))) 
(atan y x)))) 


(define (make-from-mag-ang-polar r a) 
(attach-tag “polar (cons r a))) 


每 个 通用 型 选择 函数 都 需要 实现 为 这 样 的 过 程 ， 它 首先 检查 参数 的 标志 ， 而 后 去 调用 处 
理 该 类 数据 的 适当 过 程 。 例 如 ， 为 了 得 到 一 个 复数 的 实 部 ，real -part 需 要 通过 检查 ,设法 
确定 是 去 使 用 Ben 的 real-part-rectangular,， 还 是 所 用 Alyssa 的 real-part-polar。 
在 这 两 种 情况 下 ， 我 们 都 用 contents 提 取出 原始 的 无 标志 数据 ， 并 将 它 送 给 所 需 的 直角 坐 
标 过 程 或 者 极 坐 标 过 程 : 

(define (real-part z) 

(cond ((rectangular? z) 
(real-part-rectangular (contents z))) 
((polar? z) 


(real-part-polar (contents z))) 
(else (error "Unknown type -- REAL-PART" z)))) 


(define (imag-part z) 
(cond ((rectangular? z) 
(imag-part-rectangular (contents z))) 
((polar? z) 
(imag-part-polar (contents z))) 
(else (error "Unknown type -- IMAG-PART" z)))) 


(define (magnitude z) 
(cond ((rectangular? z) 
(magnitude-rectangular (contents z))) 
((polar? z) 
(magnitude-polar (contents z))) 
(else (error "Unknown type -- MAGNITUDE" z)))) 


(define (angle z) 
(cond ((rectangular? z) 
(angle-rectangular (contents z))) 
((polar? z) 
(angle-polar (contents z))) 


(else (error "Unknown type -- ANGLE" z)))) 


在 实现 复数 算术 运算 时 ， 我 们 仍然 可 以 采用 取 自 2.4.1 布 的 同样 过 程 add-complex、 
sub-complex、mul-complex 和 div-complex， 因 为 它们 所 调用 的 选择 函数 现在 都 是 通 
用 型 的 ， 对 任何 表示 都 能 工作 。 例 如 ， 过 程 add-complex 仍 然 是 : 

(define (add-complex z1 z2) 

(make-from-real-imag (+ (real-part zl) (real-part 2z2)) 
(+ (imag-part 2z1) (imag-part z2)))) 

最 后 ， 我 们 还 必须 选择 是 采用 Ben 的 表示 还 是 Alyssa 的 表示 构造 复数 。 一 种 合理 选择 是 ， 
在 手头 有 实 部 和 虚 部 时 采用 直角 坐标 表示 ， 有 模 和 幅 角 时 就 采用 极 坐 标 表示 : 

(define (make-from-real-imag x y) 


(make-from-real-imag-rectangular x y)) 
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(define (make-from-mag-ang r a) 


(make-from-mag-ang-polar r a)) 

这 样 得 到 的 复数 系统 所 具有 的 结构 如 图 2-21 所 示 。 这 一 系统 已 经 分 解 为 三 个 相对 独立 的 
部 分 : 复数 算术 运算 、Alyssa 的 极 坐 标 实现 和 Ben 的 直角 坐标 实现 。 极 坐标 或 直角 坐标 的 实现 
可 以 是 Ben 和 Alyssa 独 立 工作 写 出 的 东西 ， 这 两 部 分 又 被 第 三 个 程序 员 作为 基础 表示 ， 用 于 在 
抽象 构造 函数 和 选择 函数 界面 之 上 实现 各 种 复数 算术 过 程 。 

使 用 复数 的 程序 


add-complex sub-complex mul-complex div-complex 
复数 算术 包 


real-part 






imag-part 






magnitude angle 


直角 坐标 表示 


表 结 构 和 基本 机 器 算术 
图 2-21 通用 型 复数 算术 系统 的 结构 


因为 每 个 数据 对 象 都 以 其 类 型 作为 标志 ， 选 择 函 数 就 能 够 在 不 同 的 数据 上 以 一 种 通用 的 
方式 操作 。 也 就 是 说 ， 每 个 选择 函数 的 定义 行为 依赖 于 它 操作 其 上 的 特定 的 数据 类 型 。 请 注 
意 这 里 建立 不 同 表 示 之 间 的 界面 的 一 般 性 机 制 : 在 一 种 给 定 的 表示 实现 中 〈 例 如 Alyssa 的 极 
坐标 包 ) ， 复 数 是 一 种 无 类 型 的 对 偶 〈 模 , 幅 角 ) 。 当 通用 型 选择 函数 对 一 个 polar 类 型 的 复数 
进行 操作 时 ， 它 会 刊 去 标志 并 将 相应 内 容 传递 给 Alyssa 的 代码 。 与 此 相对 应 ， 当 Alyssa 去 构造 
一 个 供 一 般 性 使 用 的 复数 时 ， 她 也 为 其 加 上 类 型 标志 ， 使 这 个 数据 对 象 可 以 为 高 层 过 程 所 识 
别 。 在 将 数据 对 象 从 一 个 层次 传 到 另 一 层次 的 过 程 中 ， 这 种 剥 去 和 加 上 标志 的 规范 方式 可 以 
成 为 一 种 重要 的 组 织 策 略 ， 正 如 我 们 将 在 2.5 市 中 看 到 的 那样 。 


2.4.3 数据 导向 的 程序 设计 和 可 加 性 


检查 一 个 数据 项 的 类 型 , 并 据 此 去 调用 某 个 适当 过 程 称 为 基于 类 型 的 分 派 。 在 系统 设计 中 ， 
这 是 一 种 获得 模块 性 的 强 有 力 策略 。 而 另 一 方面 , 像 2.4.2 节 那样 实现 的 分 派 有 两 个 显著 的 弱点 。 
第 一 个 弱点 是 ， 其 中 的 这 些 通用 型 界面 过 程 (real-part、imag-part、magnitude 和 
angle) 必须 知道 所 有 的 不 同 表 示 。 举 例 来 说 ， 假 定 现 在 希望 能 为 前 面 的 复数 系统 增加 另 一 种 
表示 ， 我 们 就 必须 将 这 一 新 表示 方式 标识 为 一 种 新 类 型 ， 而 且 要 在 每 个 通用 界面 过 程 里 增加 一 
个 子 句 ， 检 查 这 一 新 类 型 ， 并 对 这 种 表示 形式 使 用 适当 的 选择 函数 。 

这 一 技术 还 有 另 一 个 弱点 。 即 使 这 些 独 立 的 表示 形式 可 以 分 别 设计 ， 我 们 也 必须 保证 在 
整个 系统 里 不 存在 两 个 名 字 相 同 的 过 程 。 正 因为 这 一 原因 ，Ben 和 Alyssa 必 须 去 修改 原来 在 
2.4.1 节 中 给 出 的 那些 过 程 的 名 字 。 

位 于 这 两 个 弱点 之 下 的 基础 问题 是 ， 上 面 这 种 实现 通用 型 界面 的 技术 不 具有 可 加 性 。 在 
每 次 增加 一 种 新 表示 形式 时 ， 实 现 通 用 选择 函数 的 人 都 必须 修改 他 们 的 过 程 ， 而 那些 做 独立 
表示 的 界面 的 人 也 必须 修改 其 代码 ， 以 避免 名 字 冲 突 问题 。 在 做 这 些 事 情 时 ， 所 有 修改 都 必 
须 直接 对 代码 去 做 ， 而 且 必须 准确 无 误 。 这 当然 会 带 来 极 大 的 不 便 ， 而 且 还 很 容易 引进 错误 。 
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对 于 上 面 这 样 的 复数 系统 ， 这 种 修改 还 不 是 什么 大 问题 。 但 如 果 假 定 现在 需要 处 理 的 不 是 复 
数 的 两 种 表示 形式 ， 而 是 几 百 种 不 同 表 示 形 式 ， 假 定 在 抽象 数据 界面 上 有 许 许 多 多 需要 维护 
的 通用 型 选择 函数 ， 再 假定 (事实 上 ) 没有 一 个 程序 员 了 解 所 有 的 界面 过 程 和 表示 形式 ， 情 
况 又 会 怎样 呢 ? 在 例如 大 规模 的 数据 库 管 理 系统 中 ， 这 一 问题 是 现实 存在 ， 且 必须 去 面 对 的 。 

现在 我 们 需要 的 是 一 种 能 够 将 系统 设计 进一步 模块 化 的 方法 。 一 种 称 为 数据 导向 的 程序 
设计 的 编程 技术 提供 了 这 种 能 力 。 为 了 理解 数据 导向 的 程序 设计 如 何 工作 ， 我 们 首先 应 该 看 
到 ， 在 需要 处 理 的 是 针对 不 同类 型 的 一 集 公共 通用 型 操作 时 ， 事 实 上 ， 我 们 正 是 在 处 理 一 个 
二 维 表 格 ， 其 中 的 一 个 维 上 包含 着 所 有 的 可 能 操作 ， 另 一 个 维 就 是 所 有 的 可 能 类 型 。 表 格 中 
的 项 目 是 一 些 过 程 ， 它 们 针对 作为 参数 的 每 个 类 型 实现 每 一 个 操作 。 在 前 一 节 中 开发 的 复数 
系统 里 ， 操 作 名 字 、 数 据 类 型 和 实际 过 程 之 间 的 对 应 关系 散布 在 各 个 通用 界面 过 程 的 各 个 条 
件 子 句 里 ， 我 们 也 可 以 将 同样 的 信息 组 织 为 一 个 表格 ， 如 图 2-22 所 示 。 


类 型 


Rectangular 












real-part real-part-polar real-part-rectangular 


imag-part imag-part-polar imag-part-rectangular 


操作 


magnitude |magnitude-polar magnitude-rectangular 


angle angle-polar 


图 2-22 复数 系统 的 操作 表 


数据 导向 的 程序 设计 就 是 一 种 使 程序 能 直接 利用 这 种 表格 工作 的 程序 设计 技术 。 在 我 们 
前 面 的 实现 里 ， 是 采用 一 集 过 程 作为 复数 算术 与 两 个 表示 包 之 间 的 界面 ， 并 让 这 些 过 程 中 的 
每 一 个 去 做 基于 类 型 的 显 式 分 派 。 下 面 我 们 要 把 这 一 界面 实现 为 一 个 过 程 ， 由 它 用 操作 名 和 
参数 类 型 的 组 合 到 表格 中 查找 ， 以 便 找 出 应 该 调用 的 适当 过 程 ， 并 将 这 一 过 程 应 用 于 参数 的 
内 容 。 如 果 能 做 到 这 些 ， 再 把 一 种 新 的 表示 包 加 入 系统 里 ， 我 们 就 不 需要 修改 任何 现存 的 过 
程 ， 而 只 要 在 这 个 表格 里 添加 一 些 新 的 项 目 即 可 。 

为 了 实现 这 一 计划 ， 现 在 假定 有 两 个 过 程 put 和 get ， 用 于 处 理 这 种 操作 -类 型 表格 : 

* (put <op> <type> <item>) 
将 项 <item> 加 入 表格 中 ， 以 <op> 和 <type> 作 为 这 个 表 项 的 索引 。 


* (get <op> <type>) 


在 表 中 查找 与 <op> 和 <type> 对 应 的 项 ， 如 果 找 到 就 返回 找到 的 项 ， 否 则 就 返回 假 。 

从 现在 起 ， 我 们 将 假定 put 和 get 已 经 包含 在 所 用 的 语言 里 。 在 第 3 章 里 (3.3.3 节 ， 练 习 
3.24) 可 以 看 到 如 何 实现 这 些 国 数 ， 以 及 其 他 操作 表格 的 过 程 。 

下 面 我 们 要 说 明 ， 这 种 数据 导向 的 程序 设计 如 何 用 于 复数 系统 。 在 开发 了 直角 坐标 表示 
时 ，Ben 完 全 按 他 原来 所 做 的 那样 实现 了 自己 的 代码 ， 他 定义 了 一 组 过 程 或 者 说 一 个 程序 包 ， 
并 通过 向 表格 中 加 入 一 些 项 的 方式 ， 告 诉 系统 如 何 去 操 作 直 角 坐 标 形 式 表 示 的 数 ， 这 样 就 建 
立 起 了 与 系统 其 他 部 分 的 界面 。 完 成 此 事 的 方式 就 是 调用 下 面 的 过 程 : 


(define (install-rectangular-package) 


angle-rectangular 


;; internal procedures 
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(define 
(define 
(define 
(define 

(sqrt 


(define 
(atan 
(define 
(cons 


RIF 


(real-part z) (car z)) 
(imag-part z) (cdr z)) 
(make-from-real-imag x y) (cons x y)) 
(magnitude z) 
(+ (square (real-part z)) 

(square (imag-part z))))) 
(angle z) 
(imag-part z) (real-part z))) 
(make-from-mag-ang r a) 
(* r (cos a)) (* r (sin a)))) 


;; interface to the rest of the system 


(define 


(tag x) (attach-tag ’rectangular x) ) 


(put *real-part ’ (rectangular) real-part) 


(put ’imag-part ‘(rectangular) imag-part) 


(put "magnitude *(rectangular) magnitude) 


(put ’angle ’(rectangular) angle) 


(put ’make-from-real-imag ‘rectangular 


(lambda (x y) (tag (make-from-real-imag x y)))) 


(put *make-from-mag-ang ‘rectangular 


(lambda (r a) (tag (make-from-mag-ang r a)))) 


*done) 


请 注意 ， 这 里 的 所 有 内 部 过 程 ， 与 2.4.1 节 里 Ben 在 自己 独立 工作 中 写 出 的 过 程 完全 一 样 ， 
在 将 它们 与 系统 的 其 他 部 分 建立 联系 时 ， 也 不 需要 做 任何 修改 。 进 一 步 说 ， 由 于 这 些 过 程 定 
义 都 是 上 述 安 装 过 程 内 部 的 东西 ，Ben 完 全 不 必 担 心 它们 的 名 字 会 与 直角 坐标 程序 包 外 面 的 其 
他 过 程 的 名 字 相 互 冲 突 。 为 了 能 与 系统 里 的 其 他 部 分 建立 起 联系 ，Ben 将 他 的 real-part 过 
程 安装 在 操作 名 字 real -part 和 类 型 (rectangular) 之 下 ， 其 他 选择 函数 的 情况 也 都 与 
此 类 似 由 。 这 一 界面 还 定义 了 提供 给 外 部 系统 的 构造 函数 中， 它们 也 与 Ben 自 己 定义 的 构造 函 
数 一 样 ， 只 是 其 中 还 需要 完成 添加 标志 的 工作 。 

Alyssa 的 极 坐 标 包 与 此 类 似 : 


(define (install-polar-package) 


;; internal procedures 

(define (magnitude z) (car z) ) 
(define (angle z) (cdr z)) 
(define (make-from-mag-ang r a) (cons r a)) 
(define (real-part z) 

(* (magnitude z) (cos (angle z)))) 
(define (imag-part z) 

(* (magnitude z) (sin (angle z)))) 
(define (make-from-real-imag x y) 


(cons 


(sqrt (+ (square x) (square y))) 
(atan y x))) 


;; interface to the rest of the system 


(define 


(tag x) (attach-tag *polar x)) 


届 这 里 采用 的 是 表 (rectangular) 而 不 是 符号 rectangular， 以 便 能 允许 某 些 带 有 多 个 参数 ， 而 且 这 些 
参数 又 并 非 都 是 同一 类 型 的 操作 。 
M2 这 里 安装 的 构造 函数 所 用 的 类 型 不 必 是 表 ， 因 为 每 个 构造 函数 总 是 只 用 于 做 出 某 个 特定 类 型 的 对 象 。 


2.4 WERKES ERT 125 


(put 
(put 
(put 
(put 
(put 


(put 


"done) 





‘real-part ’(polar) real-part) 
"imag-part *(polar) imag-part) 
"magnitude ’(polar) magnitude) 
"angle “(polar) angle) 
*make-from-real-imag "polar 


(lambda (x y) (tag (make-from-real-imag x y)))) 


*make-from-mag-ang ‘polar 


(lambda (r a) (tag (make-from-mag-ang r a)))) 


虽然 Ben 和 Alyssa 两 个 人 仍然 使 用 着 他 们 原来 的 过 程 定义 ， 这 些 过 程 也 有 着 同样 的 名 字 


| (例如 zeal- 


patzt)， 但 对 于 其 他 过 程 而 言 ， 这 些 定义 都 是 内 部 的 〈 参 见 1.1.8 节 )， 所 以 在 这 


里 不 会 出 现 名 字 冲 突 问题 。 

复数 算术 的 选择 函数 通过 一 个 通用 的 名 为 apply-generic 的 “操作 ”过 程 访 问 有 关 表 
格 ， 这 个 过 程 将 通用 型 操作 应 用 于 一 些 参数 。apply-generic 在 表格 中 用 操作 名 和 参数 类 
型 查找 ， 如 果 找 到 ， 就 去 应 用 查找 中 得 到 的 过 程 王 : 


(define 
(let 


(apply-generic op . args) 
((type-tags (map type-tag args) )) 


(let ((proc (get op type-tags) )) 


(if proc 


利用 apP1LY- 


(define 
(define 
(define 
(define 


(apply proc (map contents args) ) 

(error 
"No method for these types -- APPLY-GENERIC" 
(list op type-tags)))))) 


generic， 各 种 通用 型 选择 函数 可 以 定义 如 下 : 
(real-part z) (apply-generic ‘real-part z)) 
(imag-part z) (apply-generic ’imag-part z)) 
(magnitude z) (apply-generic ‘magnitude z)) 
(angle z) (apply-generic ‘angle z)) 


请 注意 ， 如 果 要 将 一 个 新 表示 形式 加 入 这 个 系统 ， 上 述 这 些 都 完全 不 必修 改 。 

我 们 同样 可 以 从 表 中 提取 出 构造 函数 ， 用 到 包 之 外 的 程序 中 ， 从 实 部 和 虚 部 或 者 模 和 幅 
角 构 造 出 复数 来 。 就 像 在 2.4.2 节 中 那样 ， 当 我 们 有 的 是 实 部 和 虚 部 时 就 构造 直角 坐标 表示 的 
复数 ， 有 模 和 幅 角 时 就 构造 极 坐标 的 数 : 


(define 
((get 


(define 


( (get 


(make-from-real-imag x y) 


*make-from-real-imag ’rectangular) x y)) 


(make-from-mag-ang r a) 


*make-from-mag-ang ‘polar) r a)) 


练习 2.73 2.3.2 节 描述 了 一 个 执行 符号 求 导 的 程序 : 


(define 
(cond 


(deriv exp var) 
((number? exp) 0) 


'S apply-generic{# JH [212.20 fa MT AEM, A AN Ta Yai RE BE BT EA Tal. E 
apply-generic 里 ，op 将 取得 apply-generic 的 第 一 个 参数 的 值 ， 而 args 的 值 是 其 余 参 数 的 表 。 
apply-generic 还 使 用 了 基本 过 程 apply， 这 一 过 程 需 要 两 个 参数 、 一 个 过 程 和 一 个 表 。apply 将 应 用 这 


一 过 程 


， 用 表 的 元 素 作为 其 参数 。 例 如 (apply+ (list 1 2 3 4)) 的 结果 是 10。 
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((variable? exp) (if (same-variable? exp var) 1 0)) 
((sum? exp) 
(make-sum (deriv (addend exp) var) 
(deriv (augend exp) var) ) 
((product? exp) 
(make-sum 
(make-product (multiplier exp) 
(deriv (multiplicand exp) var) ) 
(make-product (deriv (multiplier exp) var) 
(multiplicand exp) ))) 
< 更 多 规则 可 以 加 在 这 里 > 


(else (error "unknown expression type -- DERIV" exp)))) 
可 以 认为 ， 这 个 程序 是 在 执行 一 种 基于 被 求 导 表 达 式 类 型 的 分 派 工作 。 在 这 里 ， 数 据 的 “类 
型 标志 ”就 是 代数 运算 符 〈 例 如 + ) ， 需 要 执行 的 操作 是 aeriv。 我 们 也 可 以 将 这 一 程序 变换 
到 数据 导向 的 风格 ， 将 基本 求 导 过 程 重新 写成 : 


(define (deriv exp var) 
(cond ((number? exp) 0) 


((variable? exp) (if (same-variable? exp var) 1 0)) 
(else ((get ‘deriv (operator exp)) (operands exp) 
var)))) 
(define (operator exp) (car exp) ) 


(define (operands exp) (cdr exp) ) 

a) 请 解释 上 面 究 竟 做 了 些 什么 。 为 什么 我 们 无 法 将 相近 的 谓词 humber? 和 same-variable? 
也 加 入 数据 导向 分 派 中 ? 

b) 请 写 出 针对 和 式 与 积 式 的 求 导 过 程 ， 并 把 它们 安装 到 表格 里 ， 以 便 上 面 程序 使 用 所 需 
要 的 辅助 性 代码 。 

c) 请 选择 一 些 你 希望 包括 的 求 导 规则 ， 例 如 对 乘 曙 (练习 2.56) 求 导 等 等 ， 并 将 它们 安 
装 到 这 一 数据 导向 的 系统 里 。 

d) 在 这 一 简单 的 代数 运算 器 中 ， 表 达 式 的 类 型 就 是 构造 起 它们 来 的 代数 运算 符 。 假 定 我 
们 想 以 另 一 种 相反 的 方式 做 索引 ， 使 得 aeriv 里 完成 分 派 的 代码 行 像 下 面 这 样 : 

( (get (operator exp) "deriv) (operands exp) var) 
求 导 系 统 里 还 需要 做 哪些 相应 的 改动 ? 

练习 2.74 Insatiable Enterprise 公 司 是 一 个 高 度 分 散 经 营 的 联合 公司 ， 由 大 量 分 布 在 世界 
各 地 的 分 支 机 构 组 成 。 公 司 的 计算 机 设施 已 经 通过 一 种 非常 巧妙 的 网 络 连 接 模式 连接 成 一 体 ， 
它 使 得 从 任何 一 个 用 户 的 角度 看 ， 整 个 网 络 就 像 是 一 台 计 算 机 。 在 第 一 次 试图 利用 网 络 能 力 
从 各 分 支 机 构 的 文件 中 提取 管理 信息 时 ，Insatiable 的 总 经 理 非常 诅 形 地 发 现 ， 虽 然 所 有 分 支 
机 构 的 文件 都 被 实现 为 Scheme 的 数据 结构 ， 但 是 各 分 支 机构 所 用 的 数据 结构 却 各 不 相同 。 她 
马上 召集 了 各 分 支 机 构 的 经 理会 议 ， 和 希望 寻找 一 种 策略 集成 起 这 些 文件 ， 以 便 在 维持 各 个 分 
支 机 构 中 现存 独立 工作 方式 的 同时 ， 又 能 满足 公司 总 部 管理 的 需要 。 

请 说 明 这 种 策略 可 以 如 何 通过 数据 导向 的 程序 设计 技术 实现 。 作 为 例子 ， 假 定 每 个 分 支 
机 构 的 人 事 记 录 都 存放 在 一 个 独立 文件 里 ， 其 中 包含 了 一 集 以 雇员 名 字 作 为 键 值 的 记录 。 而 
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有 关 集 合 的 结构 却 由 于 分 支 机 构 的 不 同 而 不 同 。 进 一 步 说 ， 某 个 雇员 的 记录 本 身 又 是 一 个 集 
a (各 分 支 机 构 所 用 的 结构 也 不 同 )， 其 中 所 包含 的 信息 也 在 一 些 作为 键 值 的 标识 符 之 下 ， 例 
如 address 和 salary。 特 别 是 考虑 如 下 问题 : 

a) 请 为 公司 总 部 实现 一 个 get -record 过 程 ， 使 它 能 从 一 个 特定 的 人 事 文件 里 提取 出 一 
个 特定 的 雇员 记录 。 这 一 过 程 应 该 能 应 用 于 任何 分 支 机 构 的 文件 。 请 说 明 各 个 独立 分 支 机 构 
的 文件 应 具有 怎样 的 结构 。 特 别 是 考虑 ， 它 们 必须 提供 哪些 类 型 信息 ? 

b) 请 为 公司 总 部 实现 一 个 get -salary 过 程 ， 它 能 从 任何 分 支 机 构 的 人 事 文件 中 取得 某 
个 给 定 雇 员 的 薪金 信息 。 为 了 使 这 一 操作 能 够 工作 ， 这 些 记 录 应 具有 怎样 的 结构 ? 

c) 请 为 公司 总 部 实现 一 个 过 程 find-employee-record， 该 过 程 需要 针对 一 个 特定 雇 
员 名 ， 在 所 有 分 支 机 构 的 文件 去 查找 对 应 的 记录 ， 并 返回 找到 的 记录 。 假 定 这 一 过 程 的 参数 
是 一 个 雇员 名 和 所 有 分 支 文件 的 表 。 

d) 当 Insatiable 购 并 新 公司 后 ， 要 将 新 的 人 事 文件 结合 到 系统 中 ， 必 须 做 哪些 修改 ? 


消息 传递 

在 数据 导向 的 程序 设计 里 ， 最 关键 的 想法 就 是 通过 显 式 处 理 操作 一 类 型 表格 (例如 图 2- 
22 里 的 表格 ) 的 方式 ， 管 理 程序 中 的 各 种 通用 型 操作 。 我 们 在 2.4.2 节 中 所 用 的 程序 设计 风格 ， 
是 一 种 基于 类 型 进行 分 派 的 组 织 方式 ， 其 中 让 每 个 操作 管理 自己 的 分 派 。 从 效果 上 看 ， 这 种 
方式 就 是 将 操作 一 类 型 表格 分 解 为 一 行 一 行 ， 每 个 通用 型 过 程 表示 表格 中 的 一 行 。 

另 一 种 实现 策略 是 将 这 一 表格 按 列 进行 分 解 ， 不 是 采用 一 批 “ 智 能 操作 ”去 基于 数据 类 
型 进行 分 派 ， 而 是 采用 “智能 数据 对 象 "， 让 它们 基于 操作 名 完成 所 需 的 分 派 工作 。 如 果 我 们 
想 这 样 做 ， 所 需要 做 的 就 是 做 出 一 种 安排 ， 将 每 一 个 数据 对 象 〈 例 如 一 个 采用 直角 坐标 表示 
的 复数 ) 表示 为 一 个 过 程 。 它 以 操作 的 名 字 作 为 输入 ， 能 够 去 执行 指定 的 操作 。 按 照 这 种 方 
式 ，make-from-real-imag 应 该 写成 下 面 样子 : 

(define (make-from-real-imag x y) 

(define (dispatch op) 
(cond ((eq? op ’real-part) x) 
((eq? op *imag-part) y) 
( (eq? op ’magnitude) 


(sqrt (+ (square x) (square y)))) 

( (eq? op ‘angle) (atan y x)) 

(else 

(error "Unknown op -- MAKE-FROM-REAL-IMAG" op)))) 


dispatch) 

与 之 对 应 的 apply-generic 过 程 应 该 对 其 参数 应 用 一 个 通用 型 操作 ， 此 时 它 只 需要 简单 地 
将 操作 名 馈 入 该 数据 对 象 ， 并 让 那个 对 象 去 完成 工作 ": 

(define (apply-generic op arg) (arg op)) 
请 注意 ，make-from-real-imag 返 回 的 值 是 一 个 过 程 一 一 它 内 部 的 dispatch 过 程 。 这 也 
就 是 当 apply-generic 要 求 执行 一 个 操作 时 所 调用 的 过 程 。 

这 种 风格 的 程序 设计 称 为 消息 传递 ， 这 一 名 字源 自 将 数据 对 象 设想 为 一 个 实体 ， 它 以 
“消息 ”的 方式 接收 到 所 需 操作 的 名 字 。 在 2.1.3 市 中 我 们 已 经 看 到 过 一 个 消息 传递 的 例子 ， 在 





H 这 种 组 织 方式 的 一 个 限制 是 只 允许 一 个 参数 的 通用 型 过 程 。 
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那里 看 到 的 是 如 何 用 没有 数据 对 象 而 只 有 过 程 的 方式 定义 cons 、car 和 cdr。 现 在 我 们 看 到 
的 是 ， 消 息 传递 并 不 是 一 种 数学 机 巧 ， 而 是 一 种 有 价值 的 技术 ， 可 以 用 于 组 织带 有 通用 型 操 
作 的 系统 。 在 本 章 剩 下 的 部 分 里 ， 我 们 将 要 继续 使 用 数据 导向 的 程序 设计 (而 不 是 用 消息 传 
递 )， 进 一 步 讨 论 通用 型 算术 运算 的 问题 。 在 第 3 章 里 我 们 将 会 回 到 消息 传递 ， 并 在 那里 看 到 
它 可 能 怎样 成 为 构造 模拟 程序 的 强 有 力 工具 。 

练习 2.75 请 用 消息 传递 的 风格 实现 构造 函数 make-from-mag-ang。 这 一 过 程 应 该 与 
上 面 给 出 的 make-from-real-imag 过 程 类 似 。 

练习 2.76 一 个 带 有 通用 型 操作 的 大 型 系统 可 能 不 断 演化 ， 在 演化 中 常 需要 加 入 新 的 数 
据 对 象 类 型 或 者 新 的 操作 。 对 于 上 面 提出 的 三 种 策略 一 一 带 有 显 式 分 派 的 通用 型 操作 ， 数 据 
导向 的 风格 ， 以 及 消息 传递 的 风格 一 一 请 描述 在 加 入 一 个 新 类 型 或 者 新 操作 时 ， 系 统 所 必须 
做 的 修改 。 哪 种 组 织 方式 最 适合 那些 经 常 需要 加 入 新 类 型 的 系统 ? 哪 种 组 织 方式 最 适合 那些 
经 常 需要 加 入 新 操作 的 系统 ? 


2.5 市 有 通用 型 操作 的 系统 


在 前 一 节 里 ， 我 们 看 到 了 如 何 去 设 计 一 个 系统 ， 使 其 中 的 数据 对 象 可 以 以 多 于 一 种 方式 
表示 。 这 里 的 关键 思想 就 是 通过 通用 型 界面 过 程 ， 将 描述 数据 操作 的 代码 连接 到 几 种 不 同 表 
示 上 。 现 在 我 们 将 看 到 如 何 使 用 同样 的 思想 ， 不 但 定义 出 能 够 在 不 同 表 示 上 的 通用 操作 ， 还 
能 定义 针对 不 同 参数 种 类 的 通用 型 操作 。 我 们 已 经 看 到 过 几 个 不 同 的 算术 运算 包 : 语言 内 部 
的 基本 算术 (十 ， 一 ，*，/)，2.1.1 节 的 有 理 数 算术 (add-rat, sub-rat, mul-rat, 
div-rat)， 以 及 2.4.3 节 里 实现 的 复数 算术 。 现 在 我 们 要 使 用 数据 导向 技术 构造 起 一 个 算术 
运算 包 ， 将 前 面 已 经 构造 出 的 所 有 算术 包 都 结合 进去 。 

图 2-23 展 示 了 我 们 将 要 构造 的 系统 的 结构 。 请 注意 其 中 的 各 抽象 屏障 。 从 某 些 使 用 “ 数 
值 ”的 人 的 观点 看 ， 在 这 里 只 存在 一 个 过 程 adada， 无 论 提 供给 它 的 数 是 什么 。aqd 是 通用 型 界 
面 的 一 部 分 ， 这 一 界面 将 使 那些 使 用 数 的 程序 能 以 一 种 统一 的 方式 ， 访 问 相 互 分 离 的 常规 算 
术 、 有 理 数 算术 和 复数 算术 程序 包 。 任 何 独立 的 算术 程序 包 (例如 复数 包 ) 本 身 也 可 能 通过 
通用 型 过 程 (例如 add-complex) 访问 ， 它 也 可 能 由 针对 不 同 表 示 形 式 设计 的 包 (直角 坐 


使 用 数 的 程序 


add sub mul div 








通用 型 算术 包 
add-rat sub-rat add-complex sub-complex 
mul-rat div-rat mul-complex div-complex 
有 理 数 算术 aai 常规 算术 
直角 坐标 极 坐 标 


表 结 构 和 基本 机 器 算术 
图 2-23 通用 型 算术 系统 
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标 表 示 和 极 坐 标 表 示 ) 组 合 而 成 。 进 一 步 说 ， 这 一 系统 具有 可 加 性 ， 这 样 ， 人 们 还 可 以 设计 
出 其 他 独立 的 算术 包 ， 并 将 其 组 合 到 这 一 通用 型 的 算术 系统 中 。 


2.5.1 通用 型 算术 运算 


设计 通用 型 算术 运算 的 工作 类 似 于 设计 通用 型 复数 运算 。 我 们 希望 例如) 有 一 个 通用 
型 的 加 法 过 程 adda， 对 于 常规 的 数 ， 它 的 行为 就 像 常 规 的 基本 加 法 十 ;对 于 有 理 数 ， 它 就 像 
add-rat， 对 于 复数 就 像 add-complex。 我 们 可 以 沿用 在 2.4.3 节 为 实现 复数 上 的 通用 选择 
函数 所 用 的 同样 策略 ， 去 实现 add 和 其 他 通用 算术 运算 。 下 面 将 为 每 种 数 附着 一 个 类 型 标志 ， 
以 便 通用 型 过 程 能 够 根据 其 参数 的 类 型 完 成 到 某 个 适用 的 程序 包 的 分 派 。 
通用 型 算术 过 程 的 定义 如 下 : 


(define (add x y) (apply-generic "add x y)) 
(define (sub x y) (apply-generic ‘sub x y)) 
(define (mul x y) (apply-generic ’mul x y)) 
(define (div x y) (apply-generic ’div x y)) 


下 面 我 们 将 从 安装 处 理 常 规 数 ( 即 ， 语 言 中 基本 的 数 ) 的 包 开 始 ， 对 这 种 数 采 用 的 标志 
是 符号 scheme -number。 这 个 包 里 的 算术 运算 都 是 基本 算术 过 程 (因此 不 需要 再 定义 过 程 
去 处 理 无 标志 的 数 ) 。 因 为 每 个 操作 都 有 两 个 参数 ， 所 以 用 表 (scheme-number scheme- 
number) 作为 表格 中 的 键 值 去 安装 它们 : 


(define (install-scheme-number-package) 
(define (tag x) 
(attach-tag *scheme-number x) ) 

(put ’add (scheme -nurmber scheme-number) 
(lambda (x y) (tag (+ x y)))) 

(put *sub ’(scheme-number scheme-number) 
(lambda (x y) (tag (- x y)))) 

(put ‘mul ’(scheme-number scheme-number) 
(lambda (x y) (tag (* x y)))) 

(put ‘div *(scheme-number scheme-number) 
(lambda (x y) (tag (/ x y)))) 

(put "make ’scheme-number 
(lambda (x) (tag x))) 


*done) 


Scheme 数值 包 的 用 户 可 以 通过 下 面 过 程 ， 创 建 带 标志 的 常规 数 : 


(define (make-scheme-number n) 


((get ‘make *scheme-number) n) ) 
现在 我 们 已 经 做 好 了 通用 型 算术 系统 的 框架 ， 可 以 将 新 的 数 类 型 加 入 其 中 了 。 下 面 是 一 
个 执行 有 理 数 算术 的 程序 包 。 请 注意 ， 由 于 具有 可 加 性 ， 我 们 可 以 直接 把 取 自 2.1.1 节 的 有 理 
数 代码 作为 这 个 程序 包 的 内 部 过 程 ， 完 全 不 必 做 任何 修改 : 
(define (install-rational-package) 
;; internal procedures 
(define (numer x) (car x) ) 


(define (denom x) (cdr x) ) 


(define (make-rat n d) 
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(let ((g (gcd n d))) 
(cons (/ ng) (/ @g)))) 
(define (add-rat x y) 
(make-rat (+ (* (numer x) (denom y) ) 
(* (numer y) (denom x))) 
(* (denom x) (denom y)))) 
(define (sub-rat x y) 
(make-rat (- (* (numer x) (denom y) ) 
(* (numer y) (denom x) ) ) 
(* (denom x) (denom y)))) 
(define (mul-rat x y) 
(make-rat (* (numer x) (numer y) ) 
(* (denom x) (denom y)))) 
(define (div-rat x y) 
(make-rat (* (numer x) (denom y) ) 
(* (denom x) (numer y)))) 


六 interface to rest of the system 


(define 


(tag x) (attach-tag ’rational x) ) 


(put ’add ’(rational rational) 


(lambda (x y) (tag (add-rat x y)))) 
(put ‘sub ‘(rational rational) 

(lambda (x y) (tag (sub-rat x y)))) 
(put ‘mul ’(rational rational) 

(lambda (x y) (tag (mul-rat x y)))) 
(put ‘div "(rational rational) 

(lambda (x y) (tag (div-rat x y)))) 
(put ‘make ‘rational 

(lambda (n d) (tag (make-rat n d)))) 
*done) 

(define (make-rational n d) 


( (get ’make "rational) 


n d)) 
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我 们 可 以 安装 上 另 一 个 处 理 复 数 的 类 似 程 序 包 ， 采 用 的 标志 是 complex。 在 创建 这 个 程 
序 包 时 ， 我 们 要 从 表格 里 抽取 出 操作 make-from-real-imag 和 make-from-mag-ang,， 
它们 原来 分 别 定 义 在 直角 坐标 和 极 坐 标 包 里 。 可 加 性 使 我 们 能 把 取 自 2.4.1 节 同样 的 ada- 
complex、sub-complex、mul-complex 和 div-complex 过 程 用 作 内 部 操作 。 


(define 


(install-complex-package) 


; imported procedures from rectangular and polar packages 


(define 
( (get 
(define 


((get 


(make-from-real-imag x y) 
*make-from-real-imag rectangular) x y)) 
(make-from-mag-ang r a) 


*make-from-mag-ang polar) r a)) 


;; internal procedures 


(define 


(make- 


(define 


(make - 


(add-complex z1 z2) 


from-real-imag (+ (real-part zl) (real-part z2)) 


(+ (imag-part z1) (imag-part z2)))) 
(sub-complex z1 z2) 
from-real-imag (- 


(real-part z1) (real-part z2)) 
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(- (imag-part z1) (imag-part z2)))) 
(define (mul-complex z1 z2) 
(make-from-mag-ang (* (magnitude z1) (magnitude z2)) 
(+ (angle z1) (angle z2)))) 


(define (div-complex z1 z2) 
(make-from-mag-ang (/ (magnitude z1) (magnitude z2)) 
(- (angle z1) (angle z2)))) 


;; interface to rest of the system 
(define (tag z) (attach-tag ‘complex 2) ) 
(put ‘add *(complex complex) 
(lambda (zl z2) (tag (add-complex zl 2z22)))) 
(put *sub ’ (complex complex) 
(lambda (zl z2) (tag (sub-complex z1 z2)))) 
(put ‘mul ’' (complex complex) 
(lambda (z1 z2) (tag (mul-complex z1 z2)))) 
(put ‘div *(complex complex) 
(lambda (z1 z2) (tag (div-complex z1 z2)))) 
(put "make-from-real-imag ‘complex 
(lambda (x y) (tag (make-from-real-imag x y)))) 
(put "make-from-mag-ang ‘complex 
(lambda (r a) (tag (make-from-mag-ang r a)))) 
*done) 


在 复数 包 之 外 的 程序 可 以 从 实 部 和 虚 部 出 发 构造 复数 ， 也 可 以 从 模 和 幅 角 出 发 。 请 注意 
这 里 如 何 将 原先 定义 在 直角 坐标 和 极 坐 标 包 里 的 集成 过 程 导出 ， 放 入 复数 包 中 ， 又 如 何 从 这 
里 导出 送 给 外 面 的 世界 。 


(define (make-complex-from-real-imag x y) 
( (get ’make-from-real-imag ‘complex) x y)) 
(define (make-complex-from-mag-ang r a) 
((get "make-from-mag-ang *complex) r a)) 
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的 表示 形式 如 图 2-24 所 示 。 外 层 标志 (complex) 用 于 将 这 个 数 引 导 到 复数 包 ， 一 旦 进入 复 
数 包 ， 下 一 个 标志 (rectangular) 就 会 引导 这 个 数 进 入 直角 坐标 表示 包 。 在 一 个 大 型 的 
复杂 系统 里 可 能 有 许多 层次 ， 每 层 与 下 一 层次 之 间 的 连接 都 借助 于 一 些 通用 型 操作 。 当 一 个 
数据 对 象 被 “向 下 ”传输 时 ， 用 于 引导 它 进 入 适当 程序 包 的 最 外 层 标志 被 剥 除 (通过 使 用 
contents), 下 一 层次 的 标志 (如果 有 的 话 ) 变 成 可 见 的 ， 并 将 被 用 于 下 一 次 分 派 。 


Es 
c 上 


图 2-24 直角 坐标 形式 的 3 十 4i 的 表示 
在 上 面 这 些 程序 包 里 ， 我 们 使 用 了 add-rat、add-complex 以 及 其 他 算术 过 程 ， 完 全 


按照 它们 原来 写 出 的 形式 。 一 旦 把 这 些 过 程 定义 为 不 同安 装 过 程 内 部 的 东西 ， 它 们 的 名 字 就 
没有 必要 再 相互 不 同 了 ， 可 以 在 两 个 包 中 都 简单 地 将 它们 命名 为 add、sub、mul 和 div。 
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练习 2.77 Louis Reasoner 试 着 去 求 值 (magnitude z)， 其 中 的 z 就 是 图 2-24 里 的 那个 
对 象 。 令 他 吃惊 的 是 ， 从 apply-generic 出 来 的 不 是 5 而 是 一 个 错误 信息 ， 说 没 办 法 对 类 型 
(complex) 做 操作 magnitude。 他 将 这 次 交互 的 情况 给 Alyssa P. Hacker 看 ，Alyssa 说 “ 问 
题 出 在 没有 为 complex 数 定义 复数 选择 函数 ， 而 只 是 为 polar 和 rectangular 数 定义 了 它 
们 。 你 需要 做 的 就 是 在 complex 包 里 加 入 下 面 这 些 东 西 ”: 

(put ‘real-part ‘(complex) real-part) 

(put ‘imag-part *(complex) imag-part) 

(put *magnitude ‘(complex) magnitude) 

(put ’angle '(complex) angle) 


请 详细 说 明 为 什么 这 样 做 是 可 行 的 。 作 为 一 个 例子 ， 请 考虑 表达 式 (magnitude z) 的 求 
值 过 程 ， 其 中 z 就 是 图 2-24 里 展示 的 那个 对 象 ， 请 追踪 一 下 这 一 求 值 过 程 中 的 所 有 函数 调用 。 
特别 是 看 看 apply-generic 被 调用 了 几 次 ?每 次 调用 中 分 派 的 是 哪个 过 程 ? 

练习 2.78 ” 包 scheme-number 里 的 内 部 过 程 几乎 什么 也 没 做 ， 只 不 过 是 去 调用 基本 过 
程 +、 一 等 等 。 直 接 使 用 语言 的 基本 过 程 当然 是 不 可 能 的 ， 因 为 我 们 的 类 型 标志 系统 要 求 每 
个 数据 对 象 都 附加 一 个 类 型 。 然 而 ， 事 实 上 所 有 Lisp 实 现 都 有 自己 的 类 型 系统 ， 使 用 在 系统 
实现 的 内 部 ， 基 本 谓词 symbo1? 和 numbezr? 等 用 于 确定 某 个 数据 对 象 是 否 具 有 特定 的 类 型 。 
请 修改 2.4.2 节 中 type-tag、contents 和 attach-tag 的 定义 ， 使 我 们 的 通用 算术 系统 可 
以 利用 Scheme 的 内 部 类 型 系统 。 这 也 就 是 说 ， 修 改 后 的 系统 应 该 像 原 来 一 样 工 作 ， 除 了 其 中 
常规 的 数 直接 采用 Scheme 的 数 形式 ， 而 不 是 表示 为 一 个 cazr 部 分 是 符号 scheme -numbet 的 
序 对 。 

练习 2.79 ”请 定义 一 个 通用 型 相等 谓词 equ? ， 它 能 检查 两 个 数 是 否 相 等 。 请 将 它 安装 到 
通用 算术 包 里 。 这 一 操作 应 该 能 处 理 常规 的 数 、 有 理 数 和 复数 。 

练习 2.80 ”请 定义 一 个 通用 谓词 = zero? ， 检 查 其 参数 是 否 为 0， 并 将 它 安装 到 通用 算术 
包 里 。 这 一 操作 应 该 能 处 理 常 规 的 数 、 有 理 数 和 复数 。 


2.5.2 不 同类 型 数据 的 组 合 


前 面 已 经 看 到 了 如 何 定义 出 一 个 统一 的 算术 系统 ， 其 中 包含 常规 的 数 、 复 数 和 有 理 数 ， 
以 及 我 们 希望 发 明 的 任何 其 他 数值 类 型 。 但 在 那里 也 忽略 了 一 个 重要 的 问题 。 我 们 至 今 定义 
的 所 有 运算 ， 都 把 不 同 数 据 类 型 看 作 相互 完全 分 离 的 东西 ， 也 就 是 说 ， 这 里 有 儿 个 完全 分 离 
的 程序 包 ， 它 们 分 别 完成 两 个 常规 的 数 ， 或 者 两 个 复数 的 加 法 。 我 们 至 今 还 没有 考虑 的 问题 
是 下 面 事实 : 定义 出 能 够 跨 过 类 型 界限 的 操作 也 很 有 意义 ， 和 辟 如 完成 一 个 复数 和 一 个 常规 数 
的 加 法 。 在 前 面 ， 我 们 一 直 繁 费 苦心 地 在 程序 的 各 个 部 分 之 间 引 进 了 屏障 ， 以 使 它们 能 够 分 
别 开 发 和 分 别 理解 。 现 在 却 又 要 引进 跨 类 型 的 操作 。 当 然 ， 我 们 必须 以 一 种 经 过 精心 考虑 的 
可 控 方式 去 做 这 件 事 情 ， 以 使 我 们 在 支持 这 种 操作 的 同时 又 没有 严重 地 损害 模块 间 的 分 界 。 

处 理 跨 类 型 操作 的 一 种 方式 ， 就 是 为 每 一 种 类 型 组 合 的 合法 运算 设计 一 个 特定 过 程 。 例 
如 ， 我 们 可 以 扩充 复数 包 ， 使 它 能 提供 一 个 过 程 用 于 加 起 一 个 复数 和 一 个 常规 的 数 ， 并 用 标 
志 (complex scheme-number) 将 它 安装 到 表格 里 心 : 


5; to be included in the complex package 


45 我 们 还 需要 另 一 个 几乎 相同 的 过 程 去 处 理 类 型 (scheme -number complex), 
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(define (add-complex-to-schemenum z x) 
(make-from-real-imag (+ (real-part z) x) 


(imag-part z))) 


(put ‘add *(complex scheme-number) 


(lambda (z x) (tag (add-complex-to-schemenum z x)))) 

一 技术 确实 可 以 用 ， 但 也 非常 麻烦 。 对 于 这 样 的 一 个 系统 ， 引 进 一 个 新 类 型 的 代价 就 
不 仅仅 需要 构造 出 针对 这 一 类 型 的 所 有 过 程 的 包 ， 还 需要 构造 并 安装 好 所 有 实现 跨 类 型 操作 
的 过 程 。 后 一 件 事 所 需要 的 代码 很 容易 就 会 超过 定义 类 型 本 身 所 需 的 那些 操作 。 这 种 方法 也 
损害 了 以 添加 方式 组 合 独 立 开 发 的 程序 包 的 能 力 ， 至 少 给 独立 程序 包 的 实现 者 增加 了 一 些 限 
制 ， 要 求 他 们 在 对 独立 程序 包工 作 时 ， 必 须 同 时 关注 其 他 的 程序 包 。 比 如 ， 在 上 面 例子 里 ， 
如 果 要 处 理 复 数 和 常规 数 的 混合 运算 ， 将 其 看 作 复 数 包 的 责任 是 合理 的 。 然 而 ， 有 关 有 理 数 
和 复数 的 组 合 工作 却 存在 许多 选择 ， 完 全 可 以 由 复数 包 、 有 理 数 包 ， 或 者 由 另外 的 ， 使 用 了 
从 前 面 两 个 包 中 取出 的 操作 的 第 三 个 包 完 成 。 在 设计 包含 许多 程序 包 和 许多 跨 类 型 操作 的 系 
统 时 ， 要 想 规划 好 一 套 统一 的 策略 ， 分 清 各 种 包 之 间 的 责任 ， 很 容易 变 成 非常 复杂 的 任务 。 

强制 

最 一 般 的 情况 是 需要 处 理 针对 一 批 完全 无 关 的 类 型 的 一 批 完全 无 关 的 操作 ， 直 接 实现 跨 
类 型 操作 很 可 能 就 是 解决 问题 的 最 好 方式 了， 当然 ， 这 样 做 起 来 确实 比较 麻烦 。 幸 运 的 是 ， 
我 们 常常 可 以 利用 潜藏 在 类 型 系统 之 中 的 一 些 额外 结构 ， 将 事情 做 得 更 好 些 。 不 同 的 数据 类 
型 通常 都 不 是 完全 相互 无 关 的 ， 和 常常 存 在 一 些 方式 ， 使 我 们 可 以 把 一 种 类 型 的 对 象 看 作 另 一 
种 类 型 的 对 象 。 这 种 过 程 就 称 为 强制 。 举 例 来 说 ， 如 果 现 在 需要 做 常规 数值 与 复数 的 混合 算 
AR, 我 们 就 可 以 将 常规 数值 看 成 是 虚 部 为 0 的 复数 。 这 样 就 把 问题 转换 为 两 个 复数 的 运算 问题 ， 
可 以 由 复数 包 以 正常 的 方式 处 理 了 。 

一 般 而 言 ， 要 实现 这 一 想法 ， 我 们 可 以 设计 出 一 些 强 制 过 程 ， 它 们 能 把 一 个 类 型 的 对 象 
转换 到 另 一 类 型 的 等 价 对 象 。 下 面 是 一 个 典型 的 强制 过 程 ， 它 将 给 定 的 常规 数值 转换 为 一 个 
复数 ， 其 中 的 实 部 为 原来 的 数 而 虚 部 是 0: 


(define (scheme-number->complex n) 


(make-complex-from-real-imag (contents n) 0)) 


我 们 将 这 些 强制 过 程 安装 到 一 个 特殊 的 强制 表格 中 ， 用 两 个 类 型 的 名 字 作为 索引 : 


(put-coercion ’scheme-number ‘complex scheme-number->complex) 


pea heen acer nig tie coercion 和 get-coercion 过 程 。) 一 般 而 
言 ， 这 一 表格 里 的 某 些 格子 将 是 空 的 ， 因 为 将 任何 数据 对 象 转换 到 另 一 个 类 型 并 不 是 都 能 做 
et etl et ee og 
般 性 的 complex->scheme-number 过 程 。 

一 旦 将 上 述 转 换 表格 装配 好 ， 我 们 就 可 以 修改 2.4.3 节 的 apply-generic 过 程 ， 得 到 一 
种 处 理 强 制 的 统一 方法 。 在 要 求 应 用 一 个 操作 时 ， 我们 将 首先 检查 是 否 存在 针对 实际 参数 类 
型 的 操作 定义 ， 就 像 前 面 一 样 。 如 果 存 在 ， 那 么 就 将 任务 分 派 到 由 操作 一 类 型 表格 中 找 出 的 
相应 过 程 去 ， 否 则 就 去 做 强制 。 为 了 简化 讨论 ， 这 里 只 考虑 两 个 参数 的 情况 "5*。 我 们 检查 强 


"6 有 关 推 广 见 练习 2.82。 
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制 表格 ， 查 看 其 中 第 一 个 参数 类 型 的 对 象 能 否 转换 到 第 二 个 参数 的 类 型 。 如 果 可 以 ， 那 就 对 
第 一 个 参数 做 强制 后 再 试验 操作 。 如 果 第 一 个 参数 类 型 的 对 象 不 能 强制 到 第 二 个 类 型 ， 那 么 
就 试验 另 一 种 方式 ， 看 看 能 否 从 第 二 个 参数 的 类 型 转换 到 第 一 个 参数 的 类 型 。 最 后 ， 如 果 不 
存在 从 一 个 类 型 到 另 一 类 型 的 强制 ， 那 么 就 只 能 放弃 了 。 下 面 是 这 个 过 程 : 
(define (apply-generic op . args) 
(let ((type-tags (map type-tag args) ) ) 
(let ((proc (get op type-tags) )) 
(if proc 
(apply proc (map contents args) ) 
(if (= (length args) 2) 
(let ((typel (car type-tags) ) 
(type2 (cadr type-tags) ) 
(al (car args) ) 
(a2 (cadr args) ) 
(let ((t1l->t2 (get-coercion typel type2) ) 
(t2->tl (get-coercion type2 typel) )) 
(cond (ti-st2 
(apply-generic op (tl->t2 al) a2)) 
(七 2 - > 上 t 工 
(apply-generic op al (t2->tl a2))) 
(else 
(error "No method for these types" 
(list op type-tags)))))) 
(error "No method for these types" 
(list op type-tags))))))) 


与 显 式 定 义 的 跨 类 型 操作 相 比 ， 这 种 强制 模式 有 许多 优越 性 。 就 像 在 上 面 已 经 说 过 的 。 
虽然 我 们 仍然 需要 写 出 一 些 与 各 种 类 型 有 关 的 强制 过 程 (对 于 n 个 类 型 的 系统 可 能 需要 个 过 
FE), 但 是 却 只 需要 为 每 一 对 类 型 写 一 个 过 程 ， 而 不 是 为 每 对 类 型 和 每 个 通用 型 操作 写 一 个 过 
程 "。 能 够 这 样 做 的 基础 就 是 ， 类 型 之 间 的 适当 转换 只 依赖 于 类 型 本 身 ， 而 不 依赖 于 所 实际 
应 用 的 操作 。 

另 一 方面 ， 也 可 能 存在 一 些 应 用 ， 对 于 它们 而 言 我 们 的 强制 模式 还 不 足够 一 般 。 即 使 需 
要 运算 的 两 种 类 型 的 对 象 都 不 能 转换 到 另 一 种 类 型 ， 也 完全 可 能 在 将 这 两 种 类 型 的 对 象 都 转 
换 到 第 三 种 类 型 后 执行 这 一 运算 。 为 了 处 理 这 种 复杂 性 ， 同 时 又 能 维持 我 们 系统 的 模块 性 ， 
通常 就 需要 在 建立 系统 时 利用 类 型 之 间 的 进一步 结构 ， 有 关 情 况 见 下 面 的 讨论 。 

类 型 的 层次 结构 

上 面 给 出 的 强制 模式 ， 依 赖 于 一 对 对 类 型 之 间 存 在 着 某 种 自然 的 关系 。 在 实际 中 ， 还 常 
常 存在 着 不 同类 型 间 相 互 关 系 的 更 “全 局 性 ”的 结构 。 例 如 ， 假 定 我 们 想 要 构造 出 一 个 通用 
型 的 算术 系统 ， 处 理 整数 、 有 理 数 、 实 数 、 复 数 。 在 这 样 的 一 个 系统 里 ， 一 种 很 自然 的 做 法 
是 把 整数 看 作 是 一 类 特殊 的 有 理 数 ， 而 有 理 数 又 是 一 类 特殊 的 实数 ， 实 数 转 而 又 是 一 类 特殊 


如 果 做 得 更 聪明 些 ， 常 常 不 需要 写 出 天 那么 多 个 强制 过 程 。 例 如 ， 如 果 知 道 如 何 从 类 型 1 转换 到 类 型 2， 以 及 
如 何 从 类 型 2 转换 到 类 型 3， 那 么 也 就 可 以 利用 这 些 知 识 从 类 型 1 转换 到 类 型 3。 这 将 大 大 减少 在 向 系统 中 加 入 
新 类 型 时 需要 显 式 提供 的 转换 过 程 的 个 数 。 如 果真 的 希望 ， 也 完全 可 以 将 这 种 复杂 方式 做 到 系统 里 ， 让 系统 
去 查找 类 型 之 间 的 关系 “图 "， 而 后 自动 地 通过 显 式 提供 的 强制 过 程 ， 生 成 其 他 能 够 推导 出 的 强制 过 程 。 
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的 复数 。 这 样 ， 我 们 实际 有 的 就 是 一 个 所 谓 的 类 型 的 层次 结构 ， 在 复数 

其 中 ，( 例 如 ) 整数 是 有 理 数 的 子 关 型 (也 就 是 说 ， 任 何 可 以 应 用 à 

于 有 理 数 的 操作 都 可 以 应 用 于 整数 ) 。 与 此 相对 应 ， 人 们 也 说 有 理 ie 

数 形成 了 整数 的 一 个 起 类 型 。 在 这 个 例子 里 所 看 到 的 类 型 层次 结构 

是 最 简单 的 一 种 ， 其 中 一 个 类 型 只 有 至 多 一 个 超 类 型 和 至 多 一 个 子 

类 型 。 这 样 的 结构 称 为 一 个 类 型 塔 ， 如 图 2-25 所 示 。 有 理 数 
如 果 我 们 面 对 的 是 一 个 塔 结构 ， 那 么 将 一 个 新 类 型 加 入 层次 结 t 


构 的 问题 就 可 能 极 大 地 简化 了 ， 因 为 需要 做 的 所 有 事情 ， 也 就 是 刻 

画 清 楚 这 一 新 类 型 将 如 何 柑 入 正好 位 于 它 之 上 的 超 类 型 ， 以 及 它 如 

何 作为 下 面 一 个 类 型 的 超 类 型 。 举 例 说 ， 如 果 我 们 希望 做 一 个 整数 。 图 2-25 一 个 类 型 增 
和 一 个 复数 的 加 法 ， 那 么 并 不 需要 明确 定义 一 个 特殊 强制 函数 integer->complex。 相 反 ， 
我 们 可 以 定义 如 何 将 整数 转换 到 有 理 数 ， 如 何 将 有 理 数 转换 到 实数 ， 以 及 如 何 将 实数 转换 到 
复数 。 而 后 让 系统 通过 这 些 步骤 将 该 整数 转换 到 复数 ， 在 此 之 后 再 做 两 个 复数 的 加 法 。 

我 们 可 以 按照 下 面 的 方式 重新 设计 那个 apply-generic 过 程 。 对 于 每 个 类 型 ， 都 需要 
提供 一 个 raise 过 程 ， 它 将 这 一 类 型 的 对 象 “提升 ”到 塔 中 更 高 一 层 的 类 型 。 此 后 ， 当 系统 
遇 到 需要 对 两 个 不 同类 型 的 运算 时 ， 它 就 可 以 逐步 提升 较 低 的 类 型 ， 直 至 所 有 对 象 都 达到 了 
塔 的 同一 个 层次 〈 练 习 2.83 和 练习 2.84 关 注 的 就 是 实现 这 种 策略 的 一 些 细节 )。 

类 型 塔 的 另 一 优点 ， 在 于 使 我 们 很 容易 实现 一 种 概念 : 每 个 类 型 能 够 “继承 ”其 超 类 型 
中 定义 的 所 有 操作 。 举 例 说 ， 如 果 我 们 没有 为 找 出 整数 的 实 部 提供 一 个 特定 过 程 ， 但 也 完全 
可 能 期 望 real -part 过 程 对 整数 有 定义 ， 因 为 事实 上 整数 是 复数 的 一 个 子 类 型 。 对 于 类 型 塔 
的 情况 ， 我 们 可 以 通过 修改 apply-generic 过 程 ， 以 一 种 统一 的 方式 安排 好 这 些 事情 。 如 
果 所 需 操作 在 给 定 对 象 的 类 型 中 没有 明确 定义 ， 那 么 就 将 这 个 对 象 提升 到 它 的 超 类 型 并 再 次 
检查 。 在 向 塔 顶 攀登 的 过 程 中 ， 我 们 也 不 断 转 换 有 关 的 参数 ， 直 至 在 某 个 层次 上 找到 了 所 需 
的 操作 而 后 去 执行 它 ， 或 者 已 经 到 达 了 塔 顶 (此 时 就 只 能 放弃 了 ) 。 

与 其 他 层次 结构 相 比 ， 塔 形 结构 的 另 一 优点 是 它 使 我 们 有 一 种 简单 的 方式 去 “下 降 ” 一 
个 数据 对 象 ， 使 之 达到 最 简单 的 表示 形式 。 例 如 ， 如 果 现 在 做 了 2+ 314 — 3;i 的 加 法 ， 如 果 结 
果 是 整数 6 而 不 是 复数 6 +0i 当 然 就 更 好 了 。 练 习 2.85 讨 论 了 实现 这 种 下 降 操作 的 一 种 方式 。 这 
里 的 技巧 在 于 需要 有 一 种 一 般 性 的 方式 ， 分 辨 出 哪些 是 可 以 下 降 的 对 象 (例如 6+ 0i) ， 哪 些 
是 不 能 下 降 的 对 象 (例如 6+2i)。 

层次 结构 的 不 足 

如 果 在 一 个 系统 里 ， 有 关 的 数据 类 型 可 以 自然 地 安排 为 一 个 塔 形 ， 那 么 正如 在 前 面 已 经 
看 到 的 ， 处 理 不 同类 型 上 通用 型 操作 的 问题 将 能 得 到 极 大 的 简化 。 遗 憾 的 是 ， 事 情 通 常 都 不 
是 这 样 。 图 2-26 展 示 的 是 类 型 之 间 关系 的 一 种 更 复杂 情况 ， 其 中 显示 出 的 是 表示 几何 图 形 的 
各 种 类 型 之 间 的 关系 。 从 这 个 图 里 可 以 看 到 ， 一 般 而 言 ， 一 个 类 型 可 能 有 多 于 一 个 子 类 型 ， 
例如 三 角形 和 四 边 形 都 是 多 边 形 的 子 类 型 。 此 外 ， 一 个 类 型 也 可 能 有 多 于 一 个 超 类 型 ， 例 如 ， 
等 腰 直角 三 角形 可 以 看 作 是 等 腰 三 角形 ， 又 可 以 看 作 是 直角 三 角形 。 这 种 存在 多 重 超 类 型 的 
问题 特别 令 人 棘手 ， 因 为 这 就 意味 着 ， 并 不 存在 一 种 唯一 方式 在 层次 结构 中 去 “提升 ”一 个 
类 型 。 当 我 们 需要 将 一 个 操作 应 用 于 一 个 对 象 时 ， 为 此 而 找 出 “正确 ” 超 类 型 的 工作 (例如 ， 


整数 
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等 腰 三 角形 直角 三 角形 bb 


正三 角形 等 腰 直 角 三 
角形 正方 形 
图 2-26 几何 图 形 类 型 间 的 关系 


这 就 是 apply-generic 这 类 过 程 中 的 一 部 分 ) 可 能 涉及 对 整个 类 型 网 络 的 大 范围 搜索 。 由 
于 一 般 说 一 个 类 型 存在 着 多 个 子 类 型 ， 需 要 在 类 型 层次 结构 中 “和 下降” 一 个 值 时 也 会 遇 到 类 
似 的 问题 。 在 设计 大 型 系统 时 ， 处 理 好 一 大 批 相互 有 关 的 类 型 而 同时 又 能 保持 模块 性 ， 这 是 
一 个 非常 困难 的 问题 ， 也 是 当前 正在 继续 研究 的 一 个 领域 。 

练习 2.81 Louis Reasoner 注 意 到 ， 其 至 在 两 个 参数 的 类 型 实际 相同 的 情况 下 ，apply- 
generic 也 可 能 试图 去 做 参数 间 的 类 型 强制 。 由 此 他 推论 说 ,需要 在 强制 表格 中 加 入 一 些 过 
程 ， 以 将 每 个 类 型 的 参数 “强制 ”到 它们 自己 的 类 型 。 例 如 ， 除 了 上 面 给 出 的 scheme- 
number->complex 强 制 之 外 ， 他 觉得 应 该 有 : 


(define (scheme-number->scheme-number n) n) 
(define (complex->complex z) z) 
(put-coercion ’scheme-number ’scheme-number 


scheme-number->scheme-number) 


"8 7 A PRL BL FE ASA oS LE, CEREREA S HEM., FP A, 具有 一 般 意 
义 的 框架 ， 以 描述 不 同类 型 的 对 象 之 间 的 关系 (这 在 哲学 中 称 为 “本 体 论 ")， 看 来 是 一 件 极其 困难 的 工作 。 
在 10 年 前 存在 的 混乱 和 今天 存在 的 混乱 之 间 的 主要 差异 在 于 ,今天 已 经 有 了 一 批 各 式 各 样 的 并 不 合适 的 本 体 
理论 ， 它 们 已 经 被 嵌入 到 数量 过 多 而 又 先天 不 足 的 各 种 程序 设计 语言 里 。 举 例 来 说 ， 面 向 对 象 语言 的 大 部 分 
复杂 性 一 一 以 及 当前 各 种 面向 对 象 语言 之 间 细 微 的 而 且 使 人 迷惑 的 差异 一 一 的 核心 ， 就 是 对 类 型 之 间 通 用 型 
操作 的 处 理 。 我 们 在 第 3 章 有 关 计 算 性 对 象 的 讨论 中 完全 避免 了 这 些 问 题 。 熟 悉 面向 对 象 程序 设计 的 读者 将 
会 注意 到 ， 在 第 3 章 里 关于 局 部 状态 说 了 许多 东西 ， 但 是 却 根本 没有 提 到 “类 ”或 者 “继承 "。 事 实 上， 我 们 
的 猜想 是 ， 如 果 疫 有 知识 表示 和 自动 推理 工作 的 帮助 ， 这 些 问题 是 无 法 仅仅 通过 计算 机 语言 设计 的 方式 合理 
处 理 的 。 
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(put-coercion ‘complex ‘complex complex->complex) 

a) 如 果 安 装 了 Louis 的 强制 过 程 ， 如 果 在 调用 apply-generic 时 各 参数 的 类 型 都 为 
scheme-number 或 者 类 型 都 为 complex， 而 在 表格 中 又 找 不 到 相应 的 操作 ， 这 时 会 出 现 什 
么 情况 ? 例如， 假定 我 们 定义 了 一 个 通用 型 的 求 需 运算 : 

(define (exp x y) (apply-generic ‘exp x y)) 

Ff fEScheme Ri AE EIA TR aR Re, (HO th ET a A: 


;; following added to Scheme-number package 
(put ”exp ’(scheme-number scheme-number) 


(lambda (x y) (tag (expt x y)))) ; using primitive expt 


如 果 对 两 个 复数 调用 exp 会 出 现 什么 情况 ? 

b) Louis 真 的 纠正 了 有 关 同 样 类 型 参数 的 强制 问题 吗 ? apply-generic 还 能 像 原来 那样 
正确 工作 吗 ? 

c) 请 修改 apply-generic， 使 之 不 会 试 着 去 强制 两 个 同样 类 型 的 参数 。 

练习 2.82 ”请 曾 述 一 种 方法 ， 设 法 推广 apply-generic， 以 便 处 理 多 个 参数 的 一 般 性 
情况 下 的 强制 问题 。 一 种 可 能 策略 是 试 着 将 所 有 参数 都 强制 到 第 一 个 参数 的 类 型 ， 而 后 试 着 
强制 到 第 二 个 参数 的 类 型 ， 并 如 此 试 下 去 。 请 给 出 一 个 例子 说 明 这 种 策略 还 不 够 一 般 〈 就 像 
上 面 对 两 个 参数 的 情况 给 出 的 例子 那样 )。( 提 示 : 请 考虑 一 些 情况 ， 其 中 表格 里 某 些 合用 的 
操作 将 不 会 被 考虑 。) 

练习 2.83 ”假定 你 正在 设计 一 个 通用 型 的 算术 包 ， 处 理 图 2-25 所 示 的 类 型 塔 ， 包 括 整 数 、 有 
理 数 、 实 数 和 人 复数。 请 为 每 个 类 型 ( 除 复数 外 ) 设计 一 个 过 程 ， 它 能 将 该 类 型 的 对 象 提升 到 塔 中 
的 上 面 一 层 。 请 说 明 如 何 安 装 一 个 通用 的 raise 操 作 ， 使 之 能 对 各 个 类 型 工作 ( 除 复数 之 外 )。 

练习 2.84 利用 练习 2.83 的 raise 操 作 修改 apply-generic 过 程 ， 使 它 能 通过 逐 层 提升 
的 方式 将 参数 强制 到 同样 的 类 型 ， 正 如 本 节 中 讨论 的 。 你 将 需要 安排 一 种 方式 ， 去 检查 两 个 
类 型 中 哪个 更 高 。 请 以 一 种 能 与 系统 中 其 他 部 分 “ 相 容 ”， 而 且 又 不 会 影响 向 塔 中 加 入 新 层次 
的 方式 完成 这 一 工作 。 

练习 2.85 本 节 中 提 到 了 “简化 ”数据 对 象 表示 的 一 种 方法 ， 就 是 使 之 在 类 型 塔 中 尽 可 
能 地 下 降 。 请 设计 一 个 过 程 arop (PR), 使 它 能 在 如 练习 2.83 所 描述 的 类 型 塔 中 完成 这 一 
工作 。 这 里 的 关键 是 以 某 种 一 般 性 的 方式 ， 判 断 一 个 数据 对 象 能 否 下 降 。 举 例 来 说 ， 复 数 
1.5 十 0i 至 多 可 以 下 降 到 real， 复 数 1 十 0i 至 多 可 以 下 降 到 integer， 而 复数 2 二 3i 就 根本 无 法 
下 降 。 现 在 提出 一 种 确定 一 个 对 象 能 否 下 降 的 计划 : 首先 定义 一 个 运算 project (投影 )， 
它 将 一 个 对 象 “ 压 ”到 塔 的 下 面 一 层 。 例 如 ， 投 影 一 个 复数 就 是 丢掉 其 虚 部 。 这 样 ， 一 个 数 
能 够 向 下 落 ， 如 果 我 们 首先 Project 它 而 后 将 得 到 的 结果 raise 到 开始 的 类 型 ， 最 终 得 到 的 
东西 与 开始 的 东西 相等 。 请 阐述 实现 这 一 想法 的 具体 细节 ， 并 写 出 一 个 drop 过 程 ， 使 它 可 以 
将 一 个 对 象 尽 可 能 地 下 落 。 你 将 需要 设计 各 种 各 样 的 投影 函数 ”， 并 需要 把 PpBroject 安 装 为 
系统 里 的 一 个 通用 型 操作 。 你 还 需要 使 用 一 个 通用 型 的 相等 谓词 ， 例 如 练习 2.79 所 描述 的 。 
最 后 ， 请 利用 drop 重 写 练 习 2.84 的 apply-generic， 使 之 可 以 “简化 ”其 结果 。 

练习 2.86 ”假定 我 们 希望 处 理 一 些 复 数 ， 它 们 的 实 部 、 虚 部 、 模 和 幅 角 都 可 以 是 常规 数 





实数 可 以 用 基本 过 程 round 投 射 到 整数 ， 它 返回 最 接近 参数 的 整数 值 。 
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值 、 有 理 数 ， 或 者 我 们 希望 加 入 系统 的 任何 其 他 数值 类 型 。 请 描述 和 实现 系统 需要 做 的 各 种 
修改 ， 以 满足 这 一 需要 。 你 应 设法 将 例如 sine 和 cosine 一 类 的 运算 也 定义 为 在 常规 数 和 有 
理 数 上 的 通用 运算 。 


2.5.3 实例 : 符号 代数 


符号 表达 式 的 操作 是 一 种 很 复杂 的 计算 过 程 ， 它 能 够 展示 出 在 设计 大 型 系统 时 常常 会 出 
现 的 许多 困难 问题 。 一 般 来 说 ， 一 个 代数 表达 式 可 以 看 成 一 种 具有 层次 结构 的 东西 ， 它 是 将 
运算 符 作 用 于 一 些 运算 对 象 而 形成 的 一 棵 树 。 我 们 可 以 从 一 集 基 本 对 象 ， 例 如 常量 和 变量 出 
发 ， 通 过 各 种 代数 运算 符 如 加 法 和 乘法 的 组 合 ， 构 造 起 各 种 各 样 的 代数 表达 式 。 就 像 在 其 他 
语言 里 一 样 ， 在 这 里 也 需要 形成 各 种 抽象 ， 使 我 们 能 够 有 简单 的 方式 去 引用 复合 对 象 。 在 符 
号 代数 中 ， 与 典型 抽象 的 有 关 想 法 包括 线性 组 合 、 多 项 式 、 有 理 函 数 和 三 角 国 数 等 等 。 可 以 
将 这 些 看 作 是 复合 的 “类 型 " ， 它 们 在 制导 对 表达 式 的 处 理 过 程 方面 非常 有 用 。 例 如 ， 我 们 可 
以 将 表达 式 : 

x’ sin (六 十 1) 十 xcos 2y+cos (y — 2y°) 
看 作 一 个 x 的 多 项 式 ， 其 参数 是 y 的 多 项 式 的 三 角 函 数 ， 而 y 的 多 项 式 的 系数 是 整数 。 

下 面 我 们 将 试 着 开发 一 个 完整 的 代数 演算 系统 。 这 类 系统 都 是 异 平 寻常 地 复杂 的 程序 ， 
包含 着 深入 的 代数 知识 和 美妙 的 算法 。 我 们 将 要 做 的 ， 只 是 考察 代数 演算 系统 中 一 个 简单 但 
却 很 重要 的 部 分 ， 多 项 式 算术 。 我 们 将 展示 在 设计 这 样 一 个 系统 时 所 面临 的 各 种 抉择 ， 以 及 
如 何 应 用 抽象 数据 和 通用 型 操作 的 思想 ， 以 利于 组 织 好 这 一 工作 项 目 。 


多 项 式 算术 

要 设计 一 个 执行 多 项 式 算术 的 系统 ， 第 一 件 事情 就 是 确定 多 项 式 到 底 是 什么 。 多 项 式 通 
和 常 总 是 针对 某 些 特定 的 变量 (多 项 式 中 的 未 定 元 ) 定义 的 。 为 了 简单 起 见 ， 我 们 把 需要 考虑 
的 多 项 式 限制 到 只 有 一 个 未 定 元 的 情况 ( 单 变 元 多 项 式 ) '*。 下 面 将 多 项 式 定义 为 项 的 和 式 ， 
而 每 个 项 或 者 就 是 一 个 系数 ， 或 者 是 未 定 元 的 乘 方 ， 或 者 是 一 个 系数 与 一 个 未 定 元 乘 方 的 乘 
积 。 系 数 也 定义 为 一 个 代数 表达 式 ， 但 它 不 依赖 于 这 个 多 项 式 的 未 定 元 。 例 如 : 

5x2°+3x+7 
是 x 的 一 个 简单 多 项 式 ， 而 
(7+ 1). 8 +(2y).x+ 1 
是 x 的 一 个 多 项 式 ， 而 其 参数 又 是 y 的 多 项 式 。 

这 样 ， 我 们 就 已 经 绕 过 了 某 些 坏 手 问题 。 例 如 ， 上 面 的 第 一 个 多 项 式 是 否 与 多 项 式 57 十 
3y 十 7 相同 ?为 什么 ?合理 的 回答 可 以 是 “是 ， 如 果 我 们 将 多 项 式 看 作 一 种 纯粹 的 数学 函数 ， 
但 又 不 是 ， 如 果 只 是 将 多 项 式 看 作 一 种 语法 形式 ”。 第 二 个 多 项 式 在 代数 上 等 价 于 一 个 y 的 多 
项 式 ， 其 系数 是 x 的 多 项 式 。 我 们 的 系统 将 应 认定 这 一 情况 吗 ， 或 者 不 认定 ? 进一步 说 ， 表 示 
一 个 多 项 式 的 方式 可 以 有 很 多 种 一 一 例如 ， 将 其 作为 因子 的 乘积 ， 或 者 〈 对 于 单 变 元 多 项 式 ) 





在 另 一 方面 ， 我们 将 允许 多 项 式 的 系数 本 身 是 其 他 变 元 的 多 项 式 。 这 就 给 了 我 们 与 完全 的 多 变量 系统 一 样 充 
分 的 表达 能 力 ， 虽 然 会 引起 一 些 强 制 问题 。 详 情 见 下 面 的 讨论 。 
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作为 一 组 根 ， 或 者 作为 多 项 式 在 些 特定 集合 里 各 个 点 处 的 值 的 列表 站 。 我 们 可 以 使 一 点 手段 
以 避免 这 些 问题 。 现 在 我 们 确定 ， 在 这 一 代数 演算 系统 里 ， 一 个 “多 项 式 ” 就 是 一 种 特殊 的 
语法 形式 ， 而 不 是 在 其 之 下 的 数学 意义 。 

现在 必须 进一步 去 考虑 怎样 做 多 项 式 算 术 。 在 这 个 简单 的 系统 里 ， 我 们 将 仅仅 考虑 加 法 
和 乘法 。 进 一 步 说 ， 我 们 还 强制 性 地 要 求 两 个 参与 运算 的 多 项 式 具 有 相同 的 未 定 元 。 

下 面 将 根据 我 们 已 经 熟悉 的 数据 抽象 的 一 套 方式 ， 开 始 设计 这 个 系统 。 多 项 式 将 用 一 种 称 
为 poly 的 数据 结构 表示 ， 它 由 一 个 变量 和 一 组 项 组 成 。 我 们 假定 已 有 选择 函数 variable 和 
term-1list， 用 于 从 一 个 多 项 式 中 提取 相应 的 部 分 。 还 有 一 个 构造 函数 make-poly， 从 给 
定 变量 和 项 表 构 造 出 一 个 多 项 式 。 一 个 变量 也 就 是 一 个 符号 ， 因 此 我 们 可 以 用 2.3.2 节 的 
same-variable? 过 程 做 变量 的 比较 。 下 面 过 程 定义 多 项 式 的 加 法 和 乘法 : 


define (add-poly pi p2) 
(if (same-variable? (variable pl) (variable p2)) 
(make-poly (variable p1) 
(add-terms (term-list p1) 
(term-list p2))) 
(error "Polys not in same var -- ADD-POLY" 
(list pl p2)))) 


(define (mul-poly pl p2) 
(if (same-variable? (variable pl) (variable p2)) 
(make-poly (variable p1) 
(mul-terms (term-list pī) 
(term-list p2))) 
(error "Polys not in same var -- MUL-POLY" 
(list pl p2)))) 


为 了 将 多 项 式 结 合 到 前 面 建立 起 来 的 通用 算术 系统 里 ， 我 们 需要 为 其 提供 类 型 标志 。 这 里 采 
用 标志 polynomial， 并 将 适合 用 于 带 标志 多 项 式 的 操作 安装 到 操作 表格 里 。 我 们 将 所 有 代 
码 都 嵌入 完成 多 项 式 包 的 安装 过 程 中 ， 与 在 2.5.1 疗 里 采用 的 方式 类 似 : 


(define (install-polynomial-package) 
;; internal procedures 
Js representation of poly 
(define (make-poly variable term-list) 
(cons variable term-list) ) 
(define (variable p) (car p)) 
(define (term-list p) (cdr p)) 
< 过 程 same-variable? 和 variable? 取 自 2.3.2 节 > 


5 representation of terms and term lists 
< 过 程 adjoin-term ...coeff 在 下 面 定义 > 
(define (add-poly pl p2) ...) 
<add-poly 使 用 的 过 程 > 
(define (mul-poly pl p2) ...) 
<mul-poly 使 用 的 过 程 > 


已 


2 对 于 单 变 元 多 项 式 而 言 ， 给 出 一 个 多 项 式 在 一 集 点 的 值 可 能 成 为 一 种 特别 好 的 表示 方式 。 这 将 使 多 项 式 算 术 
变 得 特别 简单 。 例 如 ， 要 得 到 两 个 以 这 种 方式 表示 的 多 项 式 之 和 ， 我 们 只 需 加 起 这 两 个 多 项 式 在 对 应 点 的 值 。 
要 将 它们 变换 到 我 们 更 熟悉 的 形式 ， 可 以 利用 拉 格 朗 日 插值 公式 ， 它 说 明了 如 何 从 多 项 式 在 n 二 1 个 点 的 给 定 
值 构 造 出 一 个 n 阶 多 项 式 的 各 个 系数 。 
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;; interface to rest of the system 
(define (tag p) (attach-tag ’polynomial p) ) 
(put ’add “(polynomial polynomial) 
(lambda (pl p2) (tag (add-poly pl p2)))) 
(put "mul *’(polynomial polynomial) 
(lambda (pl p2) (tag (mul-poly pl p2)))) 
(put ‘make ‘polynomial 
(lambda (var terms) (tag (make-poly var terms) )) ) 
*done) 


多 项 式 加 法 通过 一 项 项 的 相 加 完成 ， 同 次 的 项 (BN, AAR AR ETC RMT) 必须 归 
并 到 一 起 。 完 成 这 件 事 的 方式 是 建立 一 个 同 次 的 新 项 ， 其 系数 是 两 个 项 的 系数 之 和 。 仅 仅 出 
现在 一 个 求 和 多 项 式 中 的 项 就 直接 累积 到 正在 构造 的 多 项 式 里 。 
为 了 能 完成 对 于 项 表 的 操作 ， 我 们 假定 有 一 个 构造 函数 the-empty-termlist， 它 返 
回 一 个 空 的 项 表 ， 还 有 一 个 构造 函数 adjoin-term 将 一 个 新 项 加 入 一 个 项 表 里 。 我 们 还 假 
定 有 一 个 谓词 empty-term1list?， 可 用 于 检查 一 个 项 表 是 否 为 空 ， 选择 国 数 Eirst-tezrm 
提取 出 一 个 项 表 中 最 高 次 数 的 项 ， 选择 函数 rest -terms 返 回 除 最 高 次 项 之 外 的 其 他 项 页 的 表 。 
为 了 能 对 项 进行 各 种 操作 ， 我 们 假定 已 经 有 一 个 构造 函数 make-term， 它 从 给 定 的 次 数 和 系 
数 构 造 出 一 个 项 ， 选 择 函 数 order 和 coeff 分 别 返 回 一 个 项 的 次 数 和 系数 。 这 些 操 作 使 我 们 
可 以 将 项 和 项 表 都 看 成 数据 抽象 ， 其 具体 实现 就 可 以 另行 单独 考虑 了 。 
下 面 是 一 个 过 程 ， 它 从 两 个 需要 求 和 的 多 项 式 构 造 起 一 个 项 表 吐 ， 
(define (add-terms L1 L2) 
(cond ((empty-termlist? L1) L2) 
((empty-termlist? L2) L1) 
(else 
(let ((t1 (first-term L1)) (t2 (first-term L2))) 
(cond ((> (order tl) (order t2)) 
(adjoin-term 
tl (add-terms (rest-terms L1) L2))) 
((< (order t1) (order t2)) 
(adjoin-term 
t2 (add-terms L1 (rest-terms L2)))) 
(else 
(adjoin-term 
(make-term (order tl) 
(add (coeff t1) (coeff t2))) 
(add-terms (rest-terms L1) 
(rest-terms L2))))))))) 


在 这 里 需要 注意 的 最 重要 的 地 方 是 ， 我 们 采用 了 通用 型 的 加 法 过 程 add 去 求 需 要 归并 的 项 
系数 之 和 。 这 样 做 有 一 个 特别 有 利 的 后 果 ， 下 面 就 会 看 到 。 

为 了 乘 起 两 个 项 表 ， 我 们 用 第 一 个 表 中 的 每 个 项 去 乘 另 一 表 中 所 有 的 项 ， 通 过 反复 应 用 
mul-term-by-all-terms (这 个 过 程 用 一 个 给 定 的 项 去 乘 一 个 项 表 里 的 各 个 项 ) 完成 项 


呈 这 一 运算 很 像 我 们 在 练习 2.62 中 开发 的 有 序 union- set 运 算 。 事 实 上 ， 如 果 我 们 将 多 项 式 看 成 根据 未 定 元 
的 次 数 排序 的 集合 ， 那 么 为 求 和 产生 项 表 的 程序 几乎 就 等 同 于 union-set 了 。 
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表 的 乘法 。 这 样 得 到 的 结果 项 表 (对 于 第 一 个 表 的 每 个 项 各 有 一 个 表 ) 通过 求 和 积累 起 来 。 
乘 起 两 个 项 形成 一 个 新 项 的 方式 是 求 出 两 个 因子 的 次 数 之 和 作为 结果 项 的 次 数 ， 求 出 两 个 因 
子 的 系数 的 乘积 作为 结果 项 的 系数 : 


(define (mul-terms L1 L2) 
(if (empty-termlist? L1) 
(the-empty-termlist) 
(add-terms (mul-term-by-all-terms (first-term L1) L2) 
(mul-terms (rest-terms L1) L2)))) 


(define (mul-term-by-all-terms t1 L) 
(if (empty-termlist? L) 
(the-empty-termlist) 
(let ((t2 (first-term L))) 
(adjoin-term 
(make-term (+ (order t1) (order t2)) 
(mul (coeff t1) (coeff t2))) 

(mul-term-by-all-terms t1 (rest-terms L)))))) 


这 些 也 就 是 多 项 式 加 法 和 乘法 的 全 部 了 。 请 注意 ， 因 为 我 们 这 里 的 操作 都 是 基于 通用 型 
过 程 adadd 和 mul 描 述 的 ， 所 以 这 个 多 项 式 包 将 自动 地 能 够 处 理 任何 系数 类 型 ， 只 要 它 是 这 里 的 
通用 算术 程序 包 能 够 处 理 的 。 如 果 我 们 还 把 2.5.2 节 所 讨论 的 强制 机 制 也 包括 进来 ， 那 么 我 们 
也 就 自动 地 有 了 能 够 处 理 不 同系 数 类 型 的 多 项 式 操 作 的 能 力 ， 例 如 


[3x reant) rx +65+3)] 


由 于 我 们 已 经 把 多 项 式 的 求 和 、 求 乘积 的 过 程 add-poly 和 mul -poly 作 为 针对 类 型 
polynomial 的 操作 ， 安 装 进 通用 算术 系统 的 add 和 mul 操 作 里 ， 这 样 得 到 的 系统 将 能 自动 
处 理 如 下 的 多 项 式 操作 : 


[(y+ Dx? +O + Dx +(y-D]-[-2)x+0"° +7) 


能 够 完成 此 事 的 原因 是 ， 当 系统 试图 去 归并 系数 时 ， 它 将 通过 adda 和 mu1 进 行 分 派 。 由 于 这 时 
的 系数 本 身 也 是 多 项 式 (y 的 多 项 式 )， 它 们 将 通过 使 用 add-poly 和 mul -poly 完 成 组 合 。 
这 样 就 产生 出 一 种 “数据 导向 的 递归 ”， 举 例 来 说 ， 在 这 里 ， 对 mul-poly 的 调用 中 还 会 递归 
地 调用 mul-poly， 以 便 去 求 系数 的 乘积 。 如 果 系 数 的 系数 仍然 是 多 项 式 (在 三 个 变 元 的 多 
项 式 中 可 能 出 现 这 种 情况 )， 数 据 导 向 就 会 保证 这 一 系统 仍 能 进入 另 一 层 递归 调用 ， 并 能 这 样 
根据 被 处 理 数据 的 结构 进入 任意 深度 的 递归 调用 2。 

项 表 的 表示 

我 们 最 后 面临 的 工作 ， 就 是 需要 为 项 表 实 现 一 种 很 好 的 表示 形式 。 从 作用 上 看 ， 一 个 项 
表 就 是 一 个 以 项 的 次 数 作 为 键 值 的 系数 集合 ， 因 此 ， 任 何 能 够 用 于 有 效 表示 集合 的 方法 ( 见 


号 为 了 使 这 些 工作 得 更 加 平滑 ， 我 们 还 需 在 这 个 通用 算术 系统 中 加 入 将 “ 数 ” 强 制 到 多 项 式 的 能 力 。 这 时 把 数 
看 成 是 次 数 为 0 而 系数 就 是 这 个 数 的 多 项 式 。 如 果 要 处 理 下 面 的 多 项 式 运 算 ， 就 需要 这 种 功能 : 
x? t+ Dats]? +2041] 


这 其 中 需要 求 出 系数 >+ 1 和 系数 2 之 和 。 
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2.2.3 节 的 讨论 ) 都 可 以 用 于 完成 这 一 工作 。 但 另 一 方面 ， 我 们 所 用 的 过 程 add-tezms 和 
mul-terms 都 以 顺序 方式 进行 访问 ， 按 照 从 最 高 次 项 到 最 低 次 项 的 顺序 ， 因 此 应 该 考虑 采用 
某 种 有 序 表 表 示 。 

我 们 应 该 如 何 构造 表示 项 表 的 表 结 构 呢 ? 有 一 个 需要 考虑 的 因素 是 可 能 需要 操作 的 多 项 
式 的 “密度 " 。 一 个 多 项 式 称 为 稠密 的 ， 如 果 它 大 部 分 次 数 的 项 都 具有 非 0 系数 。 如 果 一 个 多 
项 式 有 许多 系数 为 0 的 项 ， 那 么 就 称 它 是 种 羽 的 。 例 如 : 

Ar oP Oe 24-5 
是 稠密 的 ， 而 
Bis, PPF +1 
Ae HBA 

对 于 稠密 多 项 式 而 言 ， 项 表 的 最 有 效 表示 方式 就 是 直接 采用 其 系数 的 表 。 例 如 ， 上 面 的 
多 项 式 A 可 以 很 好 地 表示 为 (1 2 0 3 -2 -5)。 在 这 种 表示 中 ， 一 个 项 的 次 数 也 就 是 从 这 
个 项 开始 的 子 表 的 长 度 减 1*。 对 于 像 B 那 样 的 稀 政 多 项 式 ， 这 种 表示 将 变 得 十 分 可 怕 ， 因 为 
它 将 是 一 个 很 大 的 几乎 全 都 是 0 值 的 表 ， 其 中 零 零 落落 地 点 组 着 几 个 非 0 项 。 对 于 稀 朴 多 项 式 
有 一 种 更 合理 方式 ， 那 就 是 将 它们 表示 为 非 0 项 的 表 ， 表 中 的 每 一 项 包含 着 多 项 式 里 的 一 个 次 
数 和 对 应 于 这 个 次 数 的 系数 。 按 照 这 种 模式 ， 多 项 式 B 可 以 有 效 地 表示 为 ((100 1) (2 2) 
(0 _ 1))。 由 于 被 操作 的 大 部 分 多 项 式 运算 都 是 稀 玻 多 项 式 ， 我 们 采用 后 一 种 方式 。 现 在 假定 
项 表 被 表示 为 项 的 表 ， 按 照 从 最 高 次 到 最 低 次 的 顺序 安排 。 一 旦 我 们 做 出 了 这 一 决定 ， 为 项 
表 实 现 选 择 函 数 和 构造 函数 就 已 经 直截了当 了 '™。 

(define (adjoin-term term term-list) 

(if (=zero? (coeff term) ) 


term-list 


(cons term term-list))) 


(define (the-empty-termlist) *()) 


(define (first-term term-list) (car term-list) ) 
(define (rest-terms term-list) (cdr term-list) ) 
(define (empty-termlist? term-list) (null? term-list) ) 
(define (make-term order coeff) (list order coeff) ) 


(define (order term) (car term) ) 


(define (coeff term) (cadr term) ) 


这 里 的 =zezro? 在 练习 2.80 中 定义 〈 另 见 下 面 练习 2.87) 。 
多 项 式 程序 包 的 用 户 可 以 通过 下 面 过 程 创建 多 项 式 : 
(define (make-polynomial var terms) 


((get ‘make ‘polynomial) var terms) ) 


124 在 这 些 多 项 式 的 例子 里 ， 我 们 都 假定 使 用 的 是 练习 2.78 所 提出 的 通用 算术 系统 。 这 样 ， 常 规 数值 的 系数 将 直 
接 用 数值 本 身 表 示 ， 而 不 是 表示 为 一 个 caz 为 符号 scheme-numbez 的 对 偶 。 

5 虽然 我 们 假定 项 表 是 排序 的 ， 这 里 还 是 将 adjoin-tezrm 简 单 地 实现 为 用 cons 在 现存 项 表 前 加 一 个 新 项 。 只 
要 能 保证 使 用 adjoin-term 的 过 程 (如 add-terms) 总 用 比 表 中 的 项 次 数 更 高 的 项 调用 它 ， 我 们 就 不 必 担 
心 会 出 问题 。 如 果 不 希 望 事 先 有 这 种 保证 ， 那 么 就 可 以 采用 类 似 于 集合 的 有 序 表 表 示 中 实现 构造 函数 
adjoin-set 的 方式 (练习 2.61) 实现 adjoin-term。 
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练习 2.87 请 在 通用 算术 包 中 为 多 项 式 安 装 =zero?， 这 将 使 adjoin-term 也 能 对 系数 
本 身 也 是 多 项 式 的 多 项 式 使 用 。 

练习 2.88 ”请 扩充 多 项 式 系统 ， 加 上 多 项 式 的 减法 。( 提 示 : 你 可 能 发 现 定义 一 个 通用 的 
求 负 操作 非常 有 用 。) 

练习 2.89 请 定义 一 些 过 程 ， 实 现 上 面 讨 论 的 适宜 稠密 多 项 式 的 项 表 表 示 。 

练习 2.90 假定 我 们 希望 有 一 个 多 项 式 系统 ， 它 应 该 对 稠密 多 项 式 和 稀 玻 多 项 式 都 非常 有 
效 。 一 种 途径 就 是 在 我 们 的 系统 里 同时 允许 两 种 表示 形式 。 这 时 的 情况 类 似 于 2.4 市 复数 的 例 
子 ， 那 里 同时 允许 采用 直角 坐标 表示 和 极 坐 标 表示 。 为 了 完成 这 一 工作 ， 我 们 必须 区 分 不 同 
的 项 表 类 型 ， 并 将 针对 项 表 的 操作 通用 化 。 请 重新 设计 这 个 多 项 式 系统 ， 实 现 这 种 推广 。 这 
将 是 一 项 需要 付出 很 多 努力 的 工作 ， 而 不 是 一 个 局 部 修改 。 

练习 2.91 ”一 个 单 变 元 多 项 式 可 以 除 以 另 一 个 多 项 式 ， 产 生出 一 个 商 式 和 一 个 余 式 。 例 
如 : 





| 
二 =x +x , 余 式 x 一 1 
x 一 ] 


除法 可 以 通过 长 除 完成 。 也 就 是 说 ， 用 被 除 式 的 最 高 次 项 除 以 除 式 的 最 高 次 项 ， 得 到 商 式 的 
第 一 项 ;而 后 用 这 个 结果 乘 以 除 式 ， 并 从 被 除 式 中 减 去 这 个 乘积 。 剩 下 的 工作 就 是 用 减 后 得 
到 的 差 作为 新 的 被 除 式 ， 以 便 产 生出 随后 的 结果 。 当 除 式 的 次 数 超过 被 除 式 的 次 数 时 结束 ， 
将 此 时 的 被 除 式 作 为 余 式 。 还 有 ， 如 果 被 除 式 就 是 0， 那 么 就 返回 0 作为 商 和 余 式 。 

我 们 可 以 基于 adda-poly 和 mul-poly 的 模型 ， 设 计 出 一 个 除法 过 程 aiv-poly。 这 一 过 
程 首先 检查 两 个 多 项 式 是 否 具 有 相同 的 变 元 ， 如 果 是 的 话 就 剥 去 这 一 变 元 ， 将 问题 送 给 过 程 
div-terms， 它 执行 项 表 上 的 除法 运算 。div-poly 最 后 将 变 元 重新 附加 到 div-terms 返 
回 的 结果 上 。 将 aiv-tezrms 设 计 为 同时 计算 出 除法 的 商 式 和 余 式 是 比较 方便 的 。div- 
terms 可 以 以 两 个 表 为 参数 ， 返 回 一 个 商 式 的 表 和 一 个 余 式 的 表 。 

请 完成 下 面 aiv-terms 的 定义 ， 填 充 其 中 空缺 的 表达 式 ， 并 基于 它 实 现 aiv-poly。 该 
过 程 应 该 以 两 个 多 项 式 为 参数 ， 返 回 一 个 包含 商 和 余 式 多 项 式 的 表 。 

(define (div-terms L1 L2) 

(if (empty-termlist? L1) 
(list (the-empty-termlist) (the-empty-termlist) ) 
(let ((t1 (first-term L1) ) 
(t2 (first-term L2)) ) 


(if (> (order t2) (order t1)) 
(list (the-empty-termlist) L1) 


(let ((new-c (div (coeff t1) (coeff t2))) 
(new-o (- (order t1) (order t2)))) 
(let ((rest-of-result 

< 递归 地 计算 结果 的 其 余部 分 > 
E 

< 形成 完整 的 结果 > 

PORED, 

符号 代数 中 类 型 的 层次 结构 


我 们 的 多 项 式 系统 显示 出 ， 一 种 类 型 (多项式) 的 对 象 事实 上 可 以 是 一 个 复杂 的 对 象 ， 
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又 以 许多 不 同类 型 的 对 象 作 为 其 组 成 部 分 。 这 种 情况 并 不 会 给 定义 通用 型 操作 增加 任何 实际 
困难 。 我 们 需要 做 的 就 是 针对 这 种 复合 对 象 的 各 个 部 分 的 操作 ， 并 安装 好 适当 的 通用 型 过 程 。 
事实 上 ， 我 们 可 以 看 到 多 项 式 形成 了 一 类 “递归 数据 抽象 ”， 因 为 多 项 式 的 某 些 部 分 本 身 也 可 
能 是 多 项 式 。 我 们 的 通用 型 操作 和 数据 导向 的 程序 设计 风格 完全 可 以 处 理 这 种 复杂 性 ， 这 里 
并 没有 多 少 困 难 。 

但 另 一 方面 ， 多 项 式 代数 也 是 这 样 的 一 个 系统 ， 其 中 的 数据 类 型 不 能 自然 地 安排 到 一 个 
类 型 塔 里 。 例 如 ， 在 这 里 可 能 有 x 的 多 项 式 ， 其 系数 是 y 的 多 项 式 ， 也 完全 可 能 有 y 的 多 项 式 ， 
其 系数 是 x 的 多 项 式 。 这 些 类 型 中 没有 哪个 类 型 自然 地 位 于 另 一 类 型 的 “上 面 "*， 然 而 我 们 却 
常常 需要 去 求 不 同 集合 的 成 员 之 和 。 有 几 种 方式 可 以 完成 这 件 事情 。 一 个 可 能 性 就 是 将 一 个 
多 项 式 变换 到 另 一 个 多 项 式 的 类 型 ， 这 可 以 通过 展开 并 重新 安排 多 项 式 里 的 项 ， 使 两 个 多 项 
式 都 具有 同样 的 主 变 元 。 也 可 以 通过 对 变 元 的 排序 ， 在 其 中 强行 加 入 一 个 类 型 塔 结构 ， 并 且 
永远 把 所 有 的 多 项 式 都 变换 到 一 种 “规范 形式 "， 使 具有 最 高 优先 级 的 变 元 成 为 主 变 元 ， 将 优 
先 级 较 低 的 变 元 藏 在 系数 里 面 。 这 种 策略 工作 的 相当 好 ， 但 是 ， 在 做 这 种 变换 时 ， 有 可 能 毫 
无 必要 地 扩大 了 多 项 式 ， 使 它 更 难 读 ， 也 可 能 操作 起 来 的 效率 更 低 。 塔 形 策略 在 这 个 领域 中 
确实 不 大 自然 ， 对 于 另 一 些 领域 也 是 一 样 ， 如 果 在 那里 用 户 可 以 动态 地 通过 已 有 类 型 的 各 种 
组 合 形式 引进 新 类 型 。 这 样 的 例子 如 三 角 函 数 、 竹 级 数 和 积分 。 

如 果 说 在 设计 大 型 代数 演算 系统 时 ， 对 于 强制 的 控制 会 变 成 一 个 很 严重 的 问题 ， 那 完全 
不 应 该 感到 奇怪 。 这 种 系统 里 的 大 部 分 复杂 性 都 牵涉 多 个 类 型 之 间 的 关系 。 确 实 ， 公 平地 说 ， 
我 们 到 现在 还 没有 完全 理解 强制 。 事 实 上 ， 我 们 还 没有 完全 理解 类 型 的 概念 。 但 无 论 如 何 ， 
已 知 的 东西 已 经 为 我 们 提供 了 支持 大 型 系统 设计 的 强 有 力 的 结构 化 和 模块 化 原理 。 

练习 2.92 ”通过 加 入 强制 性 的 变量 序 扩充 多 项 式 程序 包 ， 使 多 项 式 的 加 法 和 乘法 能 对 具 
有 不 同 变量 的 多 项 式 进行 。( 这 绝 不 简单 ! ) 

扩充 练习 ， 有 理 函 数 

我 们 可 以 扩充 前 面 已 经 做 出 的 通用 算术 系统 ， 将 有 理 函 数 也 包含 进来 。 有 理 函 数 也 就 是 
“分 式 ”， 其 分 子 和 分 母 都 是 多 项 式 ， 例 如 : 

x+1 
x -l 

这 个 系统 应 该 能 做 有 理 函 数 的 加 减 乘除 ， 并 可 以 完成 下 面 的 计算 : 


#41 x _ ¥°4+2x°+3x41 








xX -1 x-1 x*4+x°?-x-1 

(这 里 的 和 已 经 经 过 了 简化 ， 删 除了 公 因 子 。 常 规 的 “交叉 乘法 ”得 到 的 将 是 一 个 4 次 多 项 式 
的 分 子 和 5 次 多 项 式 的 分 母 。) 

修改 前 面 的 有 理 数 程序 包 ， 使 它 能 使 用 通用 型 操作 ， 就 能 完成 我 们 希望 做 的 事情 ， 除 了 
无 法 将 分 式 化 简 到 最 简 形式 之 外 。 

练习 2.93 请 修改 有 理 数 算术 包 ， 采 用 通用 型 操作 ， 但 在 其 中 改写 make-zat， 使 它 并 不 
企图 去 将 分 式 化 简 到 最 简 形 式 。 对 下 面 两 个 多 项 式 调用 make-rational 做 出 一 个 有 理 函 数 ， 
以 便 检查 你 的 系统 : 


(define pl (make-polynomial ‘x *((2 1)(0 1)))) 
(define p2 (make-polynomial ‘x *((3 1) (0 1)))) 
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(define rf (make-rational p2 pl1)) 


现在 用 add 将 rf 与 它 自己 相 加 。 你 会 看 到 这 个 加 法 过 程 不 能 将 分 式 化 简 到 最 简 形式 .。 


我 们 可 以 用 与 前 面 针 对 整数 工作 时 的 同样 想法 ， 将 分 子 和 分 母 都 是 多 项 式 的 分 式 简化 到 
最 简 形 式 : 修改 make-rat， 将 分 子 和 分 母 都 除 以 它们 的 最 大 公 因 子 。“ 最 大 公 因 子 ” 的 概念 
对 于 多 项 式 也 是 有 意义 的 。 事 实 上 ， 我们 也 可 以 用 与 整数 的 欧 几 里 得 算法 本 质 上 相同 的 算法 
求 出 两 个 多 项 式 的 GCD (最 大 公 因 子 ) *。 对 于 整数 的 算法 是 : 

(define (gcd a b) 

(if (= b 0) 
(gcd b (remainder a b)))) 


利用 它 ， 再 做 一 点 非常 明显 的 修改 ， 就 可 以 定义 出 一 个 对 项 表 工 作 的 GCD 操 作 : 


(define (gcd-terms a b) 
(if (empty-termlist? b) 
a 


(gcd-terms b (remainder-terms a b)))) 


其 中 的 remainder-terms 提 取出 由 项 表 除 法 操作 div-terms 返 回 的 表 里 的 余 式 成 分 ， 该 操 
作 在 练习 2.91 中 实现 。 

练习 2.94 利用 div-terms 实 现 过 程 remainder-terms， 并 用 它 定 义 出 上 面 的 gcd- 
terms。 现 在 写 出 一 个 过 程 gcd-poly， 它 能 计算 出 两 个 多 项 式 的 多 项 式 GCD (如 果 两 个 多 
项 式 的 变 元 不 同 ， 这 个 过 程 应 该 报告 错误 )。 在 系统 中 安装 通用 型 操作 greatest-common- 
divisor, 使 得 遇 到 多 项 式 时 ， 它 能 归 约 到 gcd-poly， 对 于 常规 的 数 能 归 约 到 常规 的 gca。 
作为 试验 ， 请 做 : 

(define pl (make-polynomial ’x °((4 1) (3 -1) (2 -2) (1 2)))) 


(define p2 (make-polynomial ’x *((3 1) (1 -1)))) 


(greatest-common-divisor pl p2) 
并 用 手工 检查 得 到 的 结果 。 
练习 2.95 请 定义 多 项 式 P!、P, 和 和 P;: 
Pi: xX—2x+1 


Py: 11x?+7 
ss 13%+5 
现在 定义 0 为 PP 和 PP: 的 乘积 ， 定 义 0; 为 PP 和 P3 的 乘积 ， 而 后 用 grzeatest-commoDn- 


divisor (练习 2.94) 求 出 2, 和 2@: 的 GCD 。 请 注意 得 到 的 回答 与 已 并 不 一 样 。 这 个 例子 将 非 
整数 操作 引进 了 计算 过 程 ， 从 而 引起 了 GCD 算 法 的 困难 '”。 要 理解 这 里 发 生 了 什么 ， 请 试 着 


“按照 代数 的 说 法 ， 欧 几 里 得 算法 对 于 多 项 式 也 可 以 使 用 的 事实 说 明 多 项 式 构成 了 一 种 代数 论 域 ， 称 为 欧 几 里 
得 环 。 一 个 欧 几 里 得 环 是 一 种 论 域 ， 它 允许 加 、 减 和 可 交换 乘 ， 再 加 上 一 种 方式 为 环 中 每 个 元 素 x 赋 以 一 个 
下 整数 的 “度量 ”m(x)， 其 性 质 是 ， 对 任何 非 0 的 x 和 y 都 有 m(xy) 宇 m(x)， 而 且 对 于 任何 给 定 的 x 和 y， 存 在 一 
个 gq 使 得 y= gx 二 +r， 这 里 有 7 三 0 或 者 m(r)<m(x)。 从 一 种 抽象 的 观点 看 ， 这 些 也 就 是 证 明 欧 几 里 得 算法 能 够 使 
用 所 需要 的 所 有 性 质 。 对 于 整数 论 域 而 言 ， 一 个 整数 的 度量 m 就 是 这 个 整数 的 绝对 值 。 对 多 项 式 论 域 ， 这 一 
度量 就 是 多 项 式 的 次 数 。 

在 类 似 MIT Scheme 的 实现 中 ， 这 将 产生 一 个 多 项 式 ， 它 确实 是 C, 和 2@: 的 因子 ， 但 却 有 着 有 理 数 系数 。 许 多 
其 他 Scheme 系统 中 的 整数 除法 可 以 产生 有 限 精 度 的 十 进 制 数 ， 这 时 可 能 就 无 法 得 到 合法 的 因子 了 。 
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手工 追踪 gcd-terms 在 计算 GCD 或 者 做 除法 时 的 情况 。 


如 果 我 们 对 于 GCD 算 法 采用 下 面 的 修改 ,就 可 以 解决 练习 2.95 揭 示 出 的 问题 (这 只 能 对 
整数 系数 的 多 项 式 使 用 )。 在 GCD 计 算 中 执行 任何 多 项 式 除 法 之 前 ， 我 们 先 将 被 除 式 乘 以 一 个 
整数 的 常数 因子 ， 选 择 的 方式 是 保证 在 除 的 过 程 中 不 出 现 分 数 。 这 样 得 到 的 回答 将 比 实际 的 
GCD 多 出 一 个 整 的 常数 因子 ,但 它 不 会 在 将 有 理 函 数 化 简 到 最 简 形 式 的 过 程 中 造成 任何 问题 。 
由 于 将 用 这 个 GCD 去 除 分 子 和 分 母 ， 所 以 这 个 常数 因子 会 被 消除 掉 。 

说 得 更 精确 些 ， 如 果 P 和 0 都 是 多 项 式 ， 令 O01 是 P 的 次 数 (P 的 最 高 次 项 的 次 数 )， 令 0, 是 
@ 的 次 数 ， 令 c 是 @ 的 首 项 系数 。 可 以 证 明 ， 如 果 我 们 给 P 乘 上 一 个 整数 化 因子 cl 2 22， 得 到 
的 多 项 式 用 div-terms 算 法 除 以 0 将 不 会 引进 任何 分 数 。 将 被 除 式 乘 上 这 样 的 常数 后 除 以 除 
式 ， 这 种 操作 在 某 些 地 方 称 为 P 对 于 Q 的 伪 除 ， 这 样 除 后 得 到 的 余 式 也 被 称 为 伪 余 。 

练习 2.96 

a) 请 实现 过 程 pPpseudoremainder-terms， 它 就 像 是 remainder-terms, 但 是 像 上 
面 所 描述 的 那样 ， 在 调用 div-terms 之 前 ， 先 将 被 除 式 乘 了 整数 化 因子 。 请 修改 gca- 
terms 使 之 能 使 用 pseudoremainder-terms， 并 检验 现在 greatest-common- 
divisor 能 否 对 练习 2.95 的 例子 产生 出 一 个 整 系数 的 答案 。 

b) 现在 的 GCD 保 证 能 得 到 整 系数 ， 但 它们 将 比 P1 的 系数 大 ， 请 修改 gca-terms 使 它 能 从 
答案 的 所 有 系数 中 删除 公 因 子 ， 方 法 是 将 这 些 系 数 都 除 以 它们 的 (整数 ) 最 大 公约 数 。 

至 此 我 们 已 经 弄 清 了 如 何 将 一 个 有 理 函 数 化 简 到 最 人 简 形 式 : 

“用 取 自 练习 2.96 的 gcd-terms 版 本 计算 出 分 子 和 分 母 的 GCD; | 

* 在 你 得 到 了 这 个 GCD 后 ,在 用 GCD 去 除 分 子 和 分 母 之 前 ， 先 将 它们 都 乘 以 同一 个 整数 

化 因子 ， 以 使 除 以 这 个 GCD 不 会 引进 任何 非 整数 系数 。 作 为 这 个 因子 ， 你 可 以 使 用 得 到 

的 GCD 的 首 项 系数 的 1+O 一 0 次 需 。 其 中 0 是 这 个 GCD 的 次 数 ，O 是 分 子 与 分 母 的 次 

数 中 大 的 那 一 个 。 这 将 保证 用 这 个 GCD 去 除 分 子 和 分 母 不 会 引进 任何 分 数 。 

。 这 一 操作 得 到 的 结果 将 是 具有 整 系数 的 分 子 和 分 母 。 它 们 的 系数 通常 会 由 于 整数 化 因子 

而 变 得 非常 大 。 所 以 最 后 一 步 是 去 除 这 个 多 余 的 因子 ， 为 此 需要 首先 计算 出 分 子 和 分 母 

中 所 有 系数 的 (整数 ) 最 大 公约 数 ， 而 后 除去 这 个 公约 数 。 

练习 2.97 

a) 请 将 这 一 算法 实现 为 过 程 reduce-terms， 它 以 两 个 项 表 n 和 Gd 为 参数 ， 返 回 一 个 包含 
nn 和 dd 的 表 ， 它 们 分 别 是 由 n 和 Gd 通过 上 面 描述 的 算法 简化 而 得 到 的 最 简 形 式 。 男 请 写 出 一 个 
与 add-poly 类 似 的 过 程 reduce-poly, 它 检查 两 个 多 项 式 是 否 上 共有 同样 变 元 。 如 果 是 的 话 ， 
reduce-poly 就 判 去 其 中 变 元 ， 并 将 问题 交 给 zxeduce-tezrms， 最 后 为 reduce-terms 返 
回 的 表 里 的 两 个 项 表 重 新 附加 上 变 元 。 

b) 请 定义 一 个 类 似 于 reduce-terms 的 过 程 ， 它 完成 的 工作 就 像 是 make -rat 对 整数 做 
的 事情 : 

(define (reduce-integers n d) 

(let ((g (gcd n d))) 
(list (/ ng) (/ dg)))) 
再 将 reduce 定 义 为 一 个 通用 型 操作 ， 它 调用 apply-generic 完 成 到 reduce-poly (对 于 
polynomial 参 数 ) 或 者 到 reduce-integers (对 scheme-number 参 数 ) 的 分 派 。 你 可 
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以 很 容易 让 有 理 数 算术 包 将 分 式 简化 到 最 简 形 式 ， 采 用 的 方式 就 是 让 make -zat 在 组 合 给 定 
分 子 和 分 母 ， 做 出 有 理 数 之 前 也 调用 *edquce。 这 一 系统 现在 就 能 处 理 整数 或 者 多 项 式 的 有 理 
表达 式 了。 为 测试 你 的 程序 ， 请 首先 试验 下 面 的 扩充 练习 : 


(define p1 (make-polynomial ’x *((1 1)(0 1)))) 
(define p2 (make-polynomial x °((3 1) (0 -1)))) 
(define p3 (make-polynomial '"x *((1 1)))) 
(define p4 (make-polynomial ’x ’((2 1) (0 -1)))) 


(define rf1 (make-rational pl p2)) 
(define rf2 (make-rational p3 p4)) 


(add rfi rf2) 
看 看 能 否 得 到 正确 结果 ， 结 果 是 否 正 确 地 化 简 为 最 简 形 式 。 


GCD 计 算是 所 有 需要 完成 有 理 函 数 操作 的 系统 的 核心 。 上 面 所 使 用 的 算法 虽然 在 数学 上 
直截了当 ， 但 却 异常 低 效 。 低 效 的 部 分 原因 在 于 大 量 的 除法 操作 ， 部 分 在 于 由 伪 除 产生 的 巨 
大 的 中 间 系 数 。 在 开发 代数 演算 系统 的 领域 中 ， 一 个 很 活跃 问题 就 是 设计 计算 多 项 式 GCD 的 
更 好 算法 王 。 


18 一 个 特别 高 效 而 优美 的 计算 多 项 式 GCD 的 方法 由 Richard Zippel HW] (1979)。 这 是 一 个 概率 算法 ， 就 像 我 们 
在 第 1 章 讨论 过 的 素数 快速 检查 算法 。Zippel 的 书 (1993) 里 讨论 了 这 个 算法 ， 还 介绍 了 计算 多 项 式 GCD 的 
其 他 一 些 方法 。 


Bp 使 在 变化 中 。 它 也 丝毫 未 变 。 


一 一 顽 拉 克利 特 ( Heraclitus ) 
原来 的 样子 。 


六 
ae 
Ez 
Ww 
ct 
# 
# 


一 一 阿尔 芬 斯 :卡尔 ( Alphonse Karr ) 


前 面 两 章 介绍 了 组 成 程序 的 各 种 基本 元 素 ， 我 们 看 到 了 如 何 把 基本 过 程 和 基本 数据 组 合 
起 来 ， 构 造 出 复合 的 实体 ， 也 从 中 认识 到 ， 在 克服 大 型 系统 的 复杂 性 的 问题 上 ， 抽 象 起 着 至 
关 重 要 的 作用 。 但 是 对 于 设计 程序 而 言 ， 这 些 手段 还 不 够 用 ， 有 效 的 程序 综合 还 需要 一 些 组 
织 原则 ， 它 们 应 能 指导 我 们 系统 化 地 完成 系统 的 整体 设计 。 特 别 是 需要 一 些 能 够 帮助 我 们 构 
造 起 模块 化 的 大 型 系统 的 策略 ， 也 就 是 说 ， 使 这 些 系统 能 够 “自然 地 ”划分 为 一 些 具 有 内 聚 
力 的 部 分 ， 使 这 些 部 分 可 以 分 别 进行 开发 和 维护 。 

有 一 种 非常 强 有 力 的 设计 策略 ， 特 别 适合 用 于 构造 那 类 模拟 真实 物理 系统 的 程序 ， 那 就 
是 基于 被 模拟 系统 的 结构 去 设计 程序 的 结构 。 对 于 有 关 的 物理 系统 里 的 每 个 对 象 ， 我 们 构造 
起 一 个 与 之 对 应 的 计算 对 象 ， 对 该 系统 里 的 每 种 活动 ， 我 们 在 自己 的 计算 系统 里 定义 一 种 符 
号 操作 。 采 用 这 一 策略 时 的 希望 是 ， 在 需要 针对 系统 中 的 新 对 象 或 者 新 活动 扩充 对 应 的 计算 
模型 时 ， 我 们 能 够 不 必 对 程序 做 全 面 的 修改 ， 而 只 需要 加 入 与 这 些 对 象 或 者 动作 相对 应 的 新 
的 符号 对 象 。 如 果 我 们 在 系统 的 组 织 方面 做 得 很 成 功 ， 那 么 在 需要 添加 新 特征 或 者 排除 旧 东 
西里 的 错误 时 ， 就 只 需 在 系统 里 的 一 些小 局 部 中 工作 。 

这 样 ， 在 很 大 程度 上 ， 组 织 大 型 程序 的 方式 会 受到 我 们 对 于 被 模拟 系统 的 认识 的 支配 。 
在 这 一 章 里 ， 我 们 要 研究 两 种 特点 很 鲜明 的 组 织 策略 ， 它 们 源 自 对 于 系统 结构 的 两 种 非常 不 
同 的 “世界 观 ”"。 第 一 种 策略 将 注意 力 集中 在 对 象 上 ， 将 一 个 大 型 系统 看 成 一 大 批 对 象 ， 它 们 
的 行为 可 能 随 着 时 间 的 进展 而 不 断 变 化 。 另 一 种 组 织 策略 将 注意 力 集中 在 流 过 系统 的 信息 流 
上 ,非常 像 电子 工程 师 观 察 一 个 信号 处 理 系 统 。 

基于 对 象 的 途径 和 基于 流 处 理 的 途径 ， 都 对 程序 设计 提出 了 具有 重要 意义 的 语言 要 求 。 
对 于 对 象 途径 而 言 ， 我 们 必须 关注 计算 对 象 可 以 怎样 变化 而 又 同时 保持 其 标识 。 这 将 迫使 我 
们 抛弃 老 的 计算 的 代 换 模型 ( 见 1.1.5 节 ) ， 转 向 更 机 械 式 的 ， 理 论 上 也 更 不 容易 把 握 的 计算 的 
环境 模型 。 在 处 理 对 象 、 变 化 和 标识 时 ， 各 种 困难 的 基本 根源 在 于 我 们 需要 在 这 一 计算 模型 
中 与 时 间 搏 斗 。 如 果 人 允许 程序 并 发 执行 的 可 能 性 ， 事 情 就 会 变 得 更 困难 许多 。 流 方式 特别 能 
er 我 们 
将 通过 一 种 称 为 廷 时 求 值 的 技术 做 到 这 


3.1 赋值 和 局 部 状态 
我 们 关于 世界 的 常规 观点 之 一 ， 就 是 将 它 看 作 聚 集 在 一 起 的 许多 独立 对 象 ， 每 个 对 象 
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都 有 自己 的 随 着 时 间 变 化 的 状态 。 所 谓 一 个 对 象 “ 有 状态 ”"， 也 就 是 说 它 的 行为 受到 它 的 历 
史 的 影响 。 例 如 一 个 银行 账户 就 具有 状态 ， 对 问题 “我 能 取出 100 元 钱 吗 ? ”的 回答 依赖 于 
它 的 存 人 和 支取 的 交易 历史 。 我 们 可 以 用 一 个 或 几 个 状态 变量 刻画 一 个 对 象 的 状态 ， 在 它 
们 之 中 维持 着 有 关 这 一 对 象 的 历史 ， 即 能 够 确定 该 对 象 当前 行为 的 充分 的 信息 。 在 一 个 简 
单 的 银行 系统 里 ， 我 们 可 以 用 当前 余额 刻画 一 个 账户 的 状态 ， 而 不 必 记 住 这 个 账户 的 全 部 
交易 历史 。 

在 一 个 由 许多 对 象 组 成 的 系统 里 ， 其 中 的 这 些 对 象 极 少 会 是 完全 独立 的 。 每 个 对 象 都 可 
能 通过 交互 作用 ， 影 响 其 他 对 象 的 状态 ， 所 谓 交 互 就 是 建立 起 一 个 对 象 的 状态 变量 与 其 他 对 
象 的 状态 变量 之 间 的 联系 。 确 实 ， 如 果 一 个 系统 中 的 状态 变量 可 以 分 组 ， 形 成 一 些 内 部 紧密 
结合 的 子 系统 ， 每 个 子 系统 与 其 他 子 系统 之 间 只 存在 松散 联系 ， 此 时 将 这 个 系统 看 作 是 由 一 
些 独 立 对 象 组 成 的 观点 就 会 特别 有 用 。 

对 于 一 个 系统 的 这 种 观点 ， 有 可 能 成 为 组 织 这 一 系统 的 计算 模型 的 有 力 框架 。 要 使 这 样 
的 一 个 模型 成 为 模块 化 的 ， 就 要 求 它 能 分 解 为 一 批 计算 对 象 ， 使 它们 能 够 模拟 系统 里 的 实际 
对 象 。 每 一 个 计算 对 象 必须 有 它 自 己 的 一 些 局 部 状态 变量 ， 用 于 描述 实际 对 象 的 状态 。 由 于 
被 模拟 系统 里 的 对 象 的 状态 是 随 着 时 间 变 化 的 ， 与 它们 相对 应 的 计算 对 象 的 状态 也 必须 变化 。 
如 果 我 们 确定 了 要 通过 计算 机 里 的 时 间 顺 序 去 模拟 实际 系统 里 时 间 的 流逝 ， 那 么 我 们 就 必须 
构造 起 一 些 计算 对 象 ， 使 它们 的 行为 随 着 程序 的 运行 而 改变 。 特 别 是 ， 如 果 我 们 希望 通过 程 
序 设计 语言 里 常规 的 符号 名 字 去 模拟 状态 变量 ， 那 么 语言 里 就 必须 提供 一 个 赋值 运算 符 ， 使 
我 们 能 用 它 去 改变 与 一 个 名 字 相 关联 的 值 。 


3.1.1 局 部 状态 变 


为 了 说 清楚 这 里 所 说 的 让 一 个 计算 对 象 具有 随 着 时 间 变 化 的 状态 的 意思 ， 现 在 让 我 们 来 
对 从 一 个 银行 账户 支取 现金 的 情况 做 一 个 模拟 。 我 们 将 用 一 个 过 程 withdraw 完 成 此 事 ， 它 
有 一 个 参数 amount 表 示 支 取 的 现金 量 。 如 果 对 应 于 给 定 的 支取 额 ， 在 相应 的 账户 里 尚 有 足够 
的 余额 ， 那 么 withdaraw 就 返回 支取 之 后 账户 里 剩余 的 款额 ， 否 则 withdaraw 将 返回 消息 
Insufficient funds (金额 不 足 )。 举 例 说 ,假定 开始 时 账户 里 有 100 元 钱 ， 在 不 断 使 用 
withdraw 的 过 程 中 我 们 可 能 得 到 下 面 的 响应 序列 : 

(withdraw 25) 


cs 


(withdraw 25) 
50 


(withdraw 60) 


"Insufficient funds" 


(withdraw 15) 
35 


在 这 里 可 以 看 到 表达 式 (withdraw 25) 求 值 了 两 次 ， 但 它 产 生 的 值 却 不 同 。 这 是 过 程 的 
一 种 新 的 行为 方式 。 到 现在 为 止 ， 我 们 看 到 的 所 有 过 程 都 可 以 看 作 一 些 可 计算 的 数学 函数 的 
描述 ， 对 一 个 过 程 的 调用 将 计算 出 相应 函数 作用 于 给 定 参数 应 得 到 的 值 ， 用 同样 的 实际 参数 


31 BK Fe BRA 151 


两 次 调用 同一 个 过 程 ， 总 会 产生 出 相同 的 结果 '”。 

为 了 实现 withdraw， 我 们 可 以 用 一 个 变量 balance 表 示 账 户 里 的 现金 余额 ， 并 将 
withdraw 定 义 为 一 个 访问 balance 的 过 程 。 过 程 withdraw 检 查 是 否 balance 的 值 至 少 如 
amount 所 需 的 那么 多 ， 如 果 是 ，withdraw 就 从 balance 里 减 去 amount 并 返回 balance 
WA; 否则 witharaw 就 返回 消息 Insufficient funds。 下 面 是 palance 和 
withdraw Æ X: 

(define balance 100) 

(define (withdraw amount) 

(if (>= balance amount) 
(begin (set! balance (- balance amount) ) 


balance) 


"Insufficient funds") ) 


减少 balance 的 工作 由 下 面 表达 式 完成 : 

(set! balance (- balance amount)) 
其 中 使 用 了 特殊 形式 set ! ， 其 语法 是 : 

(set! <name> <new-value>) 

这 里 的 <name> 应 是 一 个 符号 ，<new-value> 是 任何 表达 式 。set ! 将 修改 <name>， 使 它 的 值 变 
成 求 值 <znew-value> 得 到 的 结果 。 在 上 面 例子 里 ， 我 们 改变 了 balance 的 值 ， 使 它 的 新 值 等 于 
从 balance 的 原 有 值 中 减 去 amount 后 的 结果 !'”?。 

在 过 程 withdraw 里 还 使 用 了 begin 特 殊 形式 ， 用 于 描述 对 两 个 表达 式 的 求 值 ， 在 iE 的 
检测 为 真 时 首先 减少 balance 的 值 ， 最 后 又 返回 balance 的 值 。 一 般 而 言 ， 对 下 面 表达 式 的 
求 值 : 

(begin <expi> <exp,> ... <exp,>) 

将 导致 表达 式 <exp1> 到 <expi> 按 顺序 求 值 ， 最 后 一 个 表达 式 <exp 心 的 值 又 将 作为 整个 begin 形 
式 的 值 返回 1!。 

虽然 withdraw 能 像 我 们 期 望 的 那样 工作 ， 变 量 balance 却 表现 出 一 个 问题 。 按 照 上 面 
的 描述 ，balance 是 定义 在 全 局 环境 里 的 一 个 名 字 ， 因 此 完全 可 以 自由 地 被 任何 过 程 检查 或 
者 修改 。 如 果 我 们 能 将 balance 做 成 为 vithdraw 内 部 的 东西 ， 情 况 就 会 好 得 多 ， 因 为 这 将 
使 withdraw 成 为 唯一 能 直接 访问 balance 的 过 程 ， 任 何其 他 过 程 都 只 能 间接 地 (通过 对 
withdraw 的 调用 ) 访问 balance。 这 样 才能 更 准确 地 模拟 有 关 的 概念 : balance 是 一 个 只 
由 withdraw 使 用 的 局 部 状态 变量 ， 用 于 保存 账户 状态 的 变化 轨迹 。 





29 实际 上 这 话 并 不 完全 对 。 一 个 例外 是 1.2.6 节 的 随机 数 生成 器 。 另 一 个 例外 涉及 到 我 们 在 2.4.3 节 引进 的 操作 / 
类 型 表格 ， 其 中 用 同样 参数 两 次 调用 get 得 到 的 值 依 赖 于 其 间 对 put 的 调用 。 当 然 ， 在 另 一 方面 ， 在 没有 介 
绍 赋值 之 前 ， 我 们 将 无 法 自己 创建 起 这 种 过 程 。 

B0 set ! 表 达 式 的 值 由 有 具体 实现 确定 。 通 常 只 应 该 利用 set ! 的 影响 而 不 用 它 的 值 。 名 字 set! 也 反应 了 Scheme 
所 用 的 一 种 命名 约定 : 改变 变量 值 (或 者 改变 数据 结构 ， 在 3.3 节 中 将 会 看 到 ) 的 操作 都 被 给 了 一 个 以 惊叹 号 
结尾 的 名 字 。 这 类 似 于 用 以 问号 结尾 的 名 字 表 示 谓 词 的 习惯 。 

n 我 们 早已 在 程序 里 使 用 过 begimna， 因 为 Scheme 里 的 过 程 体 本 身 就 可 以 是 表达 式 序列 。 还 有 ， 在 cond 表 达 式 
里 每 个 子 句 中 的 <consequent> 部 分 不 仅 可 以 是 一 个 表达 式 ， 也 可 以 是 表达 式 的 序列 。 


我 们 可 以 通过 下 面 方式 重 写 出 withdraw， 使 balance 成 为 它 内 部 的 东西 : 
(define new-withdraw 
(let ((balance 100) ) 
(lambda (amount) 
(if (>= balance amount) 
(begin (set! balance (- balance amount) ) 
balance) 
"Insufficient funds") ))) 


这 里 的 做 法 是 用 let 创 建 起 一 个 包含 局 部 变量 balance 的 环境 ， 并 使 它 约束 到 初始 值 100。 在 
这 个 局 部 环境 里 ,我 们 用 lambda 创 建 了 一 个 过 程 ， 它 以 amount 作 为 一 个 参数 ， 其 行为 就 像 
是 前 面 withdraw 的 过 程 。 通 过 对 表达 式 的 求 值 结果 返回 的 过 程 就 是 new-withdraw， 它 的 
行为 方式 就 像 是 withdraw， 但 其 中 的 变量 却 是 任何 其 他 过 程 都 不 能 访问 的 六 ，。 

将 set ! 与 局 部 变量 相 结 合 ， 形 成 了 一 种 具有 一 般 性 的 程序 设计 技术 ， 我 们 将 一 直 使 用 这 
种 技术 去 构造 带 有 局 部 状态 的 计算 对 象 。 但 是 ， 采 用 这 一 技术 也 引起 了 一 个 严重 的 问题 : 当 
我 们 最 早 介 绍 过 程 概念 时 ， 也 同时 介绍 了 求 值 的 代 换 模型 ( 见 1.1.5 节 )， 用 它 为 过 程 调用 的 意 
义 提 供 一 种 解释 。 那 时 我 们 说 ， 应 用 一 个 过 程 应 该 被 解释 为 ， 在 将 过 程 的 形式 参数 用 对 应 的 
值 取 代 之 后 求 值 这 一 过 程 的 体 。 现 在 就 出 现 新 的 麻烦 : 一 旦 在 语言 里 引进 了 赋值 ， 代 换 就 不 
再 适合 作为 过 程 应 用 的 模型 了 (我 们 将 在 3.1.3 节 看 到 其 中 的 原因 )。 作 为 这 种 情况 的 一 个 结果 ， 
我 们 现在 还 没有 办 法 在 技术 上 理解 为 什么 过 程 new-withdraw 会 有 上 面 所 说 的 行为 方式 。 为 
了 真正 理解 像 new-witharaw 这 样 的 过 程 ， 我 们 需要 为 过 程 应 用 开发 一 个 新 模型 。 这 一 模型 
将 在 3.2 节 里 介绍 ， 那 里 还 包括 对 set! 和 局 部 变量 的 解释 。 现 在 我 们 要 首先 检查 new- 
withdraw 所 提出 的 问题 的 几 种 变形 。 

下 面 过 程 make -withdraw 能 创建 出 一 种 “ 提 款 处 理 器 ”。make-withdraw 的 形式 参数 
balance 描 述 了 有 关 账 户 的 初始 余额 值 '3。 


(define (make-withdraw balance) 
(lambda (amount) 
(if (>= balance amount) 
(begin (set! balance (- balance amount)) 
balance) 
"Insufficient funds"))) 


下 面 用 make-withdraw 创 建 了 两 个 对 象 : 


(define W1 (make-withdraw 100) ) 
(define W2 (make-withdraw 100) ) 


(W1 50) 
50 


(W2 70) 
30 


HIRE PPI SITE, Witbalance MP Asst R fEnew-withdrawil Hi, HAR, Ti r 
谓 隐藏 原理 的 一 般 性 系统 设计 原则 : 通过 将 系统 中 不 同 的 部 分 保护 起 来 ， 也 就 是 说 ， 只 为 系统 中 那些 “必须 
知道 ”的 部 分 提供 信息 访问 ， 这 样 就 可 以 使 系统 更 模块 化 ， 更 强健 。 

3 与 上 面 new-withdraw 的 情况 不 同 ， 我 们 不 必 在 这 里 用 let 将 balance 做 成 局 部 变量 ， 因 为 形式 参数 本 身 
就 是 局 部 的 。 在 3.2 节 讨论 了 求 值 的 环境 模型 之 后 ， 这 些 就 会 更 清楚 了 ( 另 见 练习 3.10) 。 
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(W2 40) 
"Insufficient funds" 


(W1 40) 
10 
我 们 可 以 看 到 ，W1 和 W2 是 相互 完全 独立 的 对 象 ， 每 一 个 都 有 自己 的 局 部 状态 变量 balance， 
从 一 个 对 象 提 款 与 另 一 个 毫 无 关系 。 
我 们 还 可 以 创建 出 除了 提 款 还 能 够 存 人 款项 的 对 象 ， 这 样 就 可 以 表示 简单 的 银行 账户 了 。 
下 面 是 一 个 过 程 ， 它 返回 一 个 具有 给 定 初始 余额 的 “银行 账户 对 象 ”: 
(define (make-account balance) 
(define (withdraw amount) 
(if (>= balance amount) 
(begin (set! balance (- balance amount) ) 
balance) 
"Insufficient funds") ) 
(define (deposit amount) 
(set! balance (+ balance amount) ) 
balance) 
(define (dispatch m) 
(cond ((eq? m ’withdraw) withdraw) 
((eq? m ‘deposit) deposit) 
(else (error "Unknown request -- MAKE-ACCOUNT" 
m)))) 
dispatch) 
对 于 make-account 的 每 次 调用 将 设置 好 一 个 带 有 局 部 状态 变量 balance 的 环境 ， 在 这 个 环 
境 里 ，make-account 定 义 了 能 够 访问 balance 的 过 程 deposit 和 withdraw， 另 外 还 有 
一 个 过 程 aispatch， 它 以 一 个 “消息 ”作为 输入 ， 返 回 这 两 个 局 部 过 程 之 一 。 过 程 
dispatch 本 身 将 被 返回 ， 作 为 表示 有 关 银 行 账户 对 象 的 值 。 这 正好 就 是 我 们 在 2.4.3 节 已 经 
看 到 过 的 程序 设计 的 消息 传递 风格 ， 当 然 ， 这 里 将 它 与 修改 局 部 变量 的 功能 一 起 使 用 。 
过 程 make-account 可 以 像 下 面 这 样 使 用 : 


(define acc (make-account 100)) 


((acc “withdraw) 50) 
50 


( (acc ’withdraw) 60) 
"Insufficient funds" 


( (acc deposit) 40) 
90 


( (acc 'withdraw) 60) 
30 


对 acc 的 每 次 调用 将 返回 局 部 定义 的 deposit 或 者 withdraw 过 程 ， 这 个 过 程 随后 被 应 用 于 
给 定 的 amount 。 就 像 make-withdaraw 一 样 ， 对 make-account 的 另 一 次 调用 
(define acc2 (make-account 100) ) 


将 产生 出 另 一 个 完全 独立 的 账户 对 象 ， 维 持 着 它 自 己 的 局 部 balance。 
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练习 3.1 ”一 个 果 加 器 是 一 个 过 程 ， 反 复 用 数值 参数 调用 它 ， 就 会 使 它 的 各 个 参数 累加 到 
一 个 和 数 中 。 每 次 调用 时 累加 器 将 返回 当前 的 累加 和 。 请 写 出 一 个 生成 累加 器 的 过 程 make - 
accumulator， 它 所 生成 的 每 个 累加 器 维持 着 一 个 独立 的 和 。 送 给 make-accumulator 的 
输入 描述 了 有 关 和 数 的 初始 值 ， 例 如 : 

(define A (make-accumulator 5)) 

(A 10) 


15 


(A 10) 
25 


练习 3.2 ”在 对 应 用 程序 做 软件 测试 时 ， 能 够 统计 出 在 计算 过 程 中 某 个 给 定 过 程 被 调用 的 
次 数 常 常 很 有 用 处 。 请 写 出 一 个 过 程 make-monitored， 它 以 一 个 过 程 f 作 为 输入 ,该 过 程 
本 身 有 一 个 输入 。make -monitored 返 回 的 结果 是 第 三 个 过 程 ， 比 如 说 mf ， 它 将 用 一 个 内 
部 计数 器 维持 着 自己 被 调用 的 次 数 。 如 果 mf 的 输入 是 特殊 符号 how-many-calls?， 那 么 mf 
就 返回 内 部 计数 器 的 值 ， 如 果 输 入 是 特殊 符号 reset-count， 那 么 mf 就 将 计数 器 重新 设置 
为 0; 对 于 任何 其 他 输入 ，mf 将 返回 过 程 E 应 用 于 这 一 输入 的 结果 ， 并 将 内 部 计数 器 加 一 。 例 
如 ， 我 们 可 能 以 下 面 方式 做 出 过 程 sqrt 的 一 个 受 监视 的 版 本 : 

(define s (make-monitored sqrt)) 

(s 100) 


10 


(s ‘how-many-calls?) 
Al: 


练习 3.3 ”请 修改 make-account 过 程 ， 使 它 能 创建 一 种 带 密码 保护 的 账户 。 也 就 是 说 ， 
应 该 让 make-account 以 一 个 符号 作为 附加 的 参数 ， 就 像 : 

(define acc (make-account 100 “secret-password) ) 
这 样 产 生 的 账户 对 象 在 接 到 一 个 请 求 时 ， 只 有 同时 提供 了 账户 创建 时 给 定 的 密码 ， 它 才 处 理 
这 一 请 求 ， 否 则 就 发 出 一 个 抱怨 信息 : 

((acc ’secret-password ’withdraw) 40) 


60 


( (acc *some-other-password ‘deposit) 50) 


"Incorrect password" 


练习 3.4 ”请 修改 练习 3.3 中 的 make-account 过 程 ， 加 上 另 一 个 局 部 状态 变量 ， 使 得 如 
果 一 个 账户 被 用 不 正确 的 密码 连续 访问 了 7 次 ， 它 就 将 去 调用 过 程 call -the-cops (M% 
察 )。 


3.1.2 引进 赋值 带 来 的 利益 


正如 下 面 将 要 看 到 的 ， 将 赋值 引进 所 用 的 程序 设计 语言 ， 将 会 使 我 们 陷入 许多 困难 的 概 
念 问题 的 从 林 之 中 。 但 无 论 如 何 ， 将 系统 看 作 是 一 集 带 有 局 部 状态 的 对 象 ， 也 是 一 种 维护 模 
块 化 设计 的 强 有 力 技 术 。 作 为 一 个 简单 实例 ， 现 在 考虑 如 何 设计 出 一 个 过 程 rand， 每 次 它 被 
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调用 时 就 会 返回 一 个 随机 选 出 的 整数 。 

“随机 选择 ”的 意思 并 不 清楚 。 其 实 ， 我 们 实际 希望 的 就 是 ， 对 rand 的 反复 调用 将 产生 
出 一 系列 的 数 ， 这 一 序列 具有 均匀 分 布 的 统计 性 质 。 我 们 不 准备 去 讨论 生成 合适 序列 的 方法 ， 
相反 ， 现 在 假定 我 们 已 经 有 一 个 过 程 zand-update， 它 的 性 质 就 是 ， 如 果 从 一 个 给 定 的 数 x 
开始 ， 执 行 下 面 操作 


Xe (rand-update x,) 


Xa 


BEF IX, 22, 33, 将 具有 我 们 所 希望 的 性 质 '3。 

我 们 可 以 将 rand 实 现 为 一 个 带 有 局 部 状态 变量 x 的 过 程 ， 其 中 将 这 个 变量 初始 化 为 某 个 
固定 值 random-init。 对 rand 的 每 次 调用 算出 当前 x 值 的 rand-update 值 ， 将 这 个 值 返 回 
作为 随机 数 ， 并 将 它 存 入 作为 x 的 新 值 。 


(define rand 


(rand-update x,) 


(let ((x random-init)) 
(lambda () 
(set! x (rand-update x)) 
x))) 


当然 ， 即 使 不 用 赋值 ， 我 们 也 可 以 通过 简单 地 直接 调用 rand-update， 生 成 同样 的 随机 
数 序 列 。 但 是 ， 这 也 就 意味 着 程序 中 任何 使 用 随机 数 的 部 分 都 必须 显 式 地 记 住 ,需要 将 x 的 当 
前 值 送 给 rand-update 作 为 参数 。 要 想 看 看 这 样 做 会 造成 多 少 烦 恼 ， 现 在 考虑 一 下 用 随机 
数 实现 一 种 称 为 蒙特 卡 罗 模 拟 的 技术 。 

蒙特 卡 罗 方 法 包括 从 一 个 大 集合 里 随机 选择 试验 样本 ， 并 在 对 这 些 试验 结果 的 统计 估计 
的 基础 上 做 出 推断 。 举 例 来 说 ，6/r "是 随机 选取 的 两 个 整数 之 间 没 有 公共 因子 (也 就 是 说 ， 它 
们 的 最 大 公 因 子 是 1) 的 概率 。 我 们 可 以 利用 这 一 事实 做 出 x 的 近似 值 。 为 了 副 进 的 值 ， 我 
们 需要 进行 大 量 的 试验 。 在 每 次 试验 中 随机 选择 两 个 整数 并 检查 它们 的 GCD 是 否 为 1。 通 过 这 
一 检查 的 次 数 比 率 将 给 出 我 们 对 6/ze 的 估计 值 ， 由 它 就 可 以 得 到 x 的 近似 值 。 

这 一 程序 的 核心 是 过 程 monte-carlo， 它 以 做 某 个 试验 的 次 数 ， 以 及 这 个 试验 本 身 作为 
参数 。 有 关 试 验 用 一 个 无 参 过 程 表示 ， 返 回 的 是 每 次 运行 的 结果 为 真 或 假 。monte-carlo 
运行 这 个 试验 指定 的 次 数 ， 它 返回 一 个 值 ， 告 知 在 所 做 的 这 些 次 试验 中 得 到 真 的 比例 。 

(define (estimate-pi trials) 

(sqrt (/ 6 (monte-carlo trials cesaro-test)))) 

(define (cesaro-test) 


(= (gcd (rand) (rand)) 1)) 


(define (monte-carlo trials experiment) 


3 实现 rand-update 的 一 种 常见 方法 就 是 采用 将 x 更 新 为 ax 十 b 取 模 m 的 规则 ， 其 中 的 a、b 和 m 都 是 适当 选 出 的 
整数 。Knuth 1981 的 第 3 章 里 包含 了 有 关 随 机 数 序列 生成 和 建立 其 统计 性 质 的 深入 讨论 。 请 注意 ，rand- 
update 是 计算 一 个 数学 函数 ， 两 次 给 它 同 一 个 输入 ， 它 将 产生 出 同一 个 输出 。 这 样 ， 如 果 “ 随 机 ”强调 的 
是 序列 中 每 个 数 与 其 前 面 的 数 无 关 的 话 ， 由 rand-update 生 成 的 数 序 列 肯定 不 是 “随机 的 "。 在 “真正 的 随 
机 性 ”与 所 谓 伪 随机 序列 (由 定义 良好 的 确定 性 计算 产生 出 的 但 又 具有 适当 统计 性 质 的 序列 ) 之 间 的 关系 是 
一 个 非常 复杂 的 问题 ， 涉 及 到 数学 和 和 哲学 中 的 一 些 困难 问题 。Kolmogorov、Solomonoff 和 Chaitin 为 这 些 问题 
做 出 了 很 多 贡献 ， 从 Chaitin 1975 可 以 找到 有 关 的 讨论 。 

35 这 个 定理 出 自 E. Cesaro， 见 Knuth 1981 4.5.2 节 的 讨论 和 证 明 。 
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(define (iter trials-remaining trials-passed) 
(cond ((= trials-remaining 0) 


(/ trials-passed trials) ) 


( (experiment) 

(iter (- trials-remaining 1) (+ trials-passed 1))) 
(else 

(iter (- trials-remaining 1) trials-passed) ))) 


(iter trials 0)) 


现在 让 我 们 试 一 试 不 用 rand， 直 接 用 rand-update 完 成 同一 个 计算 。 如 果 我 们 不 使 用 
赋值 去 模拟 局 部 状态 ， 那 么 将 不 得 不 采取 下 面 的 做 法 : 
(define (estimate-pi trials) 


(sqrt (/ 6 (random-gcd-test trials random-init)))) 


(define (random-gcd-test trials initial-x) 
(define (iter trials-remaining trials-passed x) 
(let ((x1 (rand-update x))) 
(let ((x2 (rand-update x1))) 
(cond ((= trials-remaining 0) 
(/ trials-passed trials)) 
(t= (Ed 21 #2) 1) 
(iter (- trials-remaining 1) 
(+ trials-passed 1) 
x2) ) 
(else 
(iter (- trials-remaining 1) 
trials-passed 
x2)))))) 
(iter trials 0 initial-x) ) 
虽然 这 个 程序 还 是 比较 简单 的 ， 但 它 却 在 模块 化 上 打开 了 一 些 令 人 感到 很 痛苦 的 缺口 。 
在 上 面 的 第 一 个 使 用 rand 的 程序 里 ,我 们 可 以 将 蒙特 卡 罗 方 法 直接 表述 为 一 个 通用 过 程 
monte-carlo， 它 以 一 个 任意 的 experiment 过 程 为 参数 。 而 在 同一 程序 的 第 二 个 版 本 中 ， 
由 于 没有 随机 数 生 成 颖 的 局 部 状态 ,random-gcd-test 就 必须 显 式 地 去 操作 随机 数 x1l1 和 x2， 
并 通过 一 个 迭代 过 程 将 x2 送 给 zand-update 作 为 新 的 输入 。 这 种 对 于 随机 数 的 显 式 处 理 动 
作 与 积累 检查 结果 的 结构 交织 在 一 起 。 在 这 里 ， 我 们 在 当前 的 特定 试验 中 使 用 了 两 个 随机 数 ， 
而 其 他 蒙特 卡 罗 试 验 里 完全 可 能 使 用 一 个 或 者 三 个 随机 数 。 甚 至 在 过 程 estimate-pi 的 最 
上 层 ， 也 必须 关心 提供 初始 随机 数 的 问题 。 由 于 内 部 的 随机 数 生成 器 被 暴露 出 来 ， 进 入 了 程 
序 的 其 他 部 分 ， 这 就 使 我 们 很 难 将 蒙特 卡 罗 方 法 的 思想 孤立 出 来 ， 使 之 可 以 应 用 于 其 他 工作 。 
在 程序 的 第 一 个 版 本 里 ， 由 于 通过 赋值 将 随机 数 生成 器 的 状态 隔离 在 过 程 rand 的 内 部 ， 因 此 
就 使 随机 数 生成 的 细节 完全 独立 于 程序 的 其 他 部 分 了 。 
由 上 面 蒙特 卡 罗 方 法 实例 展示 出 的 一 种 具有 普遍 性 的 现象 是 : 从 一 个 复杂 计算 过 程 中 一 
部 分 的 观点 看 ， 其 他 部 分 都 像 是 在 随 着 时 间 不 断 变化 ， 它 们 隐藏 起 自己 的 随时 间 变 化 的 内 部 
状态 。 假 设 我 们 希望 写 出 一 个 计算 机 程序 ， 反 映 这 种 系统 分 解 ， 那 么 就 需要 让 计算 对 象 ( 例 
如 银行 账户 和 随机 数 生成 器 ) 的 行为 随 着 时 间 变 化 ， 用 局 部 状态 变量 去 模拟 系统 的 状态 ， 用 
对 这 些 变 量 的 赋值 去 模拟 状态 的 变化 。 
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目前 我 们 可 能 很 想 用 下 面 的 话 作为 这 段 讨论 的 总 结 : 与 所 有 状态 都 必须 显 式 地 操作 和 传 
递 额外 参数 的 方式 相 比 ， 通 过 引进 赋值 和 将 状态 隐藏 在 局 部 变量 中 的 技术 ， 我 们 能 以 一 种 更 
模块 化 的 方式 构造 系统 。 可 惜 的 是 事情 并 不 是 这 么 简单 ， 我 们 很 快 就 会 看 到 这 一 点 。 

练习 3.5 ”蒙特 卡 罗 积 分 是 一 种 通过 蒙特 卡 罗 模 拟 估 计 定 积分 值 的 方法 。 考 虑 由 谓词 PCc, y) 
描述 的 一 个 区 域 的 面积 计算 问题 ， 该 谓词 对 于 此 区 域内 部 的 点 (x, y) 为 真 ， 对 于 不 在 区 域内 的 
点 为 假 。 举 例 来 说 ， 包 含 在 以 (5, 7) 为 圆心 半径 为 3 的 圆圈 所 围 成 的 区 域 ， 可 以 用 检查 公式 
G-5)2+0 一 7)2 和 3? 是 否 成 立 的 谓词 描述 。 要 估计 这 样 一 个 谓词 所 描述 的 区 域 的 面积 ， 我 们 
应 首先 选取 一 个 包含 该 区 域 的 矩形 。 例 如 ， 以 (2, 4) 和 (8, 10) 作为 对 角 点 的 矩形 包含 着 上 
面 的 圆 。 需 要 确定 的 积分 也 就 是 这 一 矩形 中 位 于 所 关注 区 域内 的 那个 部 分 。 我 们 可 以 这 样 估 
计 积 分 值 : 随机 选取 位 于 抑 形 中 的 点 (x, y)， 对 每 个 点 检查 P(x, y)， 确 定 该 点 是 否 位 于 所 考 
虑 的 区 域内 。 如 果 试 了 足够 多 的 点 ， 那 么 落 在 区 域内 的 点 的 比率 将 能 给 出 矩形 中 有 关 区 域 的 
比率 。 这 样 ， 用 这 一 比率 去 乘 整个 矩形 的 面积 ， 就 能 得 到 相应 积分 的 一 个 估计 值 。 

将 蒙特 卡 罗 积 分 实现 为 一 个 过 程 estimate-integral， 它 以 一 个 谓词 Pp， 甜 形 的 上 下 
边界 x1、x2、yl 和 y2， 以 及 为 产生 估计 值 而 要 求 试验 的 次 数 作 为 参数 。 你 的 过 程 应 该 使 用 
上 面 用 于 估计 7 值 的 同一 个 monte-carlo 过 程 。 请 用 你 的 estimate-integral, 通过 对 
单位 圆 面积 的 度量 产生 出 x 的 一 个 估计 值 。 

你 可 能 发 现 ， 有 一 个 从 给 定 区 域 中 选取 随机 数 的 过 程 非常 有 用 。 下 面 的 random-in- 
range 过 程 利用 1.2.6 节 里 使 用 的 random 实 现 这 一 工作 ， 它 返回 一 个 小 于 其 输入 的 非 负数 '”。 

(define (random-in-range low high) 


(let ((range (- high low))) 


(+ low (random range)))) 


练习 3.6 ”有 了 时 也 需要 能 重 置 随机 数 生成 器 ， 以 便 从 某 个 给 定 值 开始 生成 随机 数 序 列 。 请 重 
新 设计 一 个 rand 过 程 ， 使 得 我 们 可 以 用 符号 generate 或 者 符号 reset 作 为 参数 去 调用 它 。 其 
行为 是 : (rand ' generate) 将 产生 出 一 个 新 随机 数 , ((rand ' reset) <new-value>) 
将 内 部 状态 变量 重新 设置 为 指定 的 值 <new-value>。 通 过 这 样 重 置 状态 ， 我 们 就 可 以 重复 生成 同 
样 的 序列 。 在 使 用 随机 数 测试 程序 ， 排 除 其 中 错误 时 ， 这 种 功能 非常 有 用 。 


3.1.3 引进 赋值 的 代价 


正如 在 上 面 已 经 看 到 的 ，set ! 操 作 使 我 们 可 以 去 模拟 带 有 局 部 状态 的 对 象 。 然 而 ， 这 一 
获 益 也 有 一 个 代价 ， 它 使 得 我 们 的 程序 设计 语言 不 能 再 用 1.1.5 节 介绍 的 过 程 应 用 的 代 换 模型 
解释 了 。 进 一 步 说 ， 任 何 具 有 “漂亮 ”数学 性 质 的 简单 模型 ， 都 不 可 能 继续 适合 作为 处 理 程 
序 设计 语言 里 的 对 象 和 赋值 的 框架 了 。 

只 要 我 们 不 使 用 赋值 ， 以 同样 参数 对 同一 过 程 的 两 次 求 值 一 定 产生 出 同样 的 结果 ， 因 此 
就 可 以 认为 过 程 是 在 计算 数学 函数 。 像 我 们 在 本 书 的 前 两 章 中 所 做 的 那样 ， 不 用 任何 赋值 的 
程序 设计 称 为 函数 式 程序 设计 。 

要 理解 赋值 将 怎样 使 事情 复杂 化 了 ， 现 在 考虑 3.1.1 节 中 make-withdraw 过 程 的 一 个 简 
化 版 本 ， 其 中 不 再 关注 是 否 有 足够 余额 的 问题 : 


136 MIT Scheme 提供 了 这 个 过 程 。 如 果 给 的 是 精确 整数 (就 像 1.2.6 中 那样 )， 它 返回 一 个 精确 整数 ， 而 如 果 给 它 
一 个 十 进 制 数值 (就 像 在 这 个 练习 里 )， 它 就 返回 一 个 十 进 制 数值 。 


(define (make-simplified-withdraw balance) 
(lambda (amount) 
(set! balance (- balance amount) ) 


balance) ) 
(define W (make-simplified-withdraw 25) ) 


(W 20) 
g 


(W 10) 
=5 

请 将 这 一 过 程 与 下 面 make-decrementer 过 程 做 一 个 比较 ， 该 过 程 里 没有 用 set ! : 
(define (make-decrementer balance) 


(lambda (amount) 


(- balance amount))) 


make-decrementer 返 回 的 是 一 个 过 程 ， 该 过 程 从 指定 的 量 palance 中 减 去 其 输入 ,但 顺 
序 调用 时 却 不 会 像 make-simplified-withdraw 那 样 产生 累积 的 结果 
(define D (make-decrementer 25)) 


(D 20) 
5 


(D 10) 
tS 


我 们 可 以 用 代 换 模型 解释 make -decrementer 如 何 工 作 。 举 例 来 说 ， 让 我 们 分 析 一 下 下 面 
表达 式 的 求 值 过 程 : 
((make-decrementer 25) 20) 


首先 简化 组 合式 中 的 操作 符 ， 用 25 代 换 make-daecrementez 的 体 里 的 baLance。 这 样 就 归 


约 出 了 下 面 的 表达 式 : 
((lambda (amount) (- 25 amount)) 20) 
随后 应 用 运算 符 ， 用 20 代 换 1ambda 表 达 式 体 里 的 amount: 
(= 25 20) 
最 后 结果 是 5。 


现在 看 看 ， 如 果 将 类 似 的 代 换 分 析 用 于 make-simplified-withdraw, 会 出 现 什么 情 
况 : 

((make-simplified-withdraw 25) 20) 
先 简化 其 中 的 运算 符 ， 用 25 代 换 make-simplified-withdraw 体 里 的 balance， 这样 就 
归 约 出 了 下 面 的 表达 式 ”: 

((lambda (amount) (set! balance (- 25 amount)) 25) 20) 


现在 应 用 其 中 的 运算 符 ， 用 20 代 换 lambda 表 达 式 体 里 的 amount: 


57 我 们 没有 代 换 set ! 表 达 式 里 的 balance 出 现 ， 因 为 在 set ! 里 的 <name> 并 不 求 值 。 如 果 代 换 掉 它 ， 得 到 的 
(set! 25 (- 25 amount)) 根本 就 没有 意义 。 
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(set! balance (- 25 20)) 25 


如 果 我 们 坚持 使 用 代 换 模型 ， 那 么 就 必须 说 ， 这 个 过 程 应 用 的 结果 是 首先 将 balance 设 置 为 
5， 而 后 返回 25 作 为 表达 式 的 值 。 这 样 得 到 的 结果 当然 是 错误 的 。 为 了 得 到 正确 答案 ， 我 们 将 
不 得 不 对 balance 的 第 一 个 出 现 〈 在 set ! 作 用 之 前 ) 和 它 的 第 二 个 出 现 (在 set ! 作 用 之 后 ) 
加 以 区 分 ， 而 代 换 模型 根本 无 法 完成 这 件 事情 。 

这 里 的 麻烦 在 于 ， 从 本 质 上 说 ， 代 换 的 最 终 基础 就 是 ， 这 一 语言 里 的 符号 不 过 是 作为 值 
的 名 字 。 而 一 旦 引进 了 set ! 和 变量 的 值 可 以 变化 的 想法 ， 一 个 变量 就 不 再 是 一 个 简单 的 名 字 
了 。 现 在 的 一 个 变量 索引 着 一 个 可 以 保存 值 的 位 置 ， 而 存储 在 那里 的 值 也 是 可 以 改变 的 。 在 
3.2 节 里 将 会 看 到 ， 在 我 们 的 计算 模型 里 ， 环 境 将 怎样 扮演 着 “位 置 ” 的 角色 。 


同一 和 变化 

从 这 里 暴露 出 的 问题 ， 远 远 不 是 简单 地 打破 了 一 个 特定 计算 模型 ， 其 意义 要 更 深远 得 多 。 
一 旦 将 变化 引进 了 我 们 的 计算 模型 ， 许 多 以 前 非常 简单 明了 的 概念 现在 都 变 得 有 问题 了 。 首 
先 考虑 两 个 物体 实际 上 “同一 ”的 概念 。 

假定 我 们 用 同样 的 参数 调用 make-decrementer 两 次 ， 就 会 创建 出 两 个 过 程 : 

(define D1 (make-decrementer 25)) 

(define D2 (make-decrementer 25)) 

D1 和 D2 是 同一 的 吗 ? “是 ”是 一 个 可 以 接受 的 回答 ， 因 为 Dl 和 D2 具有 同样 的 计算 行为 一 一 
都 是 同样 的 将 会 从 其 输入 里 减 去 25 的 过 程 。 事 实 上 ， 我 们 确实 可 以 在 任何 计算 中 用 D1 代替 D2 而 
\ 会 改变 结果 。 

与 此 相对 应 的 是 调用 make-simplified-withdraw 两 次 : 

(define W1 (make-simplified-withdraw 25)) 


(define W2 (make-simplified-withdraw 25)) 


Wi 和 W2 是 同一 的 吗 ? 显然 不 是 ， 因 为 对 wl 和 W2 的 调用 会 有 不 同 的 效果 ， 下 面 的 交互 显示 出 
这 方面 的 情况 : 

(W1 20) 

5 

(W1 20) 

-15 

(W2 20) 

5 
虽然 Wl 和 W2 都 是 通过 对 同样 表达 式 (make-simplified-withdraw 25) 的 求 值 创建 起 
来 的 东西 ， 从 这 个 角度 可 以 说 它们 “同一 "。 但 如 果 说 在 任何 表达 式 里 都 可 以 用 WwW1L 代 替 W2 ， 
而 不 会 改变 表达 式 的 求 值 结果 ， 那 就 不 对 了 。 

如 果 一 个 语言 支持 在 表达 式 里 “同一 的 东西 可 以 相互 替换 ”的 观念 ， 这 样 替换 不 会 改变 
有 关 表 达 式 的 值 ， 这 个 语言 就 称 为 是 具有 引用 透明 性 。 在 我 们 的 计算 机 语言 里 包含 了 set ! 之 
后 ， 也 就 打破 了 引用 透明 性 ， 就 使 确定 能 否 通过 等 价 的 表达 式 代 换 去 简化 表达 式 变 成 了 一 个 
异常 错综复杂 的 问题 了 。 由 于 这 种 情况 ， 对 使 用 赋值 的 程序 做 推理 也 将 变 得 极其 困难 。 

一 旦 我 们 抛弃 了 引用 透明 性 ， 有 关 计 算 对 象 “ 同 一 ”的 意义 问题 就 很 难 形式 地 定义 清楚 
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了 。 实 际 上 ， 在 我 们 企图 用 计算 机 程序 去 模拟 的 现实 世界 里 ,“ 同 一 ”的 意义 本 身 就 是 很 难 搞 
清楚 的 。 一 般 而 言 ， 我 们 只 能 用 如 下 方式 确定 两 个 看 起 来 同一 的 事物 是 否 确实 是 “同一 个 东 
PR”: 改变 其 中 的 一 个 对 象 ， 去 看 另 一 个 对 象 是 否 也 同样 改变 了 。 但 是 ， 如 果 不 能 通过 观察 
“同一 个 ”对 象 两 次 ， 看 看 一 次 观察 中 看 到 的 某 些 对 象 性 质 与 另 一 次 不 同 ， 我 们 又 怎么 能 说 清 
楚 一 个 对 象 是否 “ 变 化 ”了 呢 ?” 所 以 ， 如 果 没 有 有 关 “ 同 一 ”的 某 些 先 验 观 念 ， 我 们 也 就 不 
可 能 确定 “变化 ”， 而 不 能 看 到 变化 的 影响 又 无 法 确定 同一 性 。 

现在 举例 说 明 这 一 问题 会 如 何 出 现在 程序 设计 里 。 现 在 考虑 一 种 新 情况 ， 假 定 Peter 和 
Paul 有 银行 账户 ， 其 中 有 100 块 钱 。 关 于 这 一 事实 的 如 下 模拟 : 


(define peter-acc (make-account 100)) 


(define paul-acc (make-account 100)) 


和 如 下 模拟 之 间 有 着 实质 性 的 不 同 : 
(define peter-acc (make-account 100)) 


(define paul-acc peter-acc) 


在 前 一 个 情况 里 ， 有 关 的 两 个 银行 账户 互 不 相同 。Peter 所 做 的 交易 将 不 会 影响 Paul 的 账户 ， 
反 过 来 也 一 样 。 而 对 于 后 一 种 情况 ， 显 然 ， 由 于 这 里 把 Paul-acc 定 义 为 与 peter-acc 是 同 
一 个 东西 ， 结 果 就 使 现在 Peter 和 Paul 共 有 一 个 共用 的 账户 ， 如 果 Peter 从 peter-acc 支 取 了 一 
笔 款 ，Paul 就 会 看 到 在 Paul-acc 里 少 了 钱 。 在 构造 计算 模型 时 ， 这 两 种 相近 但 又 不 同 的 情况 
就 可 能 造成 混乱 。 特 别 是 其 中 共享 账户 的 情形 特别 容易 造成 混乱 ， 因 为 在 这 里 ， 同 一 个 对 象 
(那个 银行 账户 ) 具有 两 个 不 同 的 名 字 (peter-acc 和 paul-acc)， 如 果 我 们 想 在 程序 里 搜 
索 出 paul-acc 可 能 被 修改 的 所 有 位 置 ， 我 们 还 必须 记 住 ， 也 需要 检查 那些 修改 peter-acc 
的 地 方 '3。 

有 了 前 面 有 关 “ 同 一 ”和 “变化 ”的 论述 ， 如 果 Peter 和 Paul 只 能 检查 他 们 的 银行 账户 ， 
而 不 能 执行 修改 余额 的 操作 ， 那 么 看 清 这 两 个 账户 是 否 不 同 的 问题 就 需要 仔细 讨论 了 。 一 般 
而 言 ， 如 果 我 们 绝 不 修改 数据 对 象 ， 那 么 就 可 以 将 一 个 复合 数据 对 象 完 全 看 作 是 由 其 片段 组 
成 的 一 个 整体 。 例 如 ， 一 个 有 理 数 是 完全 由 它 的 分 子 和 分 母 确定 的 。 如 果 出 现 了 修改 ， 这 一 
观点 也 就 不 再 合法 了 ， 此 时 复合 数据 对 象 有 了 一 个 “标识 ”， 而 它 又 是 与 组 成 这 一 对 象 的 各 片 
段 都 不 同 的 东西 。 即 使 我 们 通过 提 款 修改 了 一 个 账户 的 余额 ， 这 个 账户 仍然 是 “同一 个 ” 账 
户 。 与 此 相反 ， 我 们 也 可 能 有 两 个 银行 账户 ， 它 们 具有 相同 的 状态 信息 。 这 种 复杂 性 是 将 银 
行 账户 看 作 一 个 对 象 而 产生 的 结果 ， 而 不 是 程序 设计 语言 的 问题 。 例 如 ， 通 常 我 们 不 将 一 个 
有 理 数 看 作 具 有 标识 的 可 修改 对 象 ， 并 不 想 修改 其 分 子 并 保持 “同一 个 ”有 理 数 。 

命令 式 程序 设计 的 缺陷 

与 函数 式 程序 设计 相对 应 的 ， 广 泛 采用 赋值 的 程序 设计 被 称 为 命令 式 程序 设计 。 除 了 会 


3 一 个 计算 对 象 可 以 通过 多 于 一 个 名 字 访 问 的 现象 称 为 别名 。 共 有 银行 账户 的 例子 里 展示 的 是 别名 的 一 种 最 简 
单 情况 。 在 3.3 节 里 ， 我 们 还 将 看 到 一 些 更 复杂 的 例子 ， 例 如 “不 同 ” 数 据 结 构 共 享 某 些 部 分 。 如 果 对 一 个 对 
象 的 修改 可 能 由 于 “副作用 ”而 修改 了 另 一 “不 同 的 ”对 象 ， 因 为 这 两 个 “不 同 ” 对 象 实际 上 只 是 同一 个 对 
象 的 不 同 别名 ， 当 我 们 忘记 这 一 情况 ， 程 序 里 就 可 能 出 现 错误 。 这 种 错误 被 称 作 副作用 错误 ， 是 特别 难以 定 
位 和 分 析 的 ， 因 此 某 些 人 建议 说 ， 程 序 设计 语言 的 设计 应 该 不 允许 副作用 或 者 别名 (Lampson et al. 1981, 
Morris, Schmidt, and Wadler 1980) 。 
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导致 计算 模型 的 复杂 性 之 外 ， 以 命令 式 风 格 写 出 的 程序 还 很 容易 出 现 一 些 不 会 在 函数 式 程序 
中 出 现 的 错误 。 举 例 来 说 ,现在 重 看 一 下 1.2.1 市 里 的 迭代 式 求 阶乘 程序 : 
(define (factorial n) 
(define (iter product counter) 
(if (> counter n) 
product 
(iter (* counter product) 
(+ counter 1)))) 
(iter 1 1)) 


我 们 也 可 以 不 通过 内 部 返 代 循环 传递 参数 ， 而 是 采用 更 命令 式 的 风格 ， 显 式 地 通过 赋值 去 更 
新 变量 product 和 和 counter 的 值 : 


(define (factorial n) 
(let ((product 1) 
(counter 1)) 
(define (iter) 
(if (> counter n) 
product 
(begin (set! product (* counter product) ) 
(set! counter (+ counter 1)) 
(iter)))) 
(iter) )) 


这 样 做 不 会 改变 程序 产生 的 结果 ， 但 却 会 引进 一 个 很 微妙 的 陷阱 。 我 们 应 该 如 何 确 定 两 个 赋 
值 的 顺序 呢 ? 像 上 面 那样 写 出 的 程序 是 正确 的 ， 但 如 果 以 相反 顺序 写 这 两 个 赋值 : 


(set! counter (+ counter 1) ) 


(set! product (* counter product) ) 


就 会 产生 出 与 上 面 不 同 的 错误 结果 。 一 般 而 言 ， 带 有 赋值 的 程序 将 强迫 人 们 去 考虑 赋值 的 相 
对 顺序 ， 以 保证 每 个 语句 所 用 的 是 被 修改 变量 的 正确 版 本 。 在 函数 式 程序 设计 中 ， 这 类 问题 
根本 就 不 会 出 现 '”。 

如 果 考 虑 有 着 多 个 并 发 执行 的 进程 的 应 用 程序 ， 命 令 式 程序 设计 的 复杂 性 还 会 变 得 更 粳 
糕 。 我 们 将 在 3.4 节 回 到 这 个 问题 。 现 在 首先 需要 解决 的 问题 ， 当 然 是 为 涉及 赋值 的 表达 式 提 
供 一 种 计算 模型 ， 以 便 考察 在 模拟 的 设计 中 如 何 使 用 具有 局 部 状态 的 对 象 。 

练习 3.7 “考虑 如 练习 3.3 所 描述 的 ， 由 make-account 创 建 的 带 有 密码 的 银行 账户 对 象 。 
假定 我 们 的 银行 系统 中 需要 一 种 提供 共用 账户 的 能 力 。 请 定义 过 程 make-joint 创 建 这 种 账 
户 。make-joint 应 该 有 三 个 参数 : 第 一 个 是 有 密码 保护 的 账户 ， 第 二 个 参数 是 一 个 密码 ， 
它 必须 与 那个 已 经 定义 的 账户 的 密码 匹配 ， 以 使 nake-joint 操 作 能 够 继续 下 去 ， 第 三 个 参 
数 是 新 密码 。make-joint 用 这 一 新 密码 创建 起 对 那个 原 有 账户 的 另 一 访问 途径 。 例 如 ， 如 


3 这 种 看 法 也 说 明 ， 大 部 分 的 引 论 性 程序 设计 课程 采用 高 度 命令 式 风 格 教授 ， 这 确实 是 一 件 令 和 人 啼笑皆非 的 事 
情 。 这 一 情况 可 能 源 自 20 世 纪 60 年 代 到 70 年 代 中 流行 的 一 种 常见 看 法 的 残存 遗迹 ， 那 种 看 法 说 调用 过 程 的 程 
序 一 定 比 执行 赋值 的 程序 效率 更 低 (Steele (1977) 批 驶 了 这 一 论断 )。 还 有 ， 这 种 情况 也 可 能 反应 了 另 一 种 
观点 ， 认 为 让 初学 者 一 步 步 地 看 赋值 比 观察 过 程 调 用 更 容易 。 无 论 出 于 什么 原因 ， 它 总 是 给 初学 程序 设计 的 
人 们 增加 了 关注 “我 应 该 把 给 这 个 变量 的 赋值 放 在 另 一 个 之 前 呢 还 是 之 后 ”的 负担 ， 这 会 使 程序 设计 复杂 化 ， 
也 使 其 中 的 主要 思想 变 模糊 了 。 
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果 peter-acc 是 一 个 具有 密码 open-sesame 的 银行 账户 ， 那 么 
(define paul-acc 


(make-joint peter-acc ’open-sesame ‘rosebud)) 

将 使 我 们 可 以 通过 名 字 paul -acc 和 密码 rosebud 对 账户 peter-acc 做 现金 交易 。 你 可 能 希 
望 修改 自己 对 练习 3.3 的 解 ， 加 入 这 一 新 功能 。 

练习 3.8 ”在 1.1.3 节 定义 求 值 模型 时 我 们 说 过 ， 求 值 一 个 表达 式 的 第 一 步 就 是 求 值 其 中 的 
子 表达 式 。 但 那 时 并 没有 说 明 应 该 按 怎样 的 顺序 对 这 些 子 表达 式 求 值 ( 例 如， 是 从 左 到 右 还 
是 从 右 到 左 )。 当 我 们 引进 了 赋值 之 后 ， 对 一 个 过 程 的 各 个 参数 的 求 值 顺序 不 同 就 可 能 导致 不 
同 的 结果 。 请 定义 一 个 简单 的 过 程 E， 使 得 对 于 (+ (E£ 0) (£ 1)) 的 求 值 在 对 实际 参数 采 
用 从 左 到 右 的 求 值 顺序 时 返回 0， 而 对 实际 参数 采用 从 右 到 左 的 求 值 顺序 时 返回 1。 


3.2 求 值 的 环境 模型 


我 们 在 第 1 章 引 进 复合 过 程 时 ， 采 用 求 值 的 代 换 模型 〈 见 1.1.5 节 ) 定义 了 将 过 程 应 用 于 实 

“将 一 个 复合 过 程 应 用 于 一 些 实际 参数 ， 就 是 在 用 各 个 实际 参数 代 换 过 程 体 里 对 应 的 形式 

参数 之 后 ， 求 值 这 个 过 程 体 。 

一 且 我 们 把 赋值 引进 程序 设计 语言 之 后 ， 这 一 定义 就 不 再 合适 了 。 特 别 是 在 3.1.3 节 我 们 
已 经 论证 了 ， 由 于 赋值 的 存在 ， 变 量 已 经 不 能 再 看 作 仅仅 是 某 个 值 的 名 字 。 此 时 的 一 个 变量 
必须 以 某 种 方式 指定 了 一 个 “位 置 "， 相 应 的 值 可 以 存储 在 那里 。 在 我 们 的 新 求 值 模型 里 ， 这 
种 位 置 将 维持 在 称 为 环境 的 结构 中 。 

一 个 环境 就 是 框架 (frame) 的 一 个 序列 ， 每 个 框架 是 包含 着 一 些 约束 的 一 个 表格 (可 能 
为 空 )， 这 些 约束 将 一 些 变量 名 字 关 联 于 对 应 的 值 〈 在 一 个 框架 里 ， 任 何 变量 至 多 只 能 有 一 个 
约束 )。 每 个 框架 还 包含 着 一 个 指针 ， 指 向 这 一 框架 的 外 围 环境 。 如 果 由 于 当前 讨论 的 目的 ， 
将 相应 的 框架 看 作 是 全 局 的 ， 那 么 它 将 没有 外 围 环 境 。 一 个 变量 相对 于 某 个 特定 环境 的 值 ， 
也 就 是 在 这 一 环境 中 ,包含 着 该 变量 的 第 一 个 框架 里 这 个 变量 的 约束 值 。 如 果 在 序列 中 并 不 
存在 这 一 变量 的 约束 ， 那 么 我 们 就 说 这 个 变量 在 该 特定 环境 中 是 无 约束 的 。 

图 3-1 展 示 了 一 个 简单 的 环境 结构 ， 其 中 包含 了 3 个 框架 ， 分 别 用 I、I 和 II 标记 。 在 这 个 
图 里 ，A、B、C 和 D 都 是 环境 指针 ， 其 中 C 和 D 指 向 同一 个 环境 。 变 量 z 和 x 在 框架 II 里 约束 ， 
而 变量 y 和 x 在 框架 I 里 约束 。x 在 环境 D 里 的 值 是 3，x 相 对 于 环境 B 的 值 也 是 3。 后 一 情况 应 按 
如 下 方式 确定 : 我 们 首先 检查 序列 中 的 第 一 个 框架 (框架 TI)， 在 这 里 没有 找到 x 的 约束 ， 因 
此 继续 前 进 到 外 围 环境 D 并 在 框架 I 里 找到 了 相应 的 约束 。 另 一 方面 ，x 在 环境 A 中 的 值 就 是 7， 
因为 序列 中 的 第 一 个 框架 (框架 I1) 里 包含 x 与 7 的 约束 。 相 对 于 环境 A， 我 们 说 在 框架 I 里 x 
与 7 的 约束 让 藤 了 框架 I 里 x 与 3 的 约束 。 

环境 对 于 求 值 过 程 是 至 关 重 要 的 ， 因 为 它 确定 了 表达 式 求 值 的 上 下 文 。 实 际 上 ， 我 们 完 
全 可 以 说 ， 在 一 个 程序 语言 里 的 一 个 表达 式 本 身 根本 没有 任何 意义 。 即 使 像 (+ 1 1) 这 样 
极其 简单 的 表达 式 ， 其 解释 也 要 依赖 于 有 关 的 操作 是 在 某 个 上 下 文 里 进行 的 ， 在 那里 + 是 表 
示 加 法 的 符号 。 这 样 ， 在 现在 讨论 的 求 值 模型 中 ， 我 们 将 总 说 某 个 表达 式 相 对 于 某 个 环境 的 
求 值 。 为 了 描述 与 解释 器 的 交互 作用 ， 我 们 将 始终 假定 存在 着 一 个 全 局 环境 ， 它 只 包含 着 一 
个 框架 〈 没 有 外 围 环境 ) ， 这 个 环境 里 包含 着 所 有 关联 于 基本 过 程 的 符号 的 值 。 例 如 ， 有 关 十 
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图 3-1 一 个 简单 的 环境 结构 


是 表示 加 法 的 符号 这 一 观念 ， 在 这 里 的 表现 就 是 ， 符 号 + 在 全 局 环境 中 被 约束 到 相应 的 基本 
加 法 过 程 。 


3.2.1 求 值 规则 


关于 解释 器 如 何 求 值 一 个 组 合式 的 问题 ， 其 整体 描述 仍然 与 我 们 在 1.1.3 节 中 第 一 次 介绍 
时 完全 一 样 。 

* 如 果 要 对 一 个 组 合 表达 式 求 值 ; 

1) 求 值 这 一 组 合式 里 的 各 个 子 表达 式 '”， 

2) 将 运算 符 子 表达 式 的 值 应 用 于 运算 对 象 子 表达 式 的 值 。 

现在 我 们 要 用 求 值 的 环境 模型 代替 求 值 的 代 换 模型 ， 在 这 一 模型 里 需要 特别 说 明 将 一 个 
复合 过 程 应 用 于 参数 表示 的 是 什么 。 

在 求 值 的 环境 模型 里 ， 一 个 过 程 总 是 一 个 对 偶 ， 由 一 些 代 码 和 一 个 指向 环境 的 指针 组 成 。 
过 程 只 能 通过 一 种 方式 创建 ， 那 就 是 通过 求 值 一 个 Lambda 表 达 式 。 这 样 产 生出 的 过 程 的 代码 
来 自 这 一 Ilambda 表 达 式 的 正文 ， 其 环境 就 是 求 值 这 个 Lambda 表 达 式 ， 产 生出 这 个 过 程 时 的 
那个 环境 。 举 个 例子 ， 考 虑 在 全 局 环境 里 求 值 下 面 的 过 程 定义 : 


(define (square x) 


(* £) 
过 程 定义 的 语法 形式 ， 不 过 是 作为 其 基础 的 隐 含 1ambda 表 达 式 的 语法 糖衣 ， 上 面 的 定义 就 像 
是 写成 下 面 等 价 的 表示 : 
(define square 
(lambda (x) (* x x))) 


其 中 求 值 (lambda (x) (* x x))， 并 将 符号 square 约 束 于 这 一 求 值得 到 的 结果 ， 这 些 都 
是 在 全 局 环境 中 完成 的 。 
图 3-2 展 示 的 是 求 值 这 一 define 表 达 式 的 结果 ， 这 里 的 过 程 对 象 是 一 个 序 对 ， 其 代码 部 


“赋值 的 存在 给 求 值 规 则 的 步 又 1 引进 一 个 微妙 问题 。 正 如 练习 3.8 所 述 ， 赋 值 的 存在 使 我 们 可 以 写 出 一 些 表 达 
式 ， 如 果 以 不 同 的 顺序 对 组 合式 中 各 个 子 表达 式 的 求 值 ， 它 们 就 会 产生 出 不 同 的 值 。 这 样 ， 为 了 更 精确 些 ， 
我 们 就 需要 说 明 步 又 1 的 特定 顺序 〈 例 如 从 左 到 右 )。 然 而 ， 这 种 顺序 应 该 总 看 作 是 一 个 实现 细节 ， 我 们 永远 
也 不 要 去 写 依赖 于 特定 顺序 的 程序 。 举 例 来 说 ， 如 果 一 个 复杂 的 编译 器 去 做 程序 的 优化 ， 它 完全 可 能 改变 其 
中 各 子 表达 式 的 求 值 顺序 。 
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全 局 其 他 变量 
环境 square: 
(define (square x) 
CE SEY) 


参数 :x 
过 程 体 : (* x x) 
图 3-2 由 在 全 局 环境 中 求 值 (define (square x) 
(* x x)) 而 产生 的 环境 结构 


分 描述 的 是 一 个 带 有 一 个 形式 参数 x 的 过 程 ， 过 程 体 是 (* x x)。 过 程 对 象 的 环境 部 分 是 一 
个 指向 全 局 环境 的 指针 ， 因 为 产生 这 个 过 程 的 lambda 表 达 式 是 在 全 局 环境 中 求 值 的 。 这 个 定 
义 在 全 局 框架 中 加 入 了 一 个 新 约束 ， 将 上 述 过 程 对 象 约束 于 符号 square。 一般 而 言 ， 
define 建 立定 义 的 方式 就 是 将 新 的 约束 加 入 框架 里 。 

我 们 已 经 看 到 了 创建 过 程 的 有 关 情 况 ， 现 在 就 可 以 描述 过 程 的 应 用 了 。 环 境 模 型 说 明 : 
在 将 一 个 过 程 应 用 于 一 组 实际 参数 时 ， 将 会 建立 起 一 个 新 环境 ， 其 中 包含 了 将 所 有 形式 参数 
约束 于 对 应 的 实际 参数 的 框架 ， 该 框架 的 外 围 环 境 就 是 所 用 的 那个 过 程 的 环境 。 随 后 就 在 这 
个 新 环境 之 下 求 值 过 程 的 体 。 

为 了 演示 这 一 规则 的 实施 情况 ， 图 3-3 展 示 了 通过 在 全 局 环境 里 对 表达 式 (square 5) 
求 值 而 创建 起 来 的 环境 结构 ， 其 中 的 square 是 图 3-2 里 生成 的 过 程 。 这 一 过 程 应 用 的 结果 是 
创建 了 一 个 新 环境 ， 在 图 中 标记 为 E1。 这 个 环境 从 一 个 框架 开始 ， 框 架 里 包含 着 将 这 个 过 程 
的 形式 参数 x 约束 到 实际 参数 5。 从 这 一 框架 引出 的 指针 说 明 这 个 框架 的 外 围 环 境 就 是 全 局 环 
境 。 在 这 个 地 方 之 所 以 应 该 选择 全 局 环境 ， 是 因为 它 就 是 作为 square 过 程 对 象 的 一 部 分 的 那 
个 环境 。 现 在 我 们 要 在 El 里 求 值 过 程 的 体 (* x x)。 因 为 在 El 里 x 的 值 是 5， 所 以 求 值 结 果 
是 (* 5 5)， 也 就 是 25。 














全 局 其 他 变量 
环境 square: 
(square 5) 





参数 :x (* 36. 3c) 
过 程 体 : (* x x) 


图 3-3 在 全 局 环境 里 求 值 (square 5) 创建 出 的 环境 
我 们 可 以 把 过 程 应 用 的 环境 模型 总 结 为 下 面 两 条 规则 : 
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“将 一 个 过 程 对 象 应 用 于 一 集 实际 参数 ， 将 构造 出 一 个 新 框架 ， 其 中 将 过 程 的 形式 参数 约 
束 到 调用 时 的 实际 参数 ， 而 后 在 构造 起 的 这 一 新 环境 的 上 下 文中 求 值 过 程 体 。 这 个 新 杠 
架 的 外 围 环 境 就 是 作为 被 应 用 的 那个 过 程 对 象 的 一 部 分 的 环境 。 

“相对 于 一 个 给 定 环境 求 值 一 个 Lambdaa 表 达 式 ， 将 创建 起 一 个 过 程 对 象 ， 这 个 过 程 对 象 

是 一 个 序 对 ， 由 该 lambda 表 达 式 的 正文 和 一 个 指向 环境 的 指针 组 成 ， 这 一 指针 指向 的 

就 是 创建 这 个 过 程 对 象 时 的 环境 。 

我 们 也 已 经 说 明了 ， 用 define 定 义 一 个 符号 ， 也 就 是 在 当前 环境 框架 里 建立 一 个 约束 ， 
并 赋予 这 个 符号 指定 的 值 "'。 最 后 让 我 们 来 说 明 set ! 的 行为 方式 ， 因 为 一 开始 就 是 由 于 这 个 
操作 的 存在 ， 迫 使 我 们 引进 上 述 的 环境 模型 。 在 某 个 环境 里 求 值 表达 式 (set! <variable> 
<value>)， 要 求 我 们 首先 在 环境 中 确定 有 关 变 量 的 约束 位 置 ， 而 后 再 修改 这 个 约束 ， 使 之 表示 
这 个 新 值 。 这 也 就 是 说 ,首先 需要 找到 包含 这 个 变量 的 约束 的 第 一 个 框架 ,而 后 修改 这 一 框架 。 
如 果 该 变量 在 环境 中 没有 约束 ，set ! 将 报告 一 个 错误 。 

这 些 求 值 规则 显然 比 代 换 规则 复杂 了 许多 ， 但 也 还 是 相当 直截了当 的 。 进 一 步 说 ， 虽 然 
这 一 求 值 模型 比较 抽象 ， 但 它 却 为 解释 器 对 于 表达 式 求 值 的 过 程 提供 了 一 个 正确 的 描述 。 在 
第 4 章 里 我 们 将 看 到 ， 这 一 模型 如 何 能 成 为 实现 一 个 可 以 工作 的 解释 器 的 蓝图 。 下 面 几 节 将 要 
分 析 几 个 具有 阐释 意义 的 实例 ， 以 进一步 揭示 这 一 模型 的 各 方面 细 市 。 


3.2.2 简单 过 程 的 应 用 


在 1.1.5 节 里 介绍 代 换 模型 时 ， 我 们 展示 了 在 有 下 面 的 过 程 定 义 之 后 ， 组 合式 (f 5) 怎 
样 求 值得 到 136: 
(define (square x) 
G® Be: zy 
(define (sum-of-squares x y) 
(+ (square x) (square y))) 
(define (f a) 
(sum-of-squares (+ a 1) (* a 2))) 
现在 我 们 用 环境 模型 来 分 析 同 一 个 实例 。 图 3-4 展 示 出 在 全 局 环境 里 对 三 、square 和 sum- 
of -squares 的 定义 求 值 后 创建 起 的 三 个 过 程 对 象 ， 每 个 过 程 对 象 都 由 一 些 代码 和 一 个 指向 
全 局 环境 的 指针 组 成 。 
在 图 3-5 里 ， 我 们 看 到 的 是 由 对 (£ 5) 的 求 值 创建 起 的 环境 结构 。 对 于 £ 的 调用 创建 了 
一 个 新 环境 E1， 它 开始 于 一 个 框架 ， 其 中 f 的 形式 参数 a 被 约束 到 实 参 5。 我 们 需要 在 El 里 求 
EERIE : 


(sum-of-squares (+ a 1) (* a 2)) 


在 求 值 这 个 组 合式 时 ， 首 先 需要 求 值 其 中 的 子 表 达 式 。 第 一 个 子 表达 式 sum-of-squares 以 
一 个 过 程 对 象 为 值 〈 请 注意 看 这 个 值 是 如 何 找到 的 : 首先 在 El 的 第 一 个 框架 中 找 ， 这 里 没有 
包含 sum-of -squares 的 约束 。 而 后 进入 有 关 的 外 围 环境 ， 即 全 局 环境 ， 并 在 那里 找到 了 图 

H 如果 在 当前 框架 中 已 经 有 了 对 这 一 变量 的 约束 ， 那 么 该 约束 就 会 改变 。 这 样 做 比较 方便 ， 因 为 它 允 许 符 号 的 


重新 定义 ， 这 当然 也 就 意味 着 可 以 用 define 去 修改 符号 的 值 ， 因 此 ， 在 这 里 没有 显 式 使 用 set ! 却 带 来 了 同 
样 的 问题 。 正 因为 此 ， 有 些 人 觉得 在 出 现 重新 定义 时 应 该 发 出 错误 或 者 警告 信息 。 
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sum-of-squares: 


全 局 





square: 
环境 = 
参数 : a 参数 : x BR: x, y 
过 程 体 : (sum-of-squares) 过 程 体 : (* x x) 过 程 体 : (+ (square x) 
(+ a 1) (square y) 
(* a 2)) 


图 3-4 全 局 框架 里 的 几 个 过 程 对象 


(£ 5) 





(sum-of -squares (+ (square x) (* x x) (* x x) 
(+ a 1) (square y) 
(* a 2)) 


图 3-5 使 用 图 3-4 里 的 过 程 求 值 (E 5) 创建 的 环境 


3-4 所 示 的 约束 ) 。 对 另外 两 个 表达 式 的 求 值 是 应 用 两 个 基本 运算 符 + 和 * ， 通 过 求 值 组 合式 
(+a 1) 和 (* a 2) 分 别 得 到 6 和 10。 

现在 需要 把 过 程 对 象 sum-of -squares 应 用 于 实 参 6 和 10， 这 时 得 到 的 是 一 个 新 环境 E2， 
形式 参数 x 和 Yy 在 其 中 约束 于 对 应 的 实际 参数 。 现 在 要 做 的 就 是 在 E2 里 求 值 组 合式 (+ 
(square x) (square y))。 这 进一步 要 求 我 们 求 值 (square x)， 其 中 的 square 从 全 
局 环境 中 找到 ， 而 x 是 6。 我 们 又 需要 设 定 另 一 个 新 环境 E3， 其 中 将 x 约束 到 6， 并 在 这 里 求 值 
square 的 体 (* x x)。 作 为 sum-of-squares 应 用 的 另 一 部 分 ， 我 们 还 必须 求 值 子 表达 
式 (square y), 其 中 的 y 是 10。 这 是 对 square 的 第 二 个 调用 ， 它 创建 起 另 一 个 环境 E4， 
其 中 square 的 形式 参数 x 约束 到 10。 我 们 必须 在 E4 里 求 值 (* x x), 

这 里 应 注意 的 要 点 是 ， 对 于 square 的 每 个 调用 都 会 创建 起 一 个 包含 着 x 的 约束 的 新 环境 。 
我 们 可 以 看 到 ， 这 里 就 是 通过 不 同 的 框架 ， 去 维持 所 有 名 字 为 x 的 局 部 变量 互 不 相同 。 还 请 注 
意 ， 由 square 创 建 的 每 个 框架 都 指向 全 局 环境 ， 因 为 这 就 是 对 应 于 square 的 过 程 对 象 所 指 
定 的 环境 。 

各 个 子 表达 式 求 值 后 返回 得 到 的 值 。 对 square 的 两 个 调用 产生 的 值 被 sum-of-squares 
加 起 来 ， 作 为 求 值 的 结果 返回 。 因 为 我 们 在 这 里 关心 的 是 环境 结构 ， 因 此 将 不 详细 考察 这 些 返 
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回 值 如 何在 调用 之 间 传 递 的 问题 。 当 然 ， 这 件 事情 也 是 求 值 过 程 中 的 一 个 重要 方面 ， 我 们 将 在 
第 5 章 回 到 这 一 问题 。 
练习 3.9 在 1.2.1 节 里 ， 我 们 用 代 换 模型 分 析 了 两 个 计算 阶乘 的 函数 ， 递 归 版 本 : 


(define (factorial n) 
(Lf (= n 1) 
1 
(* n (factorial t- n 1))))) 
迭代 版 本 : 
(define (factorial n) 


(fact-iter 1 1 n)) 


(define (fact-iter product counter max-count) 
(if (> counter max-count) 
product 
(fact-iter (* counter product) 
(+ counter 1) 


max-count) ) ) 


请 说 明 采 用 过 程 factorial 的 上 述 版 本 求 值 (factorial 6) 时 所 创建 的 环境 结构 空 。 
3.2.3 将 框架 看 作 局 部 状态 的 展台 


现在 可 以 从 环境 模型 出 发 ， 看 看 可 以 怎样 用 过 程 和 赋值 表示 带 有 局 部 状态 的 对 象 。 作 为 
一 个 例子 ， 还 是 考虑 取 自 3.1.1 节 的 由 调用 下 面 过 程 创建 的 “ 提 款 处 理 器 ”: 
(define (make-withdraw balance) 
(lambda (amount) 
(if (>= balance amount) 
(begin (set! balance (- balance amount) ) 
balance) 
"Insufficient funds") ) ) 


让 我 们 仔细 看 看 下 式 的 求 值 ， 
(define W1 (make-withdraw 100) ) 


而 后 做 : 


(w1 50) 
50 


图 3-6 展 示 了 在 全 局 环境 里 定义 make-withdaraw 过 程 的 结果 。 这 一 求 值 产生 出 一 个 过 程 对 象 ， 
其 中 包含 着 一 个 指向 全 局 环境 的 指针 。 到 目前 为 止 ， 在 这 个 实例 里 还 没有 出 现任 何 与 前 面 看 
过 的 实例 不 同 的 东西 ， 除 了 过 程 体 本 身 也 是 一 个 lambda 表 达 式 之 外 。 

计算 中 的 有 趣 现象 出 现在 将 过 程 make-withdraw 应 用 于 一 个 参数 的 时 候 : 

(define W1 (make-withdraw 100) ) 
与 平常 一 样 ， 我 们 在 开始 时 设置 了 环境 E1， 其 中 将 形式 参数 balance 约 束 到 实 参 100， 并 在 
这 一 环境 里 求 值 nake-withdaraw 的 体 ， 也 就 是 那个 lambda 表达 式 。 这 一 求 值 构造 起 一 个 新 


192 这 种 环境 模型 还 不 能 汪清 我 们 在 1.2.1 节 的 断言 ， 那 里 说 解释 器 使 用 了 尾 递归 ， 只 需要 常量 空间 就 可 以 执行 像 
fact-itez 这 样 的 过 程 。 我 们 将 在 5.4 节 里 讨论 解释 器 的 控制 结构 时 处 理 尾 递归 问题 。 
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过 程 对 象 ， 其 代码 由 这 个 lambda 描 述 ， 而 它 的 环境 就 是 E1， 也 就 是 求 值 这 个 lambda 生 成 该 
过 程 对 象 时 的 那个 环境 。 这 样 做 出 的 过 程 对 象 被 作为 调用 make-withdraw 的 返回 值 ， 在 全 
局 环境 里 约束 于 Wl1， 因 为 对 这 个 define 本 身 的 求 值 是 在 全 局 环境 里 进行 的 。 图 3-7 显 示 出 这 
样 做 的 结果 得 到 的 环境 结构 。 






全 局 
环境 


make-withdraw: 


BR: balance 
过 程 体 : (lambda (amount) 
(if (>=balance amount) 
(begin (set! balance (-balance amount) ) 
balance) 
"Insufficient funds") ) 


图 3-6 在 全 局 环境 里 定义 make-withdraw 的 结果 









make-withdraw: 


全 局 
环境 


Wil: 








balance: 100 


BH: balance 
过 程 体 : . . . 


参数 : amount 
过 程 体 : (if (>=balance amount) 
(begin (set ! balance (- balance amount)) 
balance) 
"Insufficient funds")) 


图 3-7 求 值 (define W1 (make-withdraw 100)) 的 结果 


现在 让 我 们 来 分 析 将 Wl 应 用 于 一 个 参数 时 所 发 生 的 情况 : 


(W1 50) 
50 


此 时 首先 要 构造 出 一 个 框架 ，WI 的 形式 参数 amount 在 其 中 约束 到 实 参 50。 需 要 注意 的 最 关 
键 一 点 是 ， 这 个 框架 的 外 围 环 境 并 不 是 全 局 环境 ， 而 是 环境 E1， 因 为 它 才 是 由 过 程 对 象 W1 所 
指定 的 环境 。 现 在 我 们 需要 在 这 个 新 环境 里 求 值 下 面 的 过 程 体 : 

(if (>= balance amount) 


(begin (set! balance (- balance amount) ) 
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balance) 


"Insufficient funds") 


这 样 做 得 到 的 环境 结构 如 图 3-8 所 示 。 在 被 求 值 的 表达 式 里 引用 了 amount 和 balance， 其 中 
的 amount 在 环境 里 的 第 一 个 框架 里 找到 ， 而 balance 则 沿 着 外 围 环境 指针 向 前 在 E1 里 找 
到 。 








make-withdraw: ... 


全 局 





这 里 是 由 set 
改变 的 平衡 






balance: 100 





amount: 50 


参数 : amount (if (>=balance amount) 
过 程 体 : . . . (begin 
(set ! balance 
(- balance amount) ) 
balance) 
"Insufficient funds") ) 


图 3-8 通过 应 用 过 程 对 象 风 创建 起 的 环境 


在 执行 set ! 时 ， 位 于 El 里 balance 的 约 东 就 被 修改 了 。 对 Wl 的 调用 完成 时 ，balance 
是 50， 而 包含 着 这 个 balance 的 框架 仍 由 过 程 对 象 W1 指 着 。 约 束 amount 的 那个 框架 (我 们 
曾经 在 其 中 执行 了 修改 的 balance 代 码 ) 现在 已 经 无 关 紧要 了 ， 因 为 构造 它 的 过 程 已 经 结束 ， 
环境 中 的 任何 一 部 分 都 不 再 包含 指向 这 个 框架 的 指针 。 在 下 次 W1 被 调用 时 ， 这 一 过 程 又 会 构 
造 起 另 一 个 新 框架 ， 其 中 建立 起 amount 的 一 个 新 约束 ， 这 一 框架 的 外 围 环境 还 是 E1。 根 据 
上 面 的 分 析 ， 我 们 可 以 看 到 E1 怎 样 起 着 保存 过 程 对 象 的 局 部 状态 变量 的 “位 置 ” 的 作用 。 图 
3-9 展 示 的 是 调用 W1L 之 后 的 情景 。 









make-withdraw: ... 


全 局 


环境 W1: 





balance: 50 


参数 : amount 


过 程 体 : 。 .= > 


图 3-9 调用 内 之 后 的 环境 
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现在 来 看 我 们 通过 再 次 调用 make-withdraw， 创 建 起 第 二 个 “ 提 款 ”对 象 的 情况 : 

(define W2 (make-withdraw 100)) 
这 样 做 产生 出 的 环境 结构 如 图 3-10 所 示 ， 其 中 显示 了 W2 是 另 一 个 过 程 对 象 ， 也 就 是 说 ， 是 一 
些 代码 和 一 个 环境 的 序 对 。 通 过 调用 make -withdraw 为 W2 创 建 起 的 环境 是 E2， 它 包含 了 一 
个 框架 ， 其 中 包含 着 它 自 己 的 对 balance 的 局 部 约束 。 另 一 方面 ，W1 和 W2 具 有 相同 的 代码 ， 
也 就 是 在 make-withdaraw 体 内 的 那个 Lambdaa 表 达 式 所 确定 的 代码 哇 。 我 们 从 这 里 就 可 以 看 
到 ， 为 什么 Ww1 和 WwW2 在 行为 上 完全 是 互相 独立 的 对 象 。 对 Ww1 的 调用 引用 的 是 保存 在 El 里 的 状 
态 变 量 balance， 而 对 W2 的 调用 引用 的 是 E2 里 的 balance。 这 样 ， 修 改 一 个 对 象 的 局 部 状 
态 当 然 不 会 影响 到 另 一 个 对 象 。 








make-withdraw: ... 
W2: 
W1: 


全 局 
环境 


参数 : amount 


过 程 体 : . . . 
图 3-10 使 用 (define W2 (make-withdraw 100)) 创建 第 2 个 对 象 
练习 3.10 ”在 make-withdraw 过 程 里 ， 局 部 变量 balance 是 作为 make-withdraw 的 
参数 创建 的 。 我 们 也 可 以 显 式 地 通过 使 用 let 创 建 局 部 状态 变量 ， 就 像 下 面 所 做 的 : 


(define (make-withdraw initial-amount) 


(let ((balance initial-amount)) 
(lambda (amount) 
(if (>= balance amount) 
(begin (set! balance (- balance amount) ) 
balance) 


"Insufficient funds") ))) 

请 重 温 1.3.2 节 ，1et 实 际 上 是 一 个 过 程 调用 的 语法 糖衣 : 

(let ((<var> <exp>)) <body>) 
它 将 被 解释 为 

((lambda (<var>) <body>) <exp>) 
的 另 一 种 语法 形式 。 请 用 环境 模型 分 析 make-withdraw 的 这 个 版 本 ， 画 出 像 上 面 那样 的 图 
示 ， 说 明 调 用 : 

H 究竟 Wl 和 WwW2 是 共享 计算 机 里 保存 的 同一 段 物理 代码 ， 还 是 各 自 维持 自 己 的 一 份 拷贝 ， 则 完全 是 一 种 实现 细 

节 。 我 们 在 第 4 章 实现 的 解释 器 里 采用 共享 代码 的 方式 。 
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(define W1 (make-withdraw 100) ) 

(W1 50) 

(define W2 (make-withdraw 100))] 
时 的 情况 并 阐释 make -withdraw 的 这 两 个 版 本 创建 出 的 对 象 具 有 相同 的 行为 。 两 个 版 本 的 
环境 结构 有 什么 不 同 吗 ? 


3.2.4 内 部 定义 
1.1.8 节 介绍 了 过 程 可 以 有 内 部 定义 的 思想 ， 这 样 就 引入 了 块 结构 ， 就 像 下 面 计算 平方 根 
的 过 程 里 的 情况 : 


(define (sqrt x) 
(define (good-enough? guess) 
(< (abs (- (square guess) x)) 0.001)) 
(define (improve guess) 
(average guess (/ x guess) )) 
(define (sqrt-iter guess) 
(if (good-enough? guess) 
guess 
(sqrt-iter (improve guess) )) ) 


(sqrt-iter 1.0)) 
现在 我 们 就 可 以 利用 上 面 介 绍 的 环境 模型 ， 去 考察 为 什么 这 些 内 部 定义 具有 所 需要 的 行为 。 
图 3-11 所 示 的 是 在 表达 式 (sqrt 2) 求 值 中 的 一 点 ， 在 那里 ， 内 部 过 程 good-enough? 被 第 
一 次 调用 ， 其 中 的 guess 等 于 1。 











全 局 
环境 
x:2 
good-enough? 
El improve: ... 
BM: x sqrt-iter: ... 


过 程 体 : (define good-enough? ... 
(define improve ...) 
(define sqrt-iter ...) 
(sqrt-iter 1.0) 





BH: guess 
过 程 体 : (< (abs...) 


调用 good-enough? 
图 3-11 带 有 内 部 定义 的 sqrt 过 程 
请 注意 这 时 的 环境 结构 。sqrt 是 全 局 环境 里 的 一 个 符号 ， 它 被 约束 到 一 个 过 程 对 象 ， 与 
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之 关联 的 环境 就 是 全 局 环境 。 在 sqrt 被 调用 时 ， 形 成 了 一 个 新 的 环境 E1， 它 将 成 为 全 局 环境 
的 下 属 。 在 这 里 ， 参 数 x 约 束 到 2， 而 后 在 El 里 求 值 sqrt 的 体 。 由 于 sqrt 体 中 的 第 一 个 表达 
式 是 : 

(define (good-enough? guess) 

(< (abs (- (Square guess) x)) 0.001)) 
对 这 一 表达 式 的 求 值 在 环境 El 里 定义 出 过 程 good-enough?。 说 得 更 准确 一 些 ， 符 号 good- 
enough? 被 加 入 E1 的 第 一 个 框架 里 ,并 被 约束 于 一 个 过 程 对 象 ， 其 关联 环境 是 E1。 与 此 类 似 ， 
improve 和 sqrt-iter 也 在 El 里 定义 为 过 程 。 为 了 简洁 起 见 ， 在 图 3-11 里 只 显示 了 约束 于 
good-enough? 的 过 程 对 象 。 

在 定义 好 各 个 局 部 过 程 之 后 ， 表 达 式 (sqrt-iter 1.0) 被 求 值 ， 还 是 在 环境 E1 里 。 
因此 ， 调 用 在 El 里 约束 于 sqrt-iter 的 过 程 对 象 时 ， 我 们 以 1 作为 实际 参数 。 这 一 调用 创建 
了 另 一 个 环境 E2， 在 其 中 sqrt -iter 的 形 参 guess 被 约束 到 1。sqrt-iter 转 而 (从 E2 里 ) 
以 guess 的 值 作为 实际 参数 调用 good-enough?, 这 就 建立 了 另 一 个 环境 E3, 在 这 个 环境 里 ， 
(good-enough? 的 参数 ) guess 被 约束 到 1。 虽 然 sqrt-iter 和 good-enough? 里 都 有 名 
字 为 guess 的 形 参 ， 但 它们 是 两 个 不 同 的 局 部 变量 ， 位 于 不 同 的 框架 里 。 还 有 ，E2 和 E3 都 以 
El 作为 其 外 围 环境 ,这 是 因为 过 程 sqrt -iter 和 good-enough? 都 以 E1 作 为 自己 的 环境 部 
分 。 这 种 情况 造成 的 一 个 后 果 就 是 ， 出 现在 good-enough? 体 内 部 的 符号 x 将 引用 出 现在 El 
里 的 x 约束 ， 也 就 是 原来 sqrt 被 调用 时 的 那个 x 的 值 。 这 样 ， 环 境 模 型 已 经 解释 清楚 了 以 局 部 
过 程 定义 作为 程序 模块 化 的 有 用 技术 中 的 两 个 关键 性 质 : 

。 局 部 过 程 的 名 字 不 会 与 包容 它们 的 过 程 之 外 的 名 字 互 相干 扰 ， 这 是 因为 这 些 局 部 过 程 名 

都 是 在 该 过 程 运行 时 创建 的 框架 里 面 约束 的 ， 而 不 是 在 全 局 环境 里 约束 的 。 
。 局 部 过 程 只 需 将 包含 着 它们 的 过 程 的 形 参 作 为 自由 变量 , 就 可 以 访问 该 过 程 的 实际 参数 。 
这 是 因为 对 于 局 部 过 程 体 的 求 值 所 在 的 环境 是 外 围 过 程 求 值 所 在 的 环境 的 下 属 。 

练习 3.11 ”在 3.2.3 节 里 我 们 看 到 ， 环 境 模型 能 如 何 用 于 描述 带 有 局 部 状态 的 过 程 的 行为 ， 
现在 我 们 又 看 到 局 部 定义 如 何 工作 。 一 个 典型 的 消息 传递 过 程 包 含 这 两 个 方面 。 现 在 请 考虑 
3.1.1 节 的 银行 账户 过 程 : 

(define (make-account balance) 

(define (withdraw amount) 
(if (>= balance amount) 
(begin (set! balance (- balance amount)) 
balance) 
"Insufficient funds") ) 
(define (deposit amount) 
(set! balance (+ balance amount) ) 
balance) 
(define (dispatch m) 
(cond ((eq? m ’withdraw) withdraw) 
( (eq? m *deposit) deposit) 
(else (error "Unknown request -- MAKE-ACCOUNT" 


m)))) 
dispatch) 


请 设法 展示 由 下 面 交互 序列 生成 的 环境 结构 : 
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(define acc (make-account 50) ) 
((acc ‘deposit) 40) 


90 


((acc ’withdraw) 60) 
30 


acc 的 局 部 状态 保存 在 哪里 ”假定 我 们 定义 了 另 一 个 账户 : 


(define acc2 (make-account 100)) 


这 两 个 账户 的 局 部 状态 又 是 如 何 保持 不 同 的 ?环境 结构 中 的 哪些 部 分 被 acc 和 acc2 共 享 ? 
3.3 用 变动 数据 做 模拟 


第 2 章 以 复合 数据 作为 构造 具有 多 个 部 分 的 计算 对 象 的 方法 ， 用 于 模拟 真实 世界 里 具有 若 
干 不 同 侧面 的 对 象 。 在 那 一 章 里 ， 我 们 介绍 了 数据 抽象 的 系统 方法 ， 根 据 这 种 方法 ， 各 种 数 
据 结 构 应 该 用 构造 函数 (用 于 创建 数据 对 象 ) 和 选择 函数 (用 于 访问 复合 数据 对 象 中 的 各 个 
部 分 ) 来 描述 。 但 是 ， 我 们 现在 又 了 解 到 了 有 关 数 据 结构 的 另外 一 些 情况 ， 这 是 第 2 章 中 没有 
涉及 的 。 为 了 模拟 那些 由 具有 不 断 变化 的 状态 组 成 的 系统 ， 我 们 除了 需要 做 复合 数据 对 象 的 
构造 和 成 分 选择 之 外 ， 还 可 能 需要 修改 它们 。 为 了 模拟 具有 不 断 变 化 的 状态 的 复合 对 象 ， 我 
们 将 设计 出 与 之 对 应 的 数据 抽象 ， 使 其 中 不 但 包含 了 选择 函数 和 构造 函数 ， 还 有 包含 一 些 称 
为 改变 函数 的 操作 ， 这 种 操作 能 够 修改 有 关 的 数据 对 象 。 举 例 来 说 ， 对 银行 系统 的 模拟 就 需 
要 修改 账户 的 余额 。 这 样 ， 表 示 银 行 账户 的 数据 结构 可 能 就 需要 接受 下 面 的 操作 : 

(set-balance! <account> <new-value>) 

它 将 根据 给 定 的 新 值 修改 指定 账户 的 余额 。 定 义 了 改变 函数 的 数据 对 象 称 为 变动 数据 
aT HR, 

第 2 章 引进 了 序 对 作为 构造 复合 数据 的 通用 “ 黏 结 剂 "。 我 们 在 这 一 节 的 开始 也 首先 定义 
对 于 序 对 的 改变 函数 ， 使 序 对 能 够 作为 构造 变动 数据 对 象 的 基本 构件 。 这 些 改变 函数 能 够 极 
大 地 提升 序 对 的 表达 能 力 ， 使 人 能 构造 出 (我 们 在 2.2 节 里 使 用 的 ) 序列 和 树 之 外 的 其 他 数据 
结构 。 我 们 还 要 给 出 一 些 模拟 的 实例 ， 其 中 使 用 了 带 有 局 部 状态 的 对 象 的 集合 ， 以 便 模拟 复 
杂 系 统 的 行为 。 


3.3.1 变动 的 表 结 构 


针对 序 对 的 基本 操作 一 一 cons 、car 和 cdr 一 一 能 用 于 构造 表 结 构 ， 或 者 选 出 表 结构 中 
的 各 个 部 分 ， 但 它们 不 能 修改 表 结 构 。 我 们 至 今 用 过 的 其 他 表 操 作 (例如 append 和 1ist) 
也 都 是 如 此 ， 因 为 它们 都 可 以 基于 cons、car 和 cdz 定 义 出 来 。 要 修改 表 结 构 就 需要 新 的 
操作 。 

针对 序 对 的 基本 改变 函数 是 set -car! 和 set-cdr!。set-car! 要 求 两 个 参数 ， 其 中 的 
第 一 个 参数 必须 是 一 个 序 对 。set -car1! 修 改 这 个 序 对 ， 将 它 的 car 指 针 替 换 为 指向 set - 
car1! 的 第 二 个 参数 的 指针 ”。 

作为 一 个 例子 ， 我 们 假定 x 约束 到 表 ((a b) c da)，Yy 约 束 到 表 (e £)， 如 图 3-12 所 示 。 


4 set-car! 和 set-cdr1! 的 返回 值 依赖 于 具体 实现 。 与 set ! 一 样 ， 我 们 只 应 该 利用 它们 的 效果 。 
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对 表达 式 (set-car! x y) 的 求 值 将 修改 x 约 束 的 那个 表 ， 将 它 的 caz 用 y 的 值 取 代 。 这 一 
操作 的 结果 如 图 3-13 所 示 。 从 这 个 图 中 ， 我 们 可 以 看 到 结构 x 被 修改 了 ， 现 在 它 将 被 打印 为 
((e £) c qd)。 原 来 由 被 取代 的 指针 标识 的 那个 表示 表 (a b) 的 序 对 ,现在 已 经 从 原来 的 
结构 中 摘除 了 !。 





peel eee |” 
| 


图 3-12 表 x: ((a b) c d) fly: (e £f) 





图 3-13 对 图 3-12 的 表 做 (set-car! x y) 的 效果 


我 们 可 以 对 图 3-13 和 图 3-14 做 一 个 比较 。 图 3-14 展 示 的 是 执行 (define z (cons y 
(cdr x))) 的 结果 ， 其 中 x 和 y 约 束 到 图 3-12 表 示 的 那样 的 两 个 表 。 这 一 求 值 使 变量 z 约 束 到 
了 由 操作 创建 的 一 个 新 序 对 ， 而 x 约束 的 表 并 没有 改变 。 

set-cdr! 操 作 与 set -car 1! 类似， 它们 之 间 的 差异 就 在 于 这 里 被 取代 的 是 序 对 的 car 指 
针 ， 而 不 是 car 指 针 。 对 图 3-12 中 的 表 执 行 (set -cdr! x y) 的 效果 如 图 3-15 所 示 。 在 这 
里 ，x 的 cdr 指 针 被 指向 (e f) 的 指针 取代 。 还 有 ， 原 来 作为 x 的 car 的 表 (c a), 现在 也 
已 经 从 这 一 结构 里 摘 掉 了 。 


S 从 这 里 可 以 看 出 ， 对 于 表 的 改变 函数 可 能 创建 “废料 ”， 也 就 是 一 些 东西 ， 它 们 不 再 是 任何 可 访问 结构 的 部 
分 。 我 们 将 在 5.3.2 节 里 看 到 ，Lisp 的 存储 管理 系统 中 包含 着 一 个 废料 收集 器 ， 它 能 弄 清楚 并 回收 由 这 种 不 再 
使 用 的 序 对 所 占据 的 存储 。 
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图 3-15 对 图 3-12 的 表 做 (set-cdr! x y) 的 效果 


cons 通 过 创建 新 序 对 的 方式 构造 新 的 表 ， 而 set -car! 和 set-cdr1! 则 是 修改 现存 的 序 
对 。cons 可 以 用 两 个 改变 函数 和 一 个 过 程 get -new-pair 实 现 ， 这 个 过 程 返 回 一 个 新 序 对 ， 
假定 它 不 是 任何 现存 表 结 构 的 组 成 部 分 。 我 们 先 取得 一 个 序 对 ， 而 后 将 它 car 和 cdr 的 指针 分 
别 设置 到 指定 对 象 ， 最 后 返回 这 个 序 对 作为 cons 的 结果 "4。 


(define (cons x y) 


(let ((new (get-new-pair) ) ) 
(set-car! new x) 
(set-cdr! new y) 


new) ) 


练习 3.12 下 面 是 2.2.1 节 介绍 过 的 拼接 表 的 过 程 : 
(define (append x y) 
(if (null? x) 


Y 
(cons (car x) (append (cdr x) y)))) 


“get-new-pair 必 须 作 为 Lisp 系 统 所 需 的 存储 管理 功能 中 的 一 个 操作 ，5.3.1 节 将 讨论 这 一 问题 。 
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append 通 过 顺序 将 x 的 元 素 cons 到 y 上 的 方式 构造 出 一 个 新 表 。 过 程 append! 与 append 类 似 ， 
但 它 是 一 个 改变 函数 而 不 是 一 个 构造 函数 。 它 将 表 拼接 起 来 的 方式 是 将 两 个 表 粘 起 来 ， 修 改 x 
的 最 后 一 个 序 对 ， 使 它 的 car 现在 变 成 y (对 空 的 x 调用 append 1! 将 是 一 个 错误 )。 

(define (append! x y) 


(set-cdr! (last-pair x) y) 


x) 
这 里 的 1ast -paiz 是 一 个 过 程 ， 它 返回 其 参数 中 的 最 后 一 个 序 对 ; 


(define (last-pair x) 
tif (mull? (car x)) 
x 


(last-pair (cdr x)))) 


考虑 下 面 的 交互 
(define x (list ’a ’b)) 
(define y (list ’c °d)) 
(define z (append x y)) 


z 
la b e ad) 


(cdr x) 


<response> 
(define w (append! x y)) 


w 
(a b c a) 


(edr x) 


<response> 


其 中 缺少 的 那 两 个 <respomse> 是 什么 ? 请 画 出 盒子 指针 图 形 ， 解 释 你 的 回答 。 
练习 3.13 考虑 下 面 的 make-cycle 过 程 ， 其 中 使 用 了 练习 3.12 定 义 的 last -pair 过 程 : 


(define (make-cycle x) 
(set-cdr! (last-pair x) x) 


x) 


画 出 盒子 指针 图 形 ， 说 明 下 面 表达 式 创建 起 的 z 的 结构 : 
(define z (make-cycle (list ‘a ’b ’c))) 

如 果 我 们 试 着 去 计算 (last-pair z)， 那 会 出 现 什么 情况 ? 
练习 3.14 下 面 过 程 相 当 有 用 ,但 也 有 些 费 解 : 


(define (mystery x) 
(define (loop x y) 
(i£ (mull? x) 
bg 
(let ((temp (cdr x))) 
(set-cdr! x y) 
(loop temp x)))) 
(loop x *())) 
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loop 里 用 一 个 “临时 ”变量 temp 保 存 x 的 cdr 原 来 的 值 ， 因 为 下 一 行 里 的 set -cdr 1! 将 破坏 
这 个 cdr。 请 一 般 性 地 解释 mystery 做 些 什 么 。 假 定 v 通 过 (define v (list’ a’ b’ c’ 
d) ) EX, 请 画 出 v 约 束 的 表 对 应 的 盒子 指针 图 形 。 假定 现在 求 值 (define w(mystery v)), 
请 画 出 求 值 这 个 表达 式 之 后 结构 和 w 的 盒子 指针 图 形 。v 和 w 的 值 打印 出 来 是 什么 ? 

共享 和 相等 

在 3.1.3 节 里 ， 我 们 提出 了 由 于 引入 赋值 而 产生 的 “同一 ”和 “变化 ”的 理论 问题 。 当 不 
同 的 数据 对 象 共 享 某 些 序 对 时 ， 这 些 问 题 就 表现 到 现实 中 来 了 。 例 如 ， 考 虑 由 下 面 求 值 形成 
的 结构 : 


(define x (list ’a ’b)) 
(define z1 (cons x x)) 


正如 图 3-16 所 示 ， 这 里 的 z1 是 一 个 序 对 ， 其 car 和 cdr 都 指向 同一 个 序 对 x。 这 种 z1 的 car 和 
cdr 共 享 x 是 cons 的 简单 实现 方式 的 自然 结果 。 一 般 而 言 ， 用 cons 构 造 出 的 表 结 果 总 是 序 对 
的 一 个 相互 链接 的 结构 ， 其 中 可 能 会 有 许多 独立 的 序 对 被 一 些 不 同 结 构 所 共享 。 


站 


~—+1 | e A 
a 
图 3-16 由 (cons x x) 形成 的 表 z1 
与 图 3-16 不 同 ， 图 3-17 展 示 的 是 由 下 式 创建 出 的 结构 ， 


(define z2 (cons (list ‘a *b) (list ‘a ‘b))) 





图 3-17 由 (cons (list ’a ’b) (list ’a ’b)) 形成 的 表 z2 


在 这 一 结构 中 ， 两 个 表 (a b) WAP HERA, SRC SES, 

作为 表 考 虑 ，z1l1 和 z2 表 示 是 “同一 个 ” 表 ((a b) a b). 一般 而 言 ， 如 果 我 们 只 用 
cons、car 和 cdr 对 各 种 表 进 行 操作 ， 其 中 的 共享 就 完全 不 会 被 察觉 。 然 而 ， 如 果 允 许 改变 
表 结 构 的 话 ， 共 享 的 情况 就 会 显现 出 来 了 。 作 为 考察 这 种 共享 会 产生 什么 影响 的 例子 ， 现 在 
考虑 下 面 的 过 程 ， 它 将 修改 被 它 应 用 的 那个 结构 的 car: 


(define (set-to-wow! x) 





号 这 两 个 序 对 不 同 ， 是 因为 对 cons 的 每 次 调用 总 返回 一 个 新 序 对 。 符 号 共享 是 因为 在 Scheme 里 对 应 每 个 名 字 
的 符号 是 唯一 的 。 因 为 Scheme 不 提供 改变 符号 的 方式 ， 因 此 这 一 共享 是 不 可 分 辨 的 。 请 注意 ， 正 是 这 种 共享 
使 我 们 能 用 eq? 比 较 符 号 ， 这 个 过 程 就 是 简单 比较 两 个 指针 是 否 相 等 。 
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(set-car! (car x) "wow) 


x) 


虽然 z1 和 z2 可 以 看 作 是 “同样 的 ”结构 ， 将 set-to-wow! 应 用 于 它们 ， 就 会 产生 不 同 的 结 
果 。 对 于 zl 而 言 ， 修 改 其 car 也 就 同时 修改 了 它 的 cdr， 因 为 在 zl 里 的 car 和 cdr 是 同一 个 
序 对 。 而 对 于 z2， 由 于 其 car 和 cdr 是 不 同 的 ， 所 以 set -to-wow! 只 修改 了 它 的 car: 

z1 

((a b) a b) 

(set-to-wow! z1) 

( (wow b) wow b) 

z2 

((a b) a b) 


(set-to-wow! z2) 
((wow b) a b) 


检查 表 结 构 是 否 共享 的 一 种 方式 是 使 用 谓词 eq? ， 这 个 谓词 在 2.3.1 节 里 介绍 过 ， 是 作为 
检查 两 个 符号 是 否 相同 的 手段 。 说 得 更 一 般 些 ,实际 上 (eq? x y) 检查 x 和 y 是 否 为 同一 个 
对 象 ( 也 就 是 说 ，x 和 y 作 为 指针 是 否 相 等 )。 这 样 ， 对 于 图 3-16 和 图 3-17 所 定义 的 z21 和 z2， 
(eq? (car z1) (cdr z1)) 是 真 而 (eq? (car z2) (cdr z2)) 是 假 。 

在 下 一 节 里 我 们 可 以 看 到 ， 利 用 共享 结构 可 以 极 大 地 扩展 能 够 用 序 对 表示 的 数据 结构 的 
范围 。 另 一 方面 ， 共 享 也 可 能 带 来 危险 ， 因 为 对 这 种 结构 的 修改 将 会 影响 那些 恰好 共享 着 被 
修改 了 的 序 对 的 结构 。 改 变 函 数 set -car! 和 set-cdr1! 的 使 用 需要 特别 小 心 ， 除 非 我 们 很 
好 地 理解 了 数据 对 象 的 共享 情况 ， 否 则 使 用 改变 函数 就 会 造成 意 想不到 的 结果 中 。 

练习 3.15 请 画 出 盒子 指针 图 形 ， 解 释 set -to-wow! 对 于 上 面 结构 z1 和 z2 的 作用 。 

练习 3.16 Ben Bitdiddle 决 定 写 一 个 过 程 ， 统 计 任 何 一 个 表 结 构 中 的 序 对 个 数 。“ 这 太 简 
单 了 ,” 他 说 ,“ 任 何 表 结构 里 序 对 的 个 数 就 是 其 car 部 分 的 统计 值 加 上 其 cdr 部 分 的 统计 值 ， 
再 加 上 1， 以 计 入 当前 这 个 序 对 ”。 所 以 Ben 写 出 了 下 面 过 程 : 


(define (count-pairs x) 
(if (not (pair? x)) 
0 
(+ (count-pairs (car x)) 
(count-pairs (cdr x) ) 
L))) 


请 说 明 这 一 过 程 并 不 正确 。 请 画 出 几 个 表示 表 结 构 的 盒子 指针 图 ， 它 们 都 正好 由 3 个 序 对 构成 ， 
而 Ben 的 过 程 对 它们 将 分 别 返回 3，4，7， 或 者 根本 就 不 返回 。 

练习 3.17 ”请 设计 出 练习 3.16 中 count -paizs 过 程 的 一 个 正确 版 本 ， 使 它 对 任何 结构 都 
能 正确 返回 不 同 序 对 的 个 数 。( 提 示 : 遍历 有 关 的 结构 ， 维 护 一 个 辅助 性 数据 结构 ， 用 它 记 录 


“在 处 理 变动 数据 对 象 的 共享 问题 时 ， 最 微妙 的 地 方正 好 就 反应 了 3.1.3 节 里 提出 的 有 关 “ 同 一 ”和 “变化 ”的 
基本 问题 。 我 们 在 那里 说 过 ， 如 果 和 希望 这 个 语言 里 容许 做 修改 ， 那 么 每 个 复合 对 象 就 必须 有 一 个 “标识 ”， 
这 应 该 是 某 种 不 同 于 构造 起 它 的 那些 片段 的 东西 。 在 Lisp 里 ， 我 们 所 认为 的 “同一 ”也 就 是 检查 客体 之 间 的 
eq?， 采 用 指针 相等 表示 。 这 是 因为 在 大 部 分 Lisp 实 现 里 ， 一 个 指针 本 质 上 就 是 一 个 存储 地 址 ， 在 这 里 “ 解 
决 ”对 象 标识 问题 的 方式 ， 是 假设 数据 对 象 “本 身 ” 也 是 一 些 信息 ， 存 储 在 计算 机 中 某 一 些 特定 的 存储 位 置 。 
对 于 简单 的 Lisp 程 序 而 言 ， 这 也 就 足够 了 。 但 是 这 并 不 是 解决 计算 模型 中 “同一 ”问题 的 一 般 性 方法 。 
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已 经 计算 过 的 序 对 的 轨迹 。) 
练习 3.18 ”请 写 一 个 过 程 检查 一 个 表 ， 确 定 其 中 是 否 包含 环 ， 也 就 是 说 ， 如 果 某 个 程序 
打算 通过 不 断 做 cdr 去 找到 这 个 表 的 结尾 ， 是 否 会 陷入 无 穷 循 环 。 练 习 3.13 构 造 了 这 种 表 。 
练习 3.19 重 做 练习 3.18， 采 用 一 种 只 需要 常量 空间 的 算法 (需要 一 种 很 聪明 的 想法 )。 


改变 也 就 是 赋值 
在 介绍 复合 数据 时 ， 我 们 在 2.1.3 节 看 到 ， 序 对 可 以 纯粹 地 用 过 程 来 表示 : 
(define (cons x y) 
(define (dispatch m) 
(cond ((eq? m ‘'car) x) 
( (eq? m ‘cdr) y) 
(else (error "Undefined operation -- CONS" m)))) 
dispatch) 


(define (car z) (z ’car)) 


(define (cdr z) (z ‘cdr)) 


这 种 认识 对 于 变动 数据 也 是 对 的 ， 我 们 可 以 将 变动 数据 对 象 实现 为 使 用 赋值 和 局 部 状态 的 过 
程 。 举 例 说 ， 我 们 可 以 扩充 上 面 的 序 对 实现 ， 采 用 与 3.1.1 节 类 似 的 方式 ， 用 make-account 
实现 银行 账户 的 方式 处 理 set -car! 和 set-cdr1! 的 问题 。 
(define (cons x Y) 
(define (set-x! v) (set! x v)) 
(define (set-y! v) (set! y v)) 
(define (dispatch m) 
(cond ((eq? m ‘car) x) 
((eq? m cdr) y) 
( (eq? m ’set-car!) set-x!) 
( (eq? m "set-cdr!) set-y!) 
(else (error "Undefined operation -- CONS" m)))) 
dispatch) 


(define (car z) (z ‘car)) 
(define (cdr z) (z ‘cdr)) 


(define (set-car! z new-value) 
((z ’set-car!) new-value) 


z) 


(define (set-cdr! z new-value) 
((z *set-cdr!) new-value) 


z) 


从 理论 上 说 ， 为 了 表现 变动 数据 的 行为 ， 所 需要 的 全 部 东西 也 就 是 赋值 。 只 要 将 赋值 纳 
入 这 一 语言 ， 我 们 就 引出 了 所 有 的 问题 ， 不 仅 是 赋值 ， 而 且 也 包括 一 般 性 的 变动 对 象 ”。 
练习 3.20 请 画 出 显示 下 面 一 系列 表达 式 的 求 值 过 程 的 环境 图 示 : 


呈 而 在 另 一 方面 ， 从 实现 的 观点 看 ， 赋 值 要 求 我 们 去 修改 环境 ， 而 环境 本 身 也 是 一 个 变动 数据 结构 。 这 样 ， 赋 
值 和 变动 就 具有 同等 的 地 位 ， 可 以 相互 实现 。 
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(define x (cons 1 2)) 
(define z (cons x x)) 
(set-car! (cdr z) 17) 


(car x) 
17 


其 中 使 用 上 面 给 出 的 序 对 的 过 程 实现 (请 与 练习 3.11 比 较 )。 
3.3.2 队列 的 表示 


利用 改变 函数 set -car! 和 set-cdr!， 我 们 可 以 用 序 对 构造 出 一 些 单 靠 cons 、car 和 
car 无 法 构造 的 数据 结构 。 这 一 节 将 展示 如 何 用 序 对 表示 一 种 称 为 队列 的 数据 结构 。3.3.3 节 
将 展示 如 何 表示 称 为 表格 的 数据 结构 。 

一 个 队列 是 一 个 序列 ， 数 据 项 只 能 从 一 端 插入 (Gx RPE FIA A), ， 只 能 从 另 一 端 删 除 
(队列 的 前 问 ) 。 图 3-18 显 示 的 是 一 个 初始 为 空 的 队列 ， 而 后 插入 数据 项 a 和 Pb ， 而 后 删除 a， 又 
插入 c 和 Qa， 再 后 又 删除 p 。 由 于 数据 项 是 按照 它们 插入 的 顺序 删除 ， 因 此 队列 有 时 也 被 称 为 
FIFO (先进 先 出 ) 缓冲 区 。 


操作 结果 的 队列 
(define q (make-queue) ) 


(insert-queue! q "al) 


(insert-queue! q ’b) 


(delete-queue! q) 
(insert-queue! q ‘c) 
(insert-queue! q ‘d) 


(delete-queue! q) 





图 3-18 队列 操作 


按照 数据 抽象 的 说 法 ， 队 列 可 以 看 作 是 由 下 面 一 组 操作 定义 的 结构 : 
“一 个 构造 函数 : 

(make-queue) 

它 返 回 一 个 空 队 列 (不 包含 数据 项 的 队列 )。 

(empty-queue? <queue>) 

检查 队列 是 否 为 空 。 

(front-queue <queue>) 

返回 队列 前 端的 对 象 ， 如 果 队 列 为 空 就 报告 一 个 错误 。 它 不 修改 队列 。 
* 两 个 改变 函数 : 

(insert-queue! <queue> <item>) 

将 数据 项 插入 队列 末端 ， 返 回 修 改过 的 队列 作为 值 。 
(delete-queue! <queue>) 


删除 队列 前 端的 数据 项 ， 并 返回 修改 后 的 队列 作为 值 。 如 果 删 除 之 前 队列 为 空 就 报告 错误 。 
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由 于 队列 就 是 数据 项 的 序列 ， 我 们 当然 可 以 将 它 表 示 为 一 个 常规 的 表 。 这 样 ， 队 列 的 前 
端 就 是 表 的 car， 向 队列 中 插入 数据 项 就 是 将 一 个 项 附加 到 表 的 最 后 ， 而 从 队列 里 删除 一 个 
项 就 是 取 这 个 表 的 car。 但 是 这 种 表示 是 相当 低 效 的 ， 这 是 因为 ， 为 了 插入 一 个 数据 项 ， 我 
们 就 必须 扫描 整个 表 ， 直 至 到 达 表 尾 。 由 于 扫描 一 个 表 的 方法 只 有 通过 执行 一 系列 的 cdr 操 
作 ， 对 于 n 个 项 的 表 ， 这 种 扫描 就 需要 做 OB(n) 步 。 简 单 地 修改 一 下 表 的 表示 方式 ， 就 可 以 克服 
这 种 缺点 ， 使 队列 操作 都 只 要 需 @(1) 步 就 能 实现 ， 也 就 是 说 ， 使 所 需 的 步 数 完全 与 队列 的 长 
度 无 关 。 

采用 表 的 表示 形式 ， 引 出 的 一 个 问题 是 为 找到 表 尾 需要 扫描 整个 表 。 这 里 的 原因 就 在 于 ， 
表 的 标准 表示 方式 是 用 一 个 序 对 的 链 ， 虽然 这 样 可 以 很 方便 地 提供 一 个 表 的 开始 指针 ， 但 却 
不 能 为 我 们 提供 访问 表 尾 的 方便 方法 。 如 果 要 避免 这 一 缺陷 ， 那 就 需要 修改 表示 方式 ， 将 队 
列表 示 为 一 个 表 ， 并 带 有 一 个 指向 表 的 最 后 序 对 的 指针 。 采 用 了 这 种 方式 ， 如 果 我 们 需要 插 
入 一 个 数据 项 时 ， 那 就 只 需 考察 这 个 尾 指针 ， 因 此 就 可 以 避免 对 表 的 扫描 了 。 

这 样 ， 队 列 被 表示 为 一 对 指针 front -ptr 和 rear-ptr， 它 们 分 别 指向 一 个 常规 表 中 的 
第 一 个 序 对 和 最 后 一 个 序 对 。 由 于 我 们 希望 队列 成 为 一 个 可 标识 对 象 ， 为 此 可 以 将 这 两 个 指 
针 cons 起 来 。 这 样 ， 队 列 本 身 也 将 是 两 个 指针 的 cons。 图 3-19 显 示 了 这 种 表示 的 情况 。 





rear-ptr 


图 3-19 将 队列 实现 为 一 个 带 有 首尾 指针 的 表 

为 了 定义 出 队列 的 各 种 操作 ， 我 们 将 使 用 下 面 几 个 过 程 ， 它 们 可 以 用 于 选择 或 者 修改 队 
列 的 前 端 和 末端 指针 。 

(define (front-ptr queue) (car queue)) 

(define (rear-ptr queue) (cdr queue)) 

(define (set-front-ptr! queue item) (set-car! queue item)) 

(define (set-rear-ptr! queue item) (set-cdr! queue item)) 

现在 我 们 就 可 以 定义 队列 的 各 个 实际 操作 了 。 如 果 一 个 队列 的 前 端 指针 等 于 其 末端 指针 ， 
那么 就 认为 这 个 队列 为 空 : 

(define (empty-queue? queue) (null? (front-ptr queue) ) ) 
构造 函数 make-queue 返 回 一 个 初始 为 空 的 表 ， 也 就 是 一 个 序 对 ， 其 car 和 cdr 都 是 空 表 : 

(define (make-queue) (cons *() *())) 
在 需要 选取 队列 前 端的 数据 项 时 ， 我 们 就 返回 由 前 端 指针 指向 的 序 对 的 car: 


(define (front-queue queue) 


(if (empty-queue? queue) 
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(error "FRONT called with an empty queue" queue) 


(car (front-ptr queue) ))) 


要 向 队列 中 插入 一 个 数据 项 ， 我 们 将 按照 图 3-20 中 表明 的 方式 ， 首 先 创建 起 一 个 新 序 对 ， 其 
car 是 需要 插入 的 数据 项 ， 其 cdr 是 空 表 。 如 果 这 一 队列 原来 是 空 的 ， 那 么 就 让 队列 的 前 端 指 
针 和 后 端 指针 都 指向 这 个 新 序 对 。 否 则 就 修改 队列 中 最 后 一 个 序 对 ， 使 之 指向 这 个 新 序 对 ， 
而 后 让 队列 的 后 端 指针 也 指向 这 个 新 序 对 。 
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图 3-20 对 图 3-19 的 队列 使 用 (insert-queue! q’ d) 的 结果 


(define (insert-queue! queue item) 
(let ((new-pair (cons item ’()))) 
(cond ((empty-queue? queue) 
(set-front-ptr! queue new-pair) 
(set-rear-ptr! queue new-pair) 
queue) 
(else 
(set-cdr! (rear-ptr queue) new-pair) 
(set-rear-ptr! queue new-pair) 


queue) ))) 


要 从 队列 的 前 端 删除 一 个 数据 项 ， 我 们 只 需要 修改 队列 的 前 端 指针 ， 使 它 指 向 队列 中 的 
第 二 个 数据 项 。 通 过 队列 中 第 一 项 的 cdr 指 针 就 可 以 找到 这 个 项 〈 参 见 图 3-21) 1°; 
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图 3-21 对 图 3-20 的 队列 使 用 (delete-queue! q) 的 结果 


(define (delete-queue! queue) 
(cond ((empty-queue? queue) 
(error "DELETE! called with an empty queue" queue) ) 


(else 


150 如 果 队 列 的 第 一 个 数据 项 也 是 最 后 一 个 ， 在 删除 之 后 前 端 指针 将 变 成 空 表 ， 这 也 就 会 使 队列 变 成 空 的 。 此 时 
不 必 去 关心 末端 指针 ， 虽 然 它 还 指 着 那个 被 删除 的 数据 项 。 因 为 empty-queue? 只 看 前 端 指针 。 
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(set-front-ptr! queue (cdr (front-ptr queue) ) ) 
queue) ) 


练习 3.21 Ben Bitdiddle 决 定 对 上 面 描述 的 队列 实现 做 一 些 测试 ， 他 顺序 地 给 Lisp 解 释 器 
输入 了 下 面 的 试验 表达 式 : 

(define ql (make-queue) ) 

(insert-queue! q1 ’a) 

((a) a) 

(insert-queue! ql ’b) 

((a b) b) 

(delete-queue! ql) 


((b) b) 


(delete-queue! ql) 
(() b) 


“不 对 ”， 他 抱怨 说 , “解释 器 的 响应 说 明 最 后 一 个 数据 项 被 插入 了 队列 两 次 ， 因 为 我 把 两 个 数 
据 项 都 删除 了 ， 但 是 第 二 个 还 在 那里 。 因 此 此 时 这 个 表 不 空 ， 虽 然 它 应 该 已 经 空 了 。” Eva 
Lu Ator 说 是 Ben 错 误 理 解 了 所 出 现 的 情况 。 “这 里 根本 没有 数据 项 进入 队列 两 次 的 事情 ”， 她 
解释 说 ,“ 问 题 不 过 是 Lisp 的 标准 输出 函数 不 知道 应 如 何 理解 队列 的 表示 。 如 果 你 希望 能 看 到 
队列 的 正确 打印 结果 ， 你 就 必须 自己 去 为 队列 定义 一 个 打印 过 程 。” 请 解释 Eva Lu 说 的 是 什么 
意思 ， 特 别 是 说 明 ， 为 什么 Ben 的 例子 产生 出 那样 的 输出 结果 。 请 定义 一 个 过 程 print - 
queue， 它 以 队列 为 输入 ， 打 印 出 队列 里 的 数据 项 序列 。 

练习 3.22 ”除了 可 以 用 一 对 指针 表示 队列 外 ， 我 们 也 可 以 将 队列 构造 成 一 个 带 有 局 部 状 
态 的 过 程 。 这 里 的 局 部 状态 由 指向 一 个 常规 表 的 开始 和 结束 指针 组 成 。 这 样 ， 过 程 make - 
queue 将 具有 下 面 的 形式 .: 


(define (make-queue) 
(let ((front-ptr ...) 
(rear-ptr ...)) 
< 内 部 过 程 定义 > 
(define (dispatch m) ...) 
dispatch)) 


请 完成 make -queue 的 定义 ， 进 而 采用 这 一 表示 提供 队列 操作 的 实现 。 

练习 3.23 MAPAJ) (deque) 也 是 一 种 数据 项 的 序列 ， 其 中 的 数据 项 可 以 从 前 端 或 后 端 
插入 和 删除 。 双 端 队 列 的 操作 包括 构造 函数 make -deque， 谓词 empty-deque?， 选 择 函 数 
front-deque、rear-deque， 改 变 闲 数 front-insert-deque!、rear-insert- 
deque!、front-delete-deque!、rear-delete-deque!。 请 说 明 如 何 用 序 对 表示 双 
端 队列 ， 并 给 出 各 个 操作 的 实现 。 所 有 操作 都 应 该 在 9@(1) 步骤 内 完成 5 。 


3.3.3 表格 的 表示 


在 第 2 章 里 研究 集合 表示 的 各 种 方式 时 ， 我 们 曾经 在 2.3.3 节 提 到 过 有 关 维 护 一 个 由 标识 关 
键 码 索 引 的 记录 表格 的 问题 。 在 2.4.3 节 里 实现 数据 导向 的 程序 设计 时 ， 也 大 量 地 使 用 了 二 维 


S 请 当心 ， 不 要 让 解释 器 试图 去 打印 一 个 包含 环 的 结构 (参见 练习 3.13)。 
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表格 ， 在 其 中 存储 着 有 关 的 信息 ， 用 两 个 关键 码 去 提取 。 现 在 我 们 要 考察 如 何 用 一 种 变动 的 
表 结 构 来 实现 表格 。 

我 们 首先 考虑 一 维 表格 的 问题 ， 在 这 种 表格 里 ， 每 个 值 保 存在 一 个 关键 码 之 下 。 我 们 要 
将 这 种 表格 实现 为 一 个 记录 的 表 ， 其 中 的 每 个 记录 将 实现 为 由 一 个 关键 码 和 一 个 关联 值 组 成 
的 序 对 。 将 这 种 记录 连接 起 来 构成 一 个 序 对 的 表 ， 让 这 些 序 对 的 ca 指针 顺序 指向 各 个 记录 。 
这 些 作为 连接 结构 的 序 对 就 成 为 这 一 表格 的 骨架 。 为 了 在 向 表格 里 加 入 记录 时 能 有 一 个 可 以 
修改 的 位 置 ， 我 们 将 这 种 表格 构造 为 一 种 带 表 头 单元 的 表 。 带 表 头 单元 的 表 在 开始 处 有 一 个 
特殊 的 骨架 序 对 ， 其 中 保存 着 一 个 哑 “ 记 录 ” 一 一 目前 在 这 里 存放 一 个 特殊 符号 *tablerx。 
图 3-22 显 示 了 下 面 表格 的 盒子 指针 图 。 


a: a 
b: 2 
Gt 3 


table 








Pe) fy e a 
图 3-22 带 表 头 单元 的 表 


为 了 从 表格 里 提取 信息 ， 我 们 用 了 一 个 lookup 过 程 ， 它 以 一 个 关键 码 为 参数 ， 返 回 与 之 
相关 联 的 值 (如 果 在 这 个 关键 码 之 下 没有 值 就 返回 假 )。1ookup 是 基于 assoc 操 作 定 义 的 ， 
这 一 操作 要 求 一 个 关键 码 和 一 个 记录 的 表 作 为 参数 。 请 注意 ，assoc 根 本 不 去 看 那个 哑 记 录 ， 
它 返 回 以 给 定 关键 码 为 car 的 那个 记录 '“。1ookup 检 查 由 assoc 返 回 的 结果 记录 是 否 为 假 ， 
而 后 返回 该 记录 中 的 值 (其 car)。 


(define (lookup key table) 





(let ((record (assoc key (cdr table)))) 
(if record 
(cdr record) 
false) )) 
(define (assoc key records) 

(cond ((null? records) false) 
((equal? key (caar records)) (car records) ) 
(else (assoc key (cdr records) )))) 


要 在 一 个 表格 里 某 个 特定 的 关键 码 之 下 插入 一 个 值 ， 我 们 首先 用 assoc 查 看 该 表格 里 是 
否 已 经 有 以 此 作为 关键 码 的 记录 。 如 果 没 有 就 cons 起 这 个 关键 码 和 相应 的 值 ， 构 造 出 一 个 新 
记录 ， 并 将 它 插入 到 记录 表 的 最 前 面 ， 位 于 哑 记 录 之 后 。 如 果 表 格 里 已 经 有 了 具有 该 关键 码 


衬 由 于 assoc 里 用 的 是 egqual?， 它 能 允许 以 符号 、 数 值 或 者 表 结 构 作 为 关键 码 。 
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的 记录 ， 那 么 就 将 该 记录 的 cdr 设置 为 这 个 新 值 。 表 格 的 头 单元 为 我 们 提供 了 一 个 明确 的 位 
置 ， 使 我 们 在 插入 新 记录 时 能 确定 相应 的 修改 位 置 '”。 


(define (insert! key value table) 
(let ((record (assoc key (cdr table)))) 
(if record 
(set-cdr! record value) 
(set-cdr! table 
(cons (cons key value) (cdr table))))) 


"ok) 
在 构造 一 个 新 表格 时 ， 我 们 只 需要 创建 起 一 个 包含 符号 *table* 的 表 : 


(define (make-table) 
(list '*table*)) 


二 维 表 格 
二 维 表格 里 的 每 个 值 由 两 个 关键 码 索 引 。 我 们 可 以 将 这 种 表格 构造 为 一 个 一 维 表格 ， 其 


中 的 每 个 关键 码 又 标识 了 一 个 子 表格 。 图 3-23 中 的 盒子 指针 图 表示 的 是 下 面 表 格 : 


L 


E Ried 


ee MC mC >|” 


ele) GIS 
= e E be 


EIC at C aa E ga ki 


ele! iple] [giel 
ee) a Bel e a 


图 3-23 一 个 二 维 表格 


于 这 样 ， 第 一 个 骨架 序 对 也 就 成 为 代表 这 个 表 列 “本 身 ” 的 对 象 ， 也 就 是 说 ， 指 向 这 个 表 列 的 指针 就 是 指向 这 
个 序 对 的 指针 。 这 个 骨架 序 对 总 代表 着 表 列 的 开始 。 如 果 我 们 不 采用 这 种 安排 方式 ，insert ! 过 程 每 次 向 表 
列 中 加 入 一 个 新 记录 后 ， 就 需要 返回 表 列 的 新 起 始 位 置 。 


ža 42 
letters: 

a: 97 

b: 98 


这 其 中 有 两 个 子 表格 。( 子 表格 并 不 需要 特殊 的 头 单 元 符号 ， 因 为 标识 子 表格 的 关键 码 就 能 起 
到 这 一 作用 。) 


在 需要 查找 一 个 数据 项 时 ， 我 们 先 用 第 一 个 关键 码 确定 对 应 的 子 表格 ， 而 后 用 第 二 个 关 
键 码 在 这 个 子 表格 里 确定 记录 。 


(define (lookup key-1 key-2 table) 
(let ((subtable (assoc key-1 (cdr table)))) 
(if subtable 
(let ((record (assoc key-2 (cdr subtable) ))) 
(if record 
(cdr record) 
false) ) 
false) )) 


如 果 需 要 将 一 个 新 数据 项 插入 到 一 对 关键 码 之 下 ， 我 们 首先 用 assoc 去 查看 在 第 一 个 关 
键 码 下 是 否 存在 一 个 子 表格 。 如 果 没 有 ， 那 么 就 构造 起 一 个 新 的 子 表格 ， 其 中 只 包含 一 个 记 
K (key-2，value)， 并 将 这 一 子 表格 插入 到 表格 中 的 第 一 个 关键 码 之 下 。 如 果 表 格 里 已 经 
有 了 对 应 于 第 一 个 关键 码 的 子 表格 ， 那 么 就 将 新 值 插入 该 子 表格 ， 用 的 就 是 上 面 所 述 的 在 一 
维 表格 中 插入 的 方法 : 


(define (insert! key-1 key-2 value table) 
(let ((subtable (assoc key-1 (cdr table)))) 
(if subtable 
(let ((record (assoc key-2 (cdr subtable)))) 
(if record 
(set-cdr! record value) 
(set-cdr! subtable 
(cons (cons key-2 value) 
(cdr subtable))))) 
(set-cdr! table 
(cons (list key-1 
(cons key-2 value) ) 
(cdr table))))) 
"ok) 


创建 局 部 表格 

上 面 定义 的 1ookup 和 :insert:! 操 作 都 以 表格 作为 一 个 参数 ， 这 也 使 我 们 可 以 将 它们 用 
到 包含 多 个 表格 的 程序 里 。 处 理 多 个 表格 的 另 一 种 方式 是 为 每 个 表格 提供 一 对 独立 的 1ookup 
和 :insezrt! 过 程 。 为 了 能 够 这 样 做 ， 我 们 可 以 用 过 程 的 方式 表示 表格 ， 将 表格 表示 为 一 个 以 
局 部 状态 的 方式 维持 着 一 个 内 部 表格 的 对 象 。 在 接 到 一 个 适当 的 消息 时 ， 这 种 “表格 对 象 ” 
将 提供 相应 的 过 程 ， 实 现 对 内 部 表格 的 各 种 操作 。 下 面 就 是 一 个 采用 这 种 方式 表示 二 维 表格 
的 生成 器 : 

(define (make-table) 

(let ((local-table (list **table*))) 
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(define (lookup key-1 key-2) 
(let ((subtable (assoc key-1 (cdr local-table)))) 
(if subtable 
(let ((record (assoc key-2 (cdr subtable) ) ) ) 
(if record 
(cdr record) 
false) ) 
false) ) ) 
(define (insert! key-1 key-2 value) 
(let ((subtable (assoc key-1 (cdr local-table) ))) 
(if subtable 
(let ((record (assoc key-2 (cdr subtable)))) 
(if record 
(set-cdr! record value) 
(set-cdr! subtable 
(cons (cons key-2 value) 
(cdr subtable))))) 
(set-cdr! local-table 
(cons (list key-1 
(cons key-2 value) ) 
(cdr local-table))))) 
"ok) 
(define (dispatch m) 
(cond ((eq? m ’lookup-proc) lookup) 
( (eq? m ’insert-proc!) insert!) 
(else (error "Unknown operation -- TABLE" m)))) 
dispatch) ) 


利用 make-table， 我 们 就 能 做 出 在 2.4.3 节 里 为 做 数据 导向 的 程序 设计 而 用 的 get 和 
put 操 作 了 。 它 们 的 实现 如 下 : 
(define operation-table (make-table)) 


(define get (operation-table "1ookup-proc) ) 
(define put (operation-table 'insert-proc!) ) 


过 程 get 以 两 个 关键 码 为 参数 ，Put 以 两 个 关键 码 和 一 个 值 为 参数 。 这 两 个 操作 都 访问 同一 个 
局 部 表格 ， 这 一 表格 被 封装 在 由 对 make-table 的 调用 创建 起 的 对 象 里 面 。 

练习 3.24 ”在 上 面 的 表格 实现 里 ， 对 于 关键 码 的 检查 用 equa1l? 比 较 是 否 相 等 ( 它 被 
assoc 调 用 )。 这 一 检查 方式 并 不 一 定 总 是 合适 的 。 举 例 来 说 ， 我 们 可 能 需要 一 个 采用 数值 关 
键 码 的 表格 ， 对 于 这 种 表格 ， 我 们 需要 的 不 是 找到 对 应 数值 的 准确 匹配 ， 而 可 以 是 有 一 点 容 
许 误差 的 数值 。 请 设计 一 个 表格 构造 函数 make-table, 它 以 一 个 same-key? 过 程 作为 参数 ， 
用 这 个 过 程 检查 关键 码 的 “相等 ”与 否 。make -table 过 程 应 该 返回 一 个 过 程 dispatch,， 
可 以 通过 它 去 访问 对 应 于 局 部 表格 的 l]ookup 和 insert ! 过 程 。 

练习 3.25 ”请 推广 一 维 表格 和 二 维 表格 的 概念 ， 说 明和 如何 实现 一 种 表格 ， 其 中 的 值 可 以 
保存 在 任意 多 个 关键 码 之 下 ， 不 同 的 值 可 能 对 应 于 不 同 数 目的 关键 码 。 对 应 的 l]ookup 和 
insert ! 过 程 以 一 个 关键 码 的 表 作为 参数 去 访问 这 一 表格 。 

练习 3.26 ”为 了 在 上 面 这 样 实现 的 表格 中 检索 ， 我 们 就 需要 扫描 这 个 记录 表 。 从 本 质 上 
说 ， 这 就 是 2.3.3 节 中 的 无 序 表 表 示 方 式 。 对 于 很 大 的 表格 ， 以 其 他 方式 构造 表格 可 能 更 加 高 
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效 。 请 描述 一 种 表格 实现 ， 其 中 的 (key, value) 记录 用 二 又 树 形式 组 织 起 来 。 这 要 假定 关键 
码 能 够 以 某 种 方式 排序 〈 例 如 ， 数 值 序 或 者 字典 序 ) 。( 请 与 第 2 章 的 练习 2.66 比 较 。) 

练习 3.27 记忆 法 (memoization， 或 称 表格 法 ，tabulation) 是 一 种 技术 ， 采 用 这 种 技术 
的 过 程 将 把 前 面 已 经 算出 的 一 些 值 记 录 在 局 部 状态 里 。 这 种 技术 可 能 大 大 改变 一 个 程序 的 性 
能 。 在 一 个 采用 记忆 法 的 过 程 里 维持 着 一 个 表格 ， 甚 中 保存 着 前 面 已 经 做 过 的 调用 求 出 的 值 ， 
以 产生 这 些 值 的 实际 参数 作为 关键 码 。 当 这 种 过 程 被 调用 去 计算 某 个 值 时 ， 它 首先 检查 有 关 
的 表格 ， 看 看 相应 的 值 是 否 已 经 在 那里 ， 如 果 找 到 了 就 直接 返回 这 个 值 ， 否 则 就 以 正常 方式 
计算 出 相应 的 值 ， 并 将 它 保存 到 这 个 表格 里 。 作 为 记忆 性 过 程 的 一 个 例子 ， 让 我 们 重 温 一 下 
1.2.2 节 里 计算 斐 波 那 契 数 的 指数 计算 过 程 : 


(define (fib n) 


(cond ((= n 0) 0) 
((= n 1) 1) 
(else (+ (fib (- n 1)) 
(fab (= 2 29) 2)2 


同一 过 程 的 带 记录 版 本 是 : 
(define memo-fib 


(memoize (lambda (n) 


(cond ((= n 0) 0) 
(te n 1) 2) 
(else (+ (memo-fib (- n 1)) 
(memo-fib (- n 2)))))))) 
其 中 的 记录 器 定义 为 : 


(define (memoize f£) 
(let ((table (make-table))) 
(lambda (x) 
(let ((previously-computed-result (lookup x table))) 
(or previously-computed-result 
(let ((result (f x))) 

(insert! x result table) 
result)))))) 


请 为 (memo-fib 3) 的 计算 画 出 一 个 环境 图 ， 解 释 为 什么 memo-Eib 能 以 正比 于 zx 的 步 数 计 
算出 第 "个 斐 波 那 契 数 。 如 果 简 单 地 将 memo-Eib 定 义 为 (memoize fib)， 这 一 模式 还 能 工 
作 吗 ? 


3.3.4 数字 电路 的 模拟 器 


设计 复杂 的 数字 系统 ， 例 如 计算 机 ， 是 一 种 非常 重要 的 工程 活动 。 数 字 系 统 都 是 通过 连 
接 一 些 简单 元 件 构造 起 来 的 。 虽 然 这 些 元 件 单 独 看 起 来 功能 都 很 简单 ， 它 们 连接 起 来 形成 的 
网 络 就 可 能 产生 非常 复杂 的 行为 。 对 提出 的 电路 设计 做 计算 机 模拟 ， 是 一 种 数字 系统 工程 师 
广泛 使 用 的 重要 工具 。 在 这 一 节 里 ， 我 们 要 设计 一 个 执行 数字 逻辑 模拟 的 系统 。 这 一 系统 是 
通常 称 为 事件 驱动 的 模拟 程序 的 一 个 典型 代表 ， 在 这 类 系统 里 ， 一 些 活动 (“事件”) 引发 另 
一 些 在 随后 时 间 发 生 的 事件 ， 它 们 又 会 引发 随后 的 事件 ， 并 如 此 继续 下 去 。 

我 们 有 关 电 路 的 计算 模型 将 由 一 些 对 象 组 成 ， 它 们 对 应 于 构造 电路 时 所 用 的 那些 基本 构 
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件 。 这 里 也 有 连 线 ， 它 们 能 传递 数字 信号 。 一 个 数字 信号 在 任何 时 刻 都 只 能 具有 0 或 1 这 两 个 
可 能 值 之 一 。 这 里 还 有 许多 不 同 种 类 的 功能 块 ， 它 们 连接 着 一 些 输入 信号 的 连 线 和 另外 一 些 
输出 连 线 。 这 种 功能 块 从 它们 的 输入 信号 计算 出 相应 的 输出 信号 。 输 出 信号 有 一 个 延迟 ， 具 
体 情况 依赖 于 功能 块 的 种 类 。 例 如 ， 反 门 是 一 种 基本 功能 块 ， 它 们 对 输入 求 反 。 如 果 一 个 反 
门 的 输入 信号 变 为 0， 那 么 在 一 个 反 门 延迟 时 间 单位 之 后 ， 这 个 反 门 就 将 其 输出 信号 改变 为 1。 
如 果 一 个 反 门 的 输入 信号 改变 为 1， 那 么 在 一 个 反 门 延迟 时 间 单 位 之 后 ， 这 个 反 门 就 将 其 输出 
信号 改变 为 0。 图 3-24 里 画 出 了 表示 反 门 的 符号 。 一 个 与 门 (如 图 3-24 里 所 示 ) 也 是 一 个 基本 
功能 块 ， 它 有 两 个 输入 和 一 个 输出 ， 以 其 输入 的 远 辑 与 作为 输出 信号 的 值 。 也 就 是 说 ， 当 一 
个 与 门 的 两 个 输入 信号 都 变 成 1 时 ， 在 一 个 与 门 延迟 时 间 单 位 之 后 ， 该 与 门将 产生 1 作为 输出 
言 号 ， 否 则 其 输出 就 是 0。 或 门 是 另 一 种 类 似 的 功能 块 ， 以 其 输入 的 逻辑 或 作为 输出 信号 的 值 。 
也 就 是 说 ， 当 且 仅 当 一 个 或 门 的 两 个 输入 信号 之 一 为 1 时 ， 其 输出 为 1， 否 则 其 输出 就 是 0。 


反 门 与 门 xi] 
图 3-24 数字 逻辑 模拟 器 的 基本 功能 部 件 


我 们 可 以 将 一 些 基本 功能 部 件 连接 起 来 ， 构 造 出 更 复杂 的 功能 。 为 此 只 需 将 一 些 功 能 块 
的 输出 连 线 接 到 另 一 些 功 能 块 的 输入 。 举 个 例子 ， 图 3-25 展 示 的 是 一 个 半 加 器 电路 ， 其 中 包 
括 一 个 或 门 、 两 个 与 门 和 一 个 反 门 。 这 一 半 加 器 有 两 个 输入 信号 A 和 B， 以 及 两 个 输出 信号 S 
和 C。 当 恰好 A 和 B 之 一 为 1 时 ，S 将 变 成 1， 而 当 A 和 B 都 为 1 时 C 变 成 1。 从 这 个 图 形 可 以 看 出 ， 
由 于 延迟 的 存在 ， 这 些 输 出 可 能 在 不 同 的 时 间 产 生 ， 有 关 数 字 电 路 设计 的 许多 困难 都 源 于 此 。 





图 3-25 半 加 器 


我 们 现在 要 构造 出 一 个 程序 ， 它 能 够 模拟 我 们 希望 研究 的 各 种 数字 人 逻辑 电路 。 这 一 程序 
将 构造 出 模拟 连 线 的 计算 对 象 ， 它 们 能 够 “保持 ”信号 。 电 路 里 的 各 种 功能 块 用 过 程 模拟 ， 
它们 产生 出 信号 之 间 的 正确 关系 。 

这 一 模拟 中 的 一 个 最 基本 元 素 是 过 程 make -wire， 它 用 于 构造 连 线 。 举 例 来 说 ， 我 们 可 
以 像 下 面 这 样 构造 出 6 条 连 线 : 

(define a (make-wire)) 


(define b (make-wire)) 


(define c (make-wire)) 


(define d (make-wire) ) 
(define e (make-wire) ) 


(define s (make-wire) ) 


如 果 需 要 将 一 个 功能 块 连 到 一 组 连 线 上 ， 我 们 就 调用 一 个 构造 这 类 功能 块 的 过 程 ， 提 供给 该 
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构造 过 程 的 实际 参数 就 是 连接 到 这 一 功能 块 的 那些 连 线 。 例 如 ， 有 了 上 面 的 连 线 ， 我 们 可 以 
如 下 构造 出 与 门 、 或 门 和 反 门 ， 并 将 它们 连接 成 图 3-25 所 示 的 半 加 器 : 
(or-gate a b d) 


ok 


(and-gate a b c) 
ok 


(inverter c e) 
ok 


(and-gate d e s) 
ok 


为 了 做 得 更 好 一 点 ， 我 们 还 应 该 为 这 种 操作 命名 ， 定 义 出 一 个 过 程 half-adder， 它 能 
构造 出 这 种 电路 ， 并 将 送 给 它 的 四 条 外 部 连 线 接 到 这 个 半 加 器 上 : 


(define (half-adder a b s c) 
(let ((d (make-wire)) (e (make-wire) ) 
(or-gate a b d) 
(and-gate a b c) 
(inverter c e) 
(and-gate d e s) 
"ok)) 


做 出 这 种 定义 的 优点 ， 就 在 于 我 们 又 可 以 用 half-adder 本 身 作 为 基本 构件 ， 去 创建 更 复杂 
的 电路 。 例 如 ， 图 3-26 显 示 的 是 一 个 全 加 器 ， 它 由 两 个 半 加 器 和 一 个 或 门 组 成 54。 我 们 可 以 
用 如 下 方式 构造 出 全 加 器 : 





图 3-26 全 加 器 


(define (full-adder a b c-in sum c-out) 
(let ((s (make-wire) ) 
(cl (make-wire) ) 
(c2 (make-wire) ) ) 
(half-adder b c-in s cl) 
(half-adder a s sum c2) 
(or-gate cl c2 c-out) 
ok) ) 


将 全 加 器 定义 为 过 程 之 后 ， 我 们 就 又 可 以 利用 它 作 为 构件 ， 去 创建 更 复杂 的 电路 了 (例如 ， 
练习 3.30)。 
194 全 加 器 是 二 进 制 数 求 和 所 用 的 基本 电路 元 件 。 这 里 的 A 和 B 是 两 个 被 加 数 中 对 应 位 置 上 的 二 进 制 位 ，Ci 是 从 


被 加 位 的 右边 来 的 进位 位 。 这 一 电路 产生 出 的 SUM 是 表示 对 应 位 置 之 和 的 二 进 制 位 ， 而 Cow 是 传递 给 左边 位 
置 的 进位 位 。 


3.3 AED REBAR 19] 





从 本 质 上 看 ,模拟 器 为 我 们 提供 了 一 种 工具 ， 作 为 构造 电路 的 一 种 语言 。 如 果 我 们 采纳 
有 关 语 言 的 一 般 性 观点 ， 就 像 在 1.1 节 里 研究 Lisp 时 所 做 的 那样 ， 那 么 就 可 以 说 ， 各 种 基本 功 
能 块 形成 了 这 个 语言 的 基本 元 素 ， 将 功能 块 连接 起 来 就 是 这 里 的 组 合 方法 ， 而 将 特定 的 连接 
模式 定义 为 过 程 就 是 这 里 的 抽象 方法 。 
基本 功能 块 
基本 功能 块 实现 一 种 “效能 ", 使 得 在 一 根 连 线 上 的 信号 变化 能 够 影响 其 他 连 线 上 的 信号 。 
为 了 构造 出 这 些 功 能 块 ， 我 们 需要 连 线 上 的 如 下 操作 : 
。 (get-signal <wire>) 
返回 连 线 上 信号 的 当前 值 。 
e (set-signal! <wire> <new value>) 
将 连 线 上 的 信号 修改 为 新 的 值 。 
e (add-action! <wire> <procedure of no arguments>) 
它 断 言 ， 只 要 在 连 线 上 的 信号 值 改变 ， 这 里 所 指定 过 程 就 需要 运行 。 这 种 过 程 是 一 些 
媒介 ， 它 们 能 够 将 相应 连 线 上 值 的 变化 传递 到 其 他 的 连 线 。 除 这 些 过 程 之 外 ， 我 们 还 要 
用 一 个 过 程 after-delay， 它 的 参数 是 一 个 时 间 延 迟 和 一 个 过 程 ，after-delay 将 
在 给 定 的 时 延 之 后 执行 这 一 指定 过 程 。 
利用 这 些 过 程 ， 我 们 就 可 以 定义 基本 的 数字 逻辑 功能 了。 为 了 把 输入 通过 一 个 反 门 连接 到 
输出 ， 我 们 应 该 用 add-action ! 为 输入 线路 关联 一 个 过 程 ， 当 输入 线路 的 值 改变 时 ， 这 一 过 
程 就 会 执行 。 下 面 这 个 过 程 计算 出 输入 信号 的 logical-not, 在 一 个 jnverter-delay 之 
后 将 输出 线路 设置 为 这 个 新 值 : 
(define (inverter input output) 
(define (invert-input) 
(let ((new-value (logical-not (get-signal input)))) 
(after-delay inverter-delay 
(lambda () 
(set-signal! output new-value) )))) 


(add-action! input invert-input) 
‘ok) 


(define (logical-not s) 
(cona ((= 5 0) 1) 
((= 6 1) 0) 
(else (error "Invalid signal" s)))) 


与 门 的 情况 稍微 复杂 一 点 ， 因 为 在 这 种 门 的 两 个 输入 之 一 变化 后 ， 相 应 的 动作 过 程 都 必 
须 运 行 。 下 面 过 程 计 算出 输出 线路 上 信号 值 的 1ogical-and (利用 一 个 类 似 于 logical- 
not 的 过 程 )， 并 在 一 个 and-gate-delay 之 后 设置 新 值 ， 使 之 出 现在 输出 线路 上 。 


(define (and-gate al a2 output) 
(define (and-action-procedure) 
(let ((new-value 
(logical-and (get-signal al) (get-signal a2)))) 
(after-delay and-gate-delay 
(lambda () 
(set-signal! output new-value))))) 
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(add-action! al and-action-procedure) 
(add-action! a2 and-action-procedure) 
*ok) 


练习 3.28 ”请 将 或 门 定义 为 一 个 基本 功能 块 。 你 的 or -gate 构 造 国 数 应 该 和 上 面 anda- 
gate 的 构造 函数 类 似 。 

练习 3.29 ”构造 或 门 的 另 一 方式 是 将 它 作 为 一 种 复合 的 数字 逻辑 设备 ， 用 与 门 和 反 门 构 
造 出 或 门 。 请 采用 这 种 方式 定义 出 or -gate。 如 何 用 and-gate-delay 和 inverter- 
delay 表 示 这 样 定义 的 或 门 的 延 时 ? 

练习 3.30 ”图 3-27 展 示 的 是 通过 串 接 起 az 个 全 加 器 组 成 的 一 个 级 联 进位 加 法 器 。 这 是 用 于 
求 n 位 二 进 制 数 之 和 的 并 行 加 法 器 的 最 简单 形式 。 输 入 Al，As，A;3，…，Ai 与 B1，B,，B3,，…， 
B, 是 需要 求 和 的 两 个 二 进 制 数 (每 个 A 和 Bx 都 是 0 或 者 1)。 这 一 电路 产生 出 与 之 对 应 的 和 的 n 
个 二 进 制 位 S11，S。，S3，…，S，， 以 及 这 一 求 和 的 最 终 进 位 值 C。 请 写 出 一 个 过 程 ripple- 
carry-adder 生 成 这 种 电路 ， 该 过 程 应 以 各 包含 着 n 条 线路 的 三 个 表 一 一 At、Bx 和 Se 一 一 作为 
输入 ， 还 有 另 一 线路 C。 级 联 进位 加 法 器 的 主要 缺点 是 需要 等 待 进位 信号 向 前 传播 。 请 设法 确 
定 ， 为 了 得 到 n 位 级 联 进位 加 法 器 的 完整 输出 ， 我 们 将 需要 怎样 的 时 延 。 请 用 与 门 、 或 门 和 反 
门 的 时 延 表示 这 种 加 法 器 的 这 一 时 延 。 





A, B; Az B: A; Bs 





Si S: S; Sn 
图 3-27 一 个 对 "位 二 进 制 数 的 逐 位 进位 加 法 器 


线路 的 表示 

在 这 种 模拟 中 ， 一 条 线路 也 就 是 一 个 具有 两 个 局 部 状态 变量 的 计算 对 象 : 其 中 一 个 是 信 
Sifisignal-value (其 初始 值 取 0) ， 另 一 个 是 一 组 过 程 action-procedures， 在 信和 号 
值 改变 时 ， 这 些 过 程 都 需要 运行 。 我 们 将 采用 消息 传递 的 风格 ， 把 线路 实现 为 一 组 局 部 过 程 
和 一 个 dispatch 过 程 ， 它 负责 选取 适当 的 局 部 操作 ， 这 也 就 是 我 们 在 3.1.1 节 里 处 理 简单 银 
行 账户 时 的 做 法 : 

(define (make-wire) 

(let ((signal-value 0) (action-procedures °())) 
(define (set-my-signal! new-value) 
(if (mot (= signal-value new-value) ) 
(begin (set! signal-value new-value) 


(call-each action-procedures) ) 
*done) ) 


(define (accept-action-procedure! proc) 


(set! action-procedures (cons proc action-procedures) ) 
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(proc) ) 


(define (dispatch m) 
(cond ((eq? m ‘get-signal) signal-value) 
((eq? m ’set-signal!) set-my-signal!) 
( (eq? m ’add-action!) accept-action-procedure! ) 
(else (error "Unknown operation -- WIRE" m)))) 


dispatch) ) 
局 部 过 程 set-my-signal! 检 查 新 的 信号 值 是 否 实际 改变 了 线路 上 的 信号 ， 如 果真 是 这 样 ， 
它 就 利用 下 面 定 义 出 的 过 程 cal1-each 运 行 每 个 动作 过 程 。cal1-each 逐 个 调用 一 个 无 参 
过 程 表 中 的 每 个 过 程 : 
(define (call-each procedures) 


(if (null? procedures) 
*done 
(begin 
( (car procedures) ) 
(call-each (cdr procedures) )))) 


局 部 过 程 accept-action-procedure 1! 将 给 定 的 过 程 加 入 需要 运行 的 过 程 表 ， 并 运行 这 个 
新 过 程 一 次 (参见 练习 3.31)。 
一 旦 设置 好 局 部 的 aispatch 过 程 ， 就 可 以 提供 以 下 访问 线路 中 局 部 操作 的 过 程 了 55: 


(define (get-signal wire) 
(wire ’get-signal) ) 
(define (set-signal! wire new-value) 


((wire *set-signal!) new-value) ) 


(define (add-action! wire action-procedure) 


((wire *‘add-action!) action-procedure) ) 

线路 具有 随 着 时 间 变 化 的 信号 ， 并 可 以 逐步 连接 到 各 种 设备 上 ， 因 此 这 是 一 种 典型 的 变动 对 
象 。 我 们 已 经 将 它们 模拟 为 带 有 局 部 状态 变量 的 过 程 ， 这 些 局 部 变量 能 够 通过 赋值 而 修改 。 
在 创建 一 条 新 线路 时 ， 就 会 分 配 一 集 新 的 状态 变量 (通过 make-wire 里 的 Ilet 表 达 式 )， 构 
造 并 返回 一 个 新 的 aispatch 过 程 ， 使 我 们 可 以 掌握 具有 这 些 新 状态 变量 的 那个 环境 。 

一 条 线路 被 所 有 连接 在 该 线路 上 的 各 种 设备 所 共享 。 这 样 ， 由 一 个 设备 交互 所 造成 的 变 
化 就 会 影响 到 连接 在 这 条 线路 上 的 其 他 设备 。 线 路 将 变化 通知 与 之 连接 的 设备 ， 采 用 的 方式 
就 是 调用 相关 的 动作 过 程 ， 这 些 过 程 是 在 建立 连接 时 提供 的 。 


待 处 理 表 
为 完成 这 一 模拟 侣 ， 剩 下 的 东西 就 是 after-delay 了 。 这 里 的 想法 是 维护 一 个 称 为 待 处 


"9S 这 些 过 程 只 不 过 是 语法 糖衣 ， 以 便 我 们 能 用 常规 的 过 程 语法 形式 去 调用 对 象 里 的 局 部 过 程 。 能 如 此 简单 地 交 
换 “ 过 程 ”和 “数据 ”的 角色 也 是 很 惊人 的 。 例 如 ,在 写 (wire ‘get-signal) 时 ， 我 们 是 把 wire 当 作 
一 个 过 程 ， 用 消息 get - signal 作 为 输入 去 调用 它 。 换 一 种 方式 ，(get- signal wire) 的 形式 促使 我 们 
将 wire 设想 为 作为 过 程 get-signal 的 输入 的 数据 对 象 。 真 实 的 情况 是 ， 在 一 个 可 以 将 过 程 当 作对 象 的 语 
言 里 , 在 “过 程 ” 和 “数据 ”之 间 并 没有 本 质 性 的 差异 ， 因 此 我 们 可 以 自由 选择 自己 所 需 的 语法 糖衣 ， 以 便 
按 自己 选 定 的 风格 去 做 程序 设计 。 
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理 表 的 数据 结构 ， 其 中 包含 着 一 个 需要 完成 的 事项 的 清单 。 对 于 这 个 待 处 理 表 ， 我 们 定义 了 
如 下 操作 : 
e (make-agenda) 
返回 一 个 新 的 空 的 待 处 理 表 。 
e (empty-agenda? <agenda>) 
在 所 给 待 处 理 表 空 时 为 真 。 
。 (first-agenda-item <agenda>) 
返回 待 处 理 表 里 的 第 一 个 项 目 。 
e (remove-first-agenda-item! <agenda>) 
修改 待 处 理 表 ， 删 除 其 中 的 第 一 个 项 目 。 
e (add-to-agenda! <time> <action> <agenda>) 
修改 待 处 理 表 ， 加 入 一 项 ， 要 求 在 特定 时 间 运 行 给 定 的 动作 过 程 。 
。 (current-time <agenda>) 
返回 当时 的 模拟 时 间 。 
我 们 要 用 的 特定 待 处 理 表 用 the-agenda 表 示 。 过 程 after-delay 向 the-agenda 里 
加 入 一 个 新 元 素 : 
(define (after-delay delay action) 
(add-to-agenda! (+ delay (current-time the-agenda)) 


action 


the-agenda) ) 


有 关 的 模拟 用 过 程 propagate 驱 动 ， 它 对 the-agenda 操 作 ， 顺 序 执行 这 一 待 处 理 表 中 
的 每 个 过 程 。 一 般 而 言 ， 在 模拟 运行 中 ， 一 些 新 的 项 目 将 被 加 入 待 处理 表 中 。 只 要 在 这 一 待 
处 理 表 里 还 有 项 目 ， 过 程 propagate 就 会 继续 模拟 下 去 : 

(define (propagate) 

(if (empty-agenda? the-agenda) 
‘done 
(let ((first-item (first-agenda-item the-agenda))) 
(first-item) 
(remove-first-agenda-item! the-agenda) 
(propagate)))) 


一 个 简单 的 实例 模拟 
下 面 过 程 中 将 一 个 “监测 器 ” 放 到 一 个 线路 上 ， 用 于 显示 模拟 器 的 活动 。 这 一 过 程 告诉 
相应 的 线路 ， 只 要 它 的 值 改变 了 ， 就 应 该 打印 出 新 的 值 ， 同 时 打印 当前 时 间 和 线路 名 字 : 
(define (probe name wire) 
(add-action! wire 
(lambda () 
(newline) 
(display name) 
(display " ") 
(display (current-time the-agenda) ) 
(display "  New-value = ") 
(display (get-signal wire))))) 
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我 们 从 初始 化 待 处 理 表 和 描述 各 种 功能 块 的 延 时 开始 : 


(define the-agenda (make-agenda)) 
(define inverter-delay 2) 

(define and-gate-delay 3) 

(define or-gate-delay 5) 


现在 定义 4 条 线路 ， 在 其 中 的 两 条 线路 上 安装 监测 器 : 


(define input-1 (make-wire)) 
(define input-2 (make-wire) ) 
(define sum (make-wire) ) 


(define carry (make-wire) ) 


(probe ‘sum sum) 


sum 0 New-value = 0 


(probe ‘carry carry) 
carry 0 New-value = 0 


下 面 我 们 将 这 些 线路 连接 到 一 个 半 加 器 电路 上 〈 参 见 图 3-25) ， 将 input -1 上 的 信号 设置 为 1， 
而 后 运行 这 个 模拟 : 

(half-adder input-1 input-2 sum carry) 

ok 


(set-signal! input-1 1) 


done 

(propagate) 

sum 8 New-value = 1 
done 


在 时 间 8，sum 上 的 信号 变 为 1。 现 在 到 了 模拟 开始 之 后 的 8 个 时 间 单 位 。 在 这 一 点 上 ， 我 们 可 
以 将 input-2 上 的 信号 设置 为 1， 并 让 有 关 的 值 向 前 传播 : 
(set-signal! input-2 1) 


done 


(propagate) 


carry 11 New-value 1 


sum 16 New-value = 0 


done 


在 时 间 11 处 carry 变 为 1， 在 时 间 16 处 sum 变 成 0。 

练习 3.31 在 make-wire 里 定义 的 内 部 过 程 accept-action-procedure! 摘 述 的 是 ， 
当 一 个 新 的 动作 过 程 加 入 线路 时 ， 这 一 过 程 应 立即 运行 。 请 解释 为 什么 需要 这 种 初始 动作 。 
特别 是 ， 请 追踪 上 面 段落 里 的 半 加 器 例子 ， 看 看 如 果 我 们 不 这 样 做 ， 而 是 将 accept- 
action-procedure! 定 义 为 下 面 形式 ， 那 会 出 现 什么 情况 : 


(define (accept-action-procedure! proc) 


(set! action-procedures (cons proc action-procedures) ) ) 


待 处 理 表 的 实现 
最 后 介绍 待 处 理 表 数 据 结 构 的 细节 ， 这 一 数据 结构 里 面 保存 着 已 经 安排 好 ， 将 在 未 来 时 
刻 运 行 的 那些 过 程 。 
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这 种 待 处 理 表 由 一 些 时 间 自 组成， 每 个 时 间 段 是 由 一 个 数值 (表示 时 间 ) 和 一 个 队列 
( 见 练习 3.32) 组 成 的 序 对 ， 在 这 个 队列 里 ,保存 着 那些 已 经 安排 好 的 ， 应 该 在 这 一 时 间 段 运 
行 的 过 程 。 

(define (make-time-segment time queue) 

(cons time queue) ) 

(define (segment-time s) (car s)) 

(define (segment-queue s) (cdr s)) 
我 们 将 用 3.3.2 节 描述 的 队列 操作 完成 在 时 间 段 队列 上 的 操作 。 

待 处 理 表 本 身 就 是 时 间 段 的 一 个 一 维 表格 。 与 3.3.3 节 所 示 的 表格 的 不 同 之 处 ， 就 在 于 这 
些 时 间 段 应 该 按照 时 间 递 增 的 顺序 排列 。 此 外 ， 我 们 还 需 在 待 处 理 表 的 头 部 保存 一 个 当前 时 
间 〈 即 ， 此 前 最 后 被 处 理 的 那个 动作 的 时 间 ) 。 一 个 新 构造 出 的 待 处 理 表 里 没有 时 间 段 ， 其 当 


前 时 间 是 0'”%: 
(define (make-agenda) (list 0)) 
(define (current-time agenda) (car agenda)) 


(define (set-current-time! agenda time) 


(set-car! agenda time)) 
(define (segments agenda) (cdr agenda)) 
(define (set-segments! agenda segments) 

(set-cdr! agenda segments)) 
(define (first-segment agenda) (car (segments agenda))) 
(define (rest-segments agenda) (cdr (segments agenda))) 
如 果 一 个 待 处 理 表 里 没有 时 间 段 ， 那 它 就 是 空 的 : 
(define (empty-agenda? agenda) 

(null? (segments agenda))) 


为 了 将 一 个 动作 加 入 待 处 理 表 ， 我 们 首先 要 检查 这 个 待 处 理 表 是 否 为 空 。 如 果真 是 这 样 ， 
那么 就 创建 一 个 新 的 时 间 段 ， 并 将 这 个 时 间 段 装 入 待 处 理 表 里 。 否 则 我 们 就 扫描 整个 的 待 处 
理 表 ， 检 查 其 中 各 个 时 间 段 的 时 间 。 如 果 发 现 某 个 时 间 段 具有 合适 的 时 间 ， 那 么 就 把 这 个 动 
作 加 入 与 之 关联 的 队列 里 。 如 果 磁 到 了 某 个 比 需 要 预约 的 时 间 更 晚 的 时 间 ， 那 么 就 将 一 个 新 
的 时 间 段 插入 待 处 理 表 ， 插 入 这 个 位 置 之 前 。 如 果 到 达 了 待 处 理 表 的 末尾 ， 我 们 就 必须 在 最 
后 加 上 一 个 新 的 时 间 段 。 


(define (add-to-agenda! time action agenda) 
(define (belongs-before? segments) 
(or (null? segments) 
(< time (segment-time (car segments) )))) 
(define (make-new-time-segment time action) 
(let ((q (make-queue) ) ) 


(insert-queue! q action) 


196 待 处 理 表 是 一 个 带 表 头 单元 的 表 ， 就 像 3.3.3 节 的 表格 。 但 是 因为 这 个 表 头 中 存放 着 当前 时 间 ， 我 们 就 不 必 在 
为 它 加 上 哑 的 头 单元 了 【例如 表 列 所 用 的 *table* 符 号 )。 
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(make-time-segment time q))) 


(define (add-to-segments! segments) 


(if (= (segment-time (car segments)) time) 
(insert-queue! (segment-queue (car segments) ) 
action) 


(let ((rest (cdr segments) ) ) 
(if (belongs-before? rest) 
(set-cdr! 
segments 
(cons (make-new-time-segment time action) 
(cdr segments) ) ) 
(add-to-segments! rest))))) 
(let ((segments (segments agenda) ) ) 
(if (belongs-before? segments) 
(set-segments! 
agenda 
(cons (make-new-time-segment time action) 
segments) ) 


(add-to-segments! segments) ) ) ) 


从 待 处 理 表 中 删除 第 一 项 的 过 程 ， 应 该 删 去 第 一 个 时 间 段 的 队列 前 端的 那 一 项 。 如 果 删 
除 使 这 个 时 间 段 变 空 了 ， 我 们 就 将 这 个 时 间 段 也 从 时 间 段 的 表 里 删 去 : 
(define (remove-first-agenda-item! agenda) 
(let ((q (segment-queue (first-segment agenda) ) ) ) 
(delete-queue! q) 
(if (empty-queue? q) 
(set-segments! agenda (rest-segments agenda) ) )) ) 
找 出 待 处理 表 中 里 第 一 项 ， 也 就 是 找 出 其 第 一 个 时 间 段 队列 里 的 第 一 项 。 无 论 何 时 提取 
这 个 项 时 ， 都 需要 更 新 待 处 理 表 的 当前 上 时间: 
(define (first-agenda-item agenda) 
(if (empty-agenda? agenda) 
(error "Agenda is empty -- FIRST-AGENDA-ITEM") 
(let ((first-seg (first-segment agenda) ) ) 


(set-current-time! agenda (segment-time first-seg) ) 


(front-queue (segment-queue first-seg))))) 


练习 3.32 ”在 待 处 理 表 中 ， 在 某 个 时 间 段 里 需要 运行 的 过 程 都 保存 在 一 个 队列 里 ， 这 就 
使 对 于 每 个 时 间 段 中 过 程 的 调用 能 按照 它们 加 入 待 处 理 表 的 次 序 进行 〈 先 进 先 出 ) 。 请 解释 必 
须 采 用 这 种 顺序 的 理由 。 请 特别 追踪 一 个 与 门 的 行为 ， 假 设 它 的 输入 在 一 个 时 间 段 里 从 0，1 变 
为 1, 0。 请 说 明 ， 如 果 我 们 将 过 程 按 照常 规 表 的 方式 在 人 时 间 段 ， 总 是 在 表 的 前 端 插入 和 删除 
We (后 进 先 出 )， 那 么 会 出 现 什么 情况 。 


呈请 注意 ， 这 个 过 程 里 用 的 i 表 达 式 没有 <alternative> 部 分 。 这 种 “ 单 支 耻 语句 ”用 于 确定 某 件 事情 做 或 不 做 ， 
而 不 是 在 两 个 表达 式 中 做 选择 。 如 果 if 表 达 式 没有 <alrernative>， 在 谓词 为 假 时 返回 值 不 确定 。 

号 按 这 种 方式 ， 当 前 时 间 将 总 是 最 近 处 理 的 动作 的 时 间 。 将 这 一 时 间 保 存在 待 处 理 表 的 头 部 ， 将 能 保证 即使 与 
这 一 时 间 关 联 的 时 间 段 已 经 被 删除 ， 当 前 时 间 仍 然 是 可 用 的 。 
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3.3.5 约束 的 传播 


在 传统 上 ， 计 算 机 程序 总 被 组 织 成 一 种 单 向 的 计算 ， 它们 对 一 些 事先 给 定 的 参数 执行 某 
些 操作 ， 产 生出 所 需要 的 输出 。 但 另 一 方面 ， 我 们 也 经 常 需要 模拟 一 些 由 各 种 量 之 间 的 关系 
描述 的 系统 。 例 如 ， 某 个 机 械 结构 的 数学 模型 里 可 能 包含 着 这 样 的 一 些 信息 : 在 一 个 金属 杆 
的 偏转 量 d 与 作用 于 这 个 杆 的 力 F、 杆 的 长 度 L、 截 面 面 积 4 和 弹性 模 数 之 间 的 关系 可 以 由 下 
面 方程 描述 : 
dAE=FL 


这 种 关系 并 不 是 单 向 的 ， 给 定 了 其 中 任意 的 4 个 量 ， 我 们 就 可 以 利用 它 计 算出 第 5 个 量 。 然 而 ， 
要 将 这 种 方程 翻译 到 传统 的 程序 设计 语言 ， 就 会 迫使 我 们 选 出 一 个 量 ， 要 求 基于 另外 的 4 个 量 
去 计算 出 它 。 这 样 ， 一 个 用 于 计算 面积 4 的 过 程 将 不 能 用 于 计算 偏转 量 4， 虽 然 对 于 A 和 d 的 计 
算 都 出 自 这 同一 个 方程 '”。 

在 这 一 节 里 ， 我 们 要 描绘 一 种 语言 的 设计 ， 这 种 语言 将 使 我 们 可 以 基于 各 种 关系 进行 工 
作 。 这 一 语言 里 的 基本 元 素 就 是 基本 约束 ， 它 们 描述 了 在 不 同 量 之 间 的 某 种 特定 关系 。 例 如 ， 
(adder a b c) 描述 的 是 量 a、b 和 Cc 之 间 必 须 有 关系 4+b=c，(multiplier x y z) fii 
述 的 是 约束 关系 Xxy=z,， 而 (constant 3.14 x) 表示 x 的 值 永远 都 是 3.14。 

我 们 的 语言 里 还 提供 了 一 些 方 法 ,使 它们 可 以 用 于 组 合 各 种 基本 约束 ， 以 便 去 描述 更 复 
杂 的 关系 。 在 这 里 ， 我 们 将 通过 构造 约束 网 络 的 方式 组 合 起 各 种 约束 ， 在 这 种 约束 网 络 里 ， 
约束 通过 连接 器 连接 起 来 。 连 接 器 是 一 种 对 象 ， 它 们 可 以 “保存 ”一 个 值 ， 使 之 能 参与 一 个 
或 者 多 个 约束 。 例 如 ， 我 们 知道 在 华氏 温度 和 摄氏 温度 之 间 的 关系 是 : 

9C=5(F — 32) 
这 样 的 约束 就 可 以 看 作 是 一 个 网 络 (如 图 3-28 所 示 )， 通 过 基本 加 法 约束 、 乘 法 约束 和 常量 约 
束 组 成 。 在 这 个 图 里 ， 我 们 看 到 左边 的 乘法 块 有 三 个 引线 ,分别 标 记 为 ml1、m2 和 p。 该 乘法 
约束 的 这 些 引 线 以 如 下 方式 连接 到 网 络 的 其 他 部 分 : 引线 ml 连 到 连接 器 C， 这 个 连接 器 将 保 
存 摄 氏 温 度 。3 引 | 线 m2 接 在 连接 器 w， 该 连接 器 还 连接 着 一 个 保存 常量 9 的 约束 块 。 引 线 p 被 这 
一 乘法 块 约束 到 ml 和 m2 的 乘积 ， 它 还 连接 到 另 一 个 乘法 块 的 引线 p。 另 一 乘法 块 的 m2 连接 到 
常量 5， 它 的 ml 连接 到 另 一 加 法 块 的 一 条 引线 上 。 





图 3-28 用 约束 网 络 表示 的 关系 9C=5(F 一 32) 


159 约束 传播 的 概念 首先 出 现在 Ivan Sutherland 的 不 可 思议 的 前 瞻 性 系统 SKETCHPAD 中 (1963), Alan Borning 
在 Xerox Palo Alto 研 究 中心 开 发 一 个 基于 Smalltalk 语 言 的 漂亮 的 约束 传播 系统 (1977), Sussman, Stallman 
和 Steele 将 约束 传播 用 于 电子 电路 分 析 (Sussman and Stallman 1975; Sussman and Steele 1980), TK!Solver 
(Konopasek and Jayaraman 1984) 是 一 个 基于 约束 的 扩展 模拟 环境 。 
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由 这 样 的 网 络 完 成 的 计算 以 如 下 方式 进行 : 当 某 个 连接 器 被 给 定 了 一 个 值 时 〈 由 用 户 或 
者 由 它 所 连接 的 某 个 约束 块 )， 它 就 会 去 唤醒 所 有 与 之 关联 的 约束 除了 刚刚 唤醒 它 的 那个 约 
束 之 外 ) ， 通 知 它们 自己 有 了 一 个 新 值 。 被 唤醒 的 每 个 约束 块 将 去 盘点 自己 的 连接 器 ， 看 看 是 
否 存在 足够 的 信息 为 某 个 连接 器 确定 一 个 值 。 如 果 可 能 的 话 ， 该 块 就 设置 相应 的 连接 器 ， 而 
这 个 连接 器 又 会 去 唤醒 与 之 连接 的 约束 ， 并 这 样 进行 下 去 。 举 例 说 ,位 于 摄氏 和 华氏 之 间 的 
变换 常数 w、x 和 y 将 立即 被 各 个 常量 块 分 别 设置 为 9、5 和 32。 这 些 连 接 器 唤醒 网 络 中 的 加 法 约 
束 和 乘法 约束 ， 但 是 它们 都 确定 了 现在 还 没有 足够 的 信息 继续 工作 。 如 果 用 户 (或 者 网 络 中 
的 另外 某 个 部 分 ) 为 C 设 置 了 一 个 值 (譬如 说 25)， 最 左边 的 乘法 约束 就 会 被 唤醒 ， 它 会 把 u 设 
置 为 25 . 9=225。 而 后 就 会 唤醒 第 二 个 乘法 约束 ， 这 一 乘法 约束 将 把 v 设 置 为 45; v 又 会 唤醒 
那个 加 法 约束 ， 该 加 法 约束 将 把 F 设 置 为 77。 

约束 系统 的 使 用 

为 了 使 用 上 面 给 出 了 梗概 的 约束 系统 模型 去 执行 温度 计算 ,我 们 需要 首先 调用 构造 函数 
make-connector, 创建 起 两 个 连接 器 C 和 F， 而 后 将 它们 连接 到 一 个 适当 的 网 络 里 : 

(define C (make-connector)) 

(define F (make-connector)) 


(celsius-fahrenheit-converter C F) 
OK 


创建 上 述 网 络 的 过 程 的 定义 如 下 : 
(define (celsius-fahrenheit-converter c f) 
(let ((u (make-connector) ) 

(v (make-connector) ) 
(w (make-connector) ) 
(x (make-connector) ) 
(y (make-connector) ) ) 

(multiplier c w u) 

(multiplier v x u) 

(adder v y f) 

(constant 9 w) 

(constant 5 x) 

(constant 32 y) 

"ok ) ) 


这 一 过 程 建立 起 内 部 连接 器 u、v、w、x 和 y， 调 用 基本 约束 的 构造 函数 adder、multiplier 
和 constant ， 并 将 它们 按照 图 3-28 所 示 的 形式 连接 起 来 。 就 像 3.3.4 节 描述 的 一 样 ， 以 过 程 的 
方式 描述 几 个 元 素 的 组 合 ， 也 就 自动 地 为 语言 提供 了 一 种 复合 对 象 的 抽象 方法 。 

为 了 观察 这 个 网 络 的 活动 ， 我 们 可 以 为 连接 器 C 和 F 安 装 上 上 probe 过程， 这 里 使 用 的 过 程 
pzrobe 与 前 面 在 3.4.4 节 里 监视 线路 的 过 程 类 似 。 在 连接 妖 上 安装 监视 缮 ， 将 导致 每 次 给 这 个 
连接 器 一 个 值 时 ， 就 会 打印 出 一 个 消息 : 

(probe "Celsius temp" C) 

(probe "Fahrenheit temp" F) 


下 面 我 们 将 C 设 置 为 25。set-value1! 的 第 三 个 参数 告诉 Cc， 这 个 指示 直接 来 自 user。 


(set-value! C 25 ‘user) 
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Probe: Celsius temp = 25 
Probe: Fahrenheit temp = 77 
done 


附 在 C 上 的 监视 器 被 唤醒 并 报告 有 关 的 值 。C 还 将 它 的 值 像 上 面 所 说 的 那样 沿 着 网 络 传播 ， 这 
将 使 F 被 设置 为 7， 最 后 也 由 F 的 监视 器 报告 出 来 。 
下 面 我 们 想 试 试 为 F 设 置 一 个 新 值 ， 例 如 212: 


(set-value! F 212 user) 
Error! Contradiction (77 212) 


这 一 连接 器 抱怨 说 它 发 现 了 一 个 矛盾 : 它 的 值 现在 是 77， 而 别 的 什么 地 方 想 将 它 的 值 设置 为 
212。 如 果 我 们 真希 望 对 新 的 值 重新 使 用 这 一 网 络 ， 那 么 就 应 该 告诉 C 忘 掉 它 原先 的 值 : 


(forget-value! C ’user) 
Probe: Celsius temp = ? 
Probe: Fahrenheit temp = ? 


done 


Cc 看 到 user 现 在 要 求 自己 撤销 已 有 的 值 ， 而 该 值 原来 就 是 它 设置 的 ， 因 此 就 同意 丢掉 该 值 ， 
正如 监视 器 所 报告 的 情况 。 这 一 信息 也 通知 到 网 络 的 其 余部 分 ， 有 关 消 息 最 终 传播 到 F ， 使 它 
发 现 已 经 不 该 继续 保持 值 77 了。 这 样 ，F 也 就 放弃 了 原来 的 值 ， 如 监视 器 所 报告 的 那样 。 

现在 F 没 有 值 了 ， 此 时 我 们 完全 可 以 将 它 设 置 为 212: 

(set-value! F 212 ‘user) 

Probe: Fahrenheit temp = 212 


Probe: Celsius temp = 100 


done 
这 一 新 值 通过 网 络 传播 ， 最终 迫使 C 具 有 值 100， 这 一 情况 被 附着 在 C 上 的 监视 器 报告 出 来 。 
从 这 里 可 以 看 到 ， 同 样 的 一 个 网 络 ， 在 给 定 了 F 之 后 能 用 于 计算 C， 在 给 定 C 后 能 算出 F。 这 种 
非 定向 的 计算 是 基于 约束 的 系统 的 标志 性 特征 。 


约束 系统 的 实现 
约束 系统 用 具有 内 部 状态 的 过 程 对 象 实现 ， 所 用 的 方式 很 像 3.3.4 节 里 的 数字 电路 模拟 器 。 
虽然 约束 系统 里 的 基本 对 象 在 某 些 方面 更 复杂 一 些 ， 但 整个 系统 却 更 为 简单 ， 因 为 这 里 完全 
不 需要 关心 待 处 理 表 和 时 间 延 迟 等 等 问题 。 
连接 器 的 基本 操作 包括 : 
。 (has-value? <connector>) 
报告 说 这 一 连接 器 是 否 有 值 。 
e (get-value <connector>) 
返回 连接 器 当前 的 值 。 
e (set-value! <connector> <new-value> <informant>) 
通知 说 ， 信 息 源 (informant) 要 求 连接 器 将 甚 值 设置 为 一 个 新 值 。 
e (forget-value! <connector> <retractor>) 
通知 说 ， 撤 销 源 (retractor) 要 求 连接 器 忘记 其 值 。 
e (connect <connector> <new-constraint>) 


通知 连接 器 参与 一 个 新 约束 。 


3.3 用 变动 数据 做 柑 圾 201 


连接 器 通过 过 程 inform-about-value 与 各 个 相关 约束 通信 ， 这 一 过 程 告知 给 定 的 约 
束 ， 现 在 该 连接 器 有 了 一 个 新 值 。 过 程 inform-about-no-value 告 知 有 关 的 约束 ， 现 在 
该 连接 器 丧失 了 自己 原 有 的 值 。 

过 程 adder 在 被 求 和 连接 器 al 和 a2 与 和 连接 器 sum 之 间 构 造 出 一 个 加 法 约束 。 加 法 约束 
也 实现 为 一 个 带 有 内 部 状态 的 过 程 (下 面 的 过 程 me): 

(define (adder al a2 sum) 

(define (process-new-value) 


(cond ((and (has-value? al) (has-value? a2)) 


(set-value! sum 


(+ (get-value al) (get-value a2)) 
me)) 
((and (has-value? al) (has-value? sum) ) 


(set-value! a2 
(- (get-value sum) (get-value al) ) 
me) ) 
((and (has-value? a2) (has-value? sum) ) 
(set-value! al 
(- (get-value sum) (get-value a2) ) 
me) ))) 
(define (process-forget-value) 
(forget-value! sum me) 
(forget-value! al me) 
(forget-value! a2 me) 
(process -new-value) ) 
(define (me request) 
(cond ((eq? request *I-have-a-value) 
(process-new-value) ) 
( (eq? request *I-lost-my-value) 
(process-forget-value) ) 
(else 
(error "Unknown request -- ADDER" request) ))) 
(connect al me) 
(connect a2 me) 
(connect sum me) 


me) 


过 程 adder 将 一 个 新 的 加 法 约束 连接 到 指定 连接 器 ， 并 将 这 个 加 法 约束 作为 自己 的 返回 值 。 
过 程 me 就 代表 那个 加 法 约束 ， 它 的 活动 方式 就 像 是 一 个 对 完成 局 部 过 程 分 派 的 分 派 过 程 。 下 
面 的 “语法 界面 ”( 参 见 3.3.4 节 里 的 脚注 155) 可 以 与 上 述 分 派 过 程 结 合 使 用 : 

(define (inform-about-value constraint) 


(constraint "I-have-a-value) ) 


(define (inform-about-no-value constraint) 


(constraint ‘I-lost-my-value) ) 


当 加 法 约束 得 到 了 通知 ， 知 道 自己 的 一 个 连接 器 有 了 新 值 时 ， 这 个 约束 里 的 局 部 过 程 process- 
new-value 就 会 被 调用 。 此 时 ， 加 法 约束 首先 检查 al 和 a2 是 否 都 有 了 值 ， 如 果 有 的 话 ， 它 就 告 
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诉 sum 将 其 值 设 置 为 两 个 加 数 之 和 。 送 给 set -value! 的 informant 参 数 是 me， 也 就 是 这 个 加 
法 对 象 本 身 。 如 果 并 排 a1 和 a2 都 有 了 值 ， 那 么 加 法 对 象 就 检查 是 否 al 和 sum 都 已 经 有 了 值 ， 如 
果 情 况 真是 这 样 ， 它 就 将 a2 设 置 为 两 者 之 差 。 最 后 ， 如 果 a2 和 sum 都 有 值 ， 就 给 了 这 个 加 法 对 
象 足够 的 信息 去 设置 al。 如 果 加 法 对 象 被 告知 自己 的 一 个 连接 器 丧失 了 值 ， 那 么 它 就 要 求 其 所 
有 连接 器 丢掉 它们 的 值 (实际 上 ， 只 有 那些 被 该 加 法 对 象 设置 值 的 连接 器 会 丢掉 值 )， 而 后 再 运 
行 它 的 过 程 process-new-value。 需 要 最 后 这 一 步 的 原因 是 ， 还 可 能 有 些 连 接 器 仍然 有 自己 
的 值 (也 就 是 说 ， 某 个 连接 器 过 去 所 拥有 的 值 原来 就 不 是 由 这 个 加 法 对 象 设置 的 )， 这 些 值 又 可 
能 需要 通过 这 一 加 法 对 象 传播 。 
乘法 对 象 很 像 加 法 对 象 。 如 果 两 个 因子 之 一 是 0， 它 就 会 把 product 设 置 为 0， 即 使 另 一 
个 因子 现在 还 不 知道 。 
(define (multiplier ml m2 product) 
(define (process-new-value) 
(cond ((or (and (has-value? ml) (= (get-value ml) 0)) 
(and (has-value? m2) (= (get-value m2) 0))) 
(set-value! product 0 me) ) 
( (and (has-value? ml) (has-value? m2) ) 
(set-value! product 
(* (get-value m1) (get-value m2) ) 
me) ) 
( (and (has-value? product) (has-value? m1) ) 
(set-value! m2 
(/ (get-value product) (get-value m1) ) 
me) ) 
((and (has-value? product) (has-value? m2) ) 
(set-value! ml 
(/ (get-value product) (get-value m2) ) 
me) ) ) ) 
(define (process-forget-value) 
(forget-value! product me) 
(forget-value! ml me) 
(forget-value! m2 me) 
(process-new-value) ) 
(define (me request) 
(cond ((eq? request *I-have-a-value) 
(process-new-value) ) 
( (eq? request ‘I-lost-my-value) 
(process-forget-value) ) 
(else 
(error "Unknown request -- MULTIPLIER" request) )) ) 
(connect ml me) 
(connect m2 me) 
(connect product me) 


me) 
constant 的 构造 函数 简单 地 设置 指定 连接 器 的 值 。 任 何 时 候 把 I-have-a-value 或 者 I- 
lost-my-value 消 息 送 到 常量 块 都 会 产生 一 个 错误 。 


(define (constant value connector) 
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(define (me request) 

(error "Unknown request -- CONSTANT" request) ) 
(connect connector me) 
(set-value! connector value me) 


me) 


最 后 ， 监 视 器 在 指定 连接 器 被 设置 或 者 取消 值 的 时 候 打 印 出 一 个 消息 : 


(define (probe name connector) 
(define (print-probe value) 
(newline) 
(display "Probe: ") 
(display name) 
(display " = ") 
(display value) ) 
(define (process-new-value) 
(print-probe (get-value connector) ) ) 
(define (process-forget-value) 
(print-probe "?")) 
(define (me request) 
(cond ((eq? request *I-have-a-value) 
(process-new-value) ) 
( (eq? request 'I-lost-my-value) 
(process-forget-value) ) 
(else 
(error "Unknown request -- PROBE" request) ) ) ) 
(connect connector me) 


me) 


连接 器 用 带 有 局 部 状态 变量 value、informant 和 constraints 的 过 程 对 象 表 示 ， 
value 中 保存 这 个 连接 器 的 当前 值 ，informant 是 设置 连接 器 值 的 对 象 ，constraints 是 
这 一 连接 器 所 涉及 的 所 有 约束 的 表 。 
(define (make-connector) 
(let ((value false) (informant false) (constraints ’())) 
(define (set-my-value newval setter) 
(cond ((not (has-value? me) ) 
(set! value newval) 
(set! informant setter) 


(for-each-except setter 


inform-about-value 


constraints) ) 
( (not (= value newval) ) 
(error "Contradiction" (list value newval))) 


(else ‘ignored) ) ) 
(define (forget-my-value retractor) 
(if (eq? retractor informant) 
(begin (set! informant false) 
(for-each-except retractor 
inform-about-no-value 


constraints) ) 
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*"ignored) ) 
(define (connect new-constraint) 
(if (not (memq new-constraint constraints) ) 
(set! constraints 
(cons new-constraint constraints) ) ) 
(if (has-value? me) 
(inform-about-value new-constraint) ) 
*done) 
(define (me request) 
(cond ((eq? request ‘has-value?) 
(if informant true false) ) 
((eq? request ’value) value) 
( (eq? request *set-value!) set-my-value) 
( (eq? request forget) forget-my-value) 
((eq? request ‘connect) connect) 
(else (error "Unknown operation -- CONNECTOR" 
request) ) ) ) 
me) ) 


当 出 现 了 设置 一 个 连接 器 的 要 求 时 ， 该 连接 器 的 局 部 过 程 set -my-value 就 会 被 调用 。 
如 果 这 一 连接 器 当时 并 没有 值 ， 那 么 它 就 设置 自己 的 值 ， 并 在 informant 里 记录 下 要 求 设置 
当前 值 的 那个 约束 '”"。 而 后 这 一 连接 器 将 通知 它 所 参与 的 所 有 约束 ， 除 了 刚刚 要 求 设置 值 的 
那个 约束 之 外 。 这 一 工作 通过 下 面 的 迭代 过 程 完成 ， 它 将 一 个 指定 过 程 应 用 于 一 个 表 中 的 所 
有 对 象 ， 除 了 一 个 给 定 的 例外 : 


(define (for-each-except exception procedure list) 
(define (loop items) 
(cond ((null? items) ’done) 
((eq? (car items) exception) (loop (cdr items) ) ) 
(else (procedure (car items) ) 
(loop (cdr items) )))) 
(loop list) ) 

“ER AREER EICA CHAM, Emtaciett abit fiforget-my-value, xit 
程 首 先 检查 这 一 要 求 是 否 来 自 原先 设置 值 的 同一 个 对 象 。 如 果 情 况 确 实 如 此 ， 连 接 器 就 通知 
它 所 参与 的 所 有 约束 ， 告 知 它们 自己 的 值 已 经 没有 了 。 

局 部 过 程 connect 向 约束 表 里 加 入 一 个 新 约束 (如果 它 以 前 不 在 表 里 )。 如 果 这 个 连接 器 
已 经 有 值 ， 它 就 会 将 这 一 事实 通知 这 个 新 约束 。 

连接 器 过 程 me 完 成 对 于 内 部 过 程 服务 的 分 派 工 作 ， 它 同时 也 作为 这 个 连接 器 对 象 的 代表 。 
下 面 儿 个 过 程 为 分 派 提供 了 一 个 语法 界面 : 

(define (has-value? connector) 


(connector "has-value?) ) 


(define (get-value connector) 


(connector ’value) ) 


(define (set-value! connector new-value informant) 


( (connector ’set-value!) new-value informant) ) 


' 这 里 的 setter 也 可 能 不 是 约束 。 在 前 面 有 关 温 度 的 例子 里 ， 就 用 了 user 作 为 setter。 
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(define (forget-value! connector retractor) 
((connector *forget) retractor) ) 


(define (connect connector new-constraint) 


((connector ‘connect) new-constraint) ) 


练习 3.33 利用 基本 的 加 法 、 乘 法 和 常量 约束 定义 一 个 averager 过 程 ， 它 以 三 个 连接 a、 
b 和 c 作 为 输入 ， 建 立 起 一 个 约束 ， 使 得 c 总 是 a 和 b 的 平均 值 。 
练习 3.34 Louis Reasoner 想 做 一 个 平方 器 ， 也 就 是 一 种 带 有 两 条 引线 的 约束 装置 ， 使 得 
连接 在 它 的 第 二 条 引线 上 的 连接 器 b 的 值 是 其 第 一 条 引线 上 的 值 a 的 平方 。 他 提出 了 用 乘法 约 
束 定 义 这 一 设备 的 简单 方法 : 
(define (squarer a b) 
(multiplier aa b)) 


这 一 建议 有 一 个 严重 缺陷 ， 请 给 出 解释 。 
练习 3.35 Ben Bitdiddle 告 诉 Louis， 为 了 避免 他 在 练习 3.34 中 遇 到 的 麻烦 ， 一 种 方式 是 将 
平方 器 定义 为 一 个 新 的 基本 约束 。 请 填充 Ben 所 给 出 的 下 面 过 程 概要 ， 实 现 这 样 的 约束 : 
(define (squarer a b) 
(define (process-new-value) 
(if (has-value? b) 
(if (< (get-value b) 0) 
(error "square less than 0 -- SQUARER" (get-value b)) 
<alternative| >) 
<alternative2>) ) 
(define (process-forget-value) <bodyl>) 
(define (me request) <body2>) 
< 其 他 定义 > 


me) 


练习 3.36 假定 我 们 要 在 全 局 环境 里 求 值 下 面 的 表达 式 序 列 : 
(define a (make-connector) ) 

(define b (make-connector) ) 

(set-value! a 10 ‘user) 


在 对 set-value! 求 值 的 某 个 时 刻 ， 需 要 在 连接 器 的 局 部 过 程 中 求 值 下 面 表达 式 : 
(for-each-except setter inform-about-value constraints) 
请 画 出 表示 上 述 表达 式 的 求 值 环境 的 环境 图 。 
练习 3.37 与 下 面 更 具 表 达 式 风格 的 定义 相 比 ， 过 程 celsius-fahrenheit-converter 
显得 过 于 麻烦 了 : 
(define (celsius-fahrenheit-converter x) 
(c+ (c* (cf (ev 3) (ev 5)) 


x) 
(cv 32))) 


(define C (make-connector) ) 

(define F (celsius-fahrenheit-converter C) ) 
这 里 的 c 十 、c* 等 等 是 算术 运算 的 “约束 ”版 。 例 如 ，c 十 以 两 个 连接 器 为 参数 ， 返 回 另 一 个 
连接 器 ， 它 与 那 两 个 连接 器 具有 加 法 约束 : 
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(define (c+ x y) 
(let ((z (make-connector))) 
(adder x y z) 
z) ) 


请 定义 模拟 过 程 c-、c*、c/ 和 cv (常量 值 )， 使 我 们 可 以 利用 它们 定义 出 各 种 复合 约束 ， 就 
像 前 面 有 关 反 门 的 例子 '"。 


3.4 并 发 : 时 间 是 一 个 本 质问 题 


我 们 已 经 看 到 了 具有 内 部 状态 的 计算 对 象 作 为 模拟 工具 的 威力 。 然 而 ， 正 如 3.1.3 市 提出 
的 警告 ， 这 种 威力 也 付出 了 代价 : 丢掉 了 引用 透明 性 ， 造 成 了 有 关 同 一 与 变化 问题 中 的 模糊 
不 清 ， 还 必须 抛弃 求 值 的 代 换 模型 ， 转 而 采用 更 复杂 也 难 把 握 的 环境 模型 。 

潜藏 在 状态 、 同 一 、 变 化 后 面 的 中 心 问题 是 ， 引 入 赋值 之 后 ， 我 们 就 必须 承认 时 间 在 所 
用 的 计算 模型 中 的 位 置 。 在 引入 赋值 之 前 ， 我 们 的 所 有 程序 都 没有 时 间 问 题 ， 也 就 是 说 ， 任 
何 具 有 某 个 值 的 表达 式 ， 将 总 是 具有 这 个 值 。 与 此 相反 ， 请 回忆 一 下 在 3.1.1 节 开始 介绍 的 ， 
模拟 从 银行 账户 提 款 并 返回 最 后 余额 的 例子 : 

(withdraw 25) 


TS 


(withdraw 25) 
50 


在 这 里 ， 连 续 地 对 同一 个 表达 式 求 值 ， 却 产生 出 了 不 同 的 值 。 这 种 行为 的 出 现 就 是 因为 一 个 
事实 : 赋值 语句 的 执行 (在 所 讨论 的 情况 中 就 是 对 balance 的 赋值 ) 描绘 出 有 关 值 变化 的 一 
些 时 刻 ， 对 一 个 表达 式 的 求 值 结果 不 但 依赖 于 该 表达 式 本 身 ， 还 依赖 于 求 值 发 生 在 这 些 时 刻 
之 前 还 是 之 后 。 采 用 具有 局 部 状态 的 计算 对 象 建立 模型 ， 就 会 迫使 我 们 去 直面 时 间 问 题 ， 并 
将 它 作 为 程序 设计 中 一 个 必 不 可 少 的 概念 。 

在 构造 与 我 们 所 感知 的 物理 世界 更 加 匹配 的 计算 模型 方面 ， 我 们 还 可 以 走 得 更 远 一 些 。 


16) 这 种 类 表达 式 的 表示 形式 比较 方便 ， 因 为 在 这 里 可 以 不 必 去 命名 一 个 计算 的 中 间 表 达 式 。 我 们 原来 的 约束 语 
言 在 形式 上 的 麻烦 ， 与 许多 语言 中 处 理 复合 数据 的 操作 时 所 遇 到 的 麻烦 完全 一 样 。 例 如 ， 如 果 我 们 希望 计算 
乘积 (a+b): (c+ 四 ， 其 中 的 变量 都 表示 向 量 ， 我 们 可 以 采用 “命令 式 风格 ”， 用 一 些 设置 指定 向 量 参数 ， 但 
自己 并 不 返回 向 量 值 的 过 程 : 

(v-sum a b temp1) 
(v-sum c d temp2) 


(v-prod templ temp2 answer) 

换 一 种 方式 ， 我 们 也 可 以 用 返回 向 量 值 的 过 程 写 表达 式 ， 因 此 就 可 以 避免 显 式 地 提出 temp1 和 temp2: 
(define answer (v-prod (v-sum a b) (v-sum c d))) 

因为 Lisp 人 允许 返回 复合 对 象 作为 过 程 的 值 ， 因 此 我 们 就 可 以 将 上 面 的 命令 式 风格 的 约束 语言 ， 变 换 为 另 一 种 
表达 式 风格 的 语言 ( 见 上 述 练习 )。 在 那些 处 理 复 合 数据 对 象 方面 手段 贫乏 的 语言 里 ， 例 如 Algol、Basic 和 
Pascal (一 个 例外 的 是 在 Pascal 里 显 式 使 用 指针 变量 ) ， 人 们 通常 只 能 通过 命令 式 风格 去 操作 复合 对 象 。 看 到 
了 基于 表达 式 风 格 的 优点 之 后 ， 有 人 可 能 会 问 ， 采 用 命令 式 风格 实现 系统 ( 像 我 们 在 这 一 节 里 所 做 的 这 样 ) 
难道 还 有 什么 理由 吗 ? 这 里 的 一 个 理由 是 ， 非 表达 式 风 格 的 约束 语言 为 约束 对 象 和 连接 器 对 象 提 供 了 句柄 
(例如 ，adadaez 过 程 的 值 ) ， 如 果 我 们 希望 为 有 关 的 系统 扩充 一 些 新 操作 ， 和 希望 它们 直接 与 这 些 约束 通信 ， 而 
不 是 通过 连接 器 上 的 操作 ， 这 种 句柄 就 会 显得 非常 有 用 了 。 虽 然 在 命令 式 的 实现 之 上 很 容易 实现 基于 表达 式 
的 风格 ， 要 想 反 过 来 做 就 非常 困难 了 。 
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现实 世界 里 的 对 象 并 不 是 一 次 一 个 地 顺序 变化 ， 与 此 相反 ， 我 们 看 到 它们 总 是 并 发 地 活动 ， 
所 有 东西 一 起 活动 。 所 以 ， 用 一 集 并 发 执行 的 计算 进程 (为 了 与 一 般 讨论 并 行 计算 与 并 发 问 
题 的 文献 保持 一 致 ， 在 这 一 市 里 ,我 们 把 术语 process 翻 译 为 “进程 ”。 实 际 上 ， 这 里 的 
process 与 前 面 译 为 “计算 过 程 ”的 process 描 述 的 是 同样 的 现象 ， 都 是 指 一 个 计算 活动 的 进展 
情况 一 一 译 者 注 ) 模拟 各 种 系统 常常 是 很 自然 的 。 正 如 我 们 可 以 通过 将 模型 组 织 为 一 些 具有 
相互 分 离 的 局 部 状态 的 对 象 ， 使 做 出 的 程序 更 加 模块 化 一 样 ， 将 计算 模型 划分 为 一 些 能 各 自 
独立 地 并 发 演化 的 部 分 ， 常 常 也 是 很 合适 的 。 即 使 有 关 的 程序 是 在 一 台 顺 序 计算 机 上 执行 ， 
在 实际 写 程序 时 就 像 它 们 将 被 并 发 地 执行 那样 ， 也 能 帮助 程序 员 们 避免 那些 并 不 必要 的 时 间 
约束 ， 因 此 也 可 能 使 程序 更 加 模块 化 。 

除了 使 程序 更 加 模块 化 之 外 ， 并 发 计算 还 可 能 提供 某 种 超越 顺序 计算 的 速度 优势 。 顺 序 
计算 机 每 次 只 能 执行 一 个 操作 ， 所 以 它 执 行 一 件 任务 所 花费 的 时 间 量 将 正比 于 需要 执行 的 操 
作 的 总 数 。 然 而 ， 如 果 可 能 将 一 个 问题 分 解 为 一 些 片 段 ， 这 些 片 段 之 间 相对 独立 ， 极 少 需 
要 相互 联系 ， 那 么 就 有 可 能 将 这 些 片 段 分 配给 不 同 的 计算 处 理 器 ， 得 到 的 速度 提高 就 可 能 正 
比 于 可 用 的 处 理 器 数目 了 。 

但 是 ， 在 出 现 了 并 发 的 情况 下 ， 由 赋值 引入 的 复杂 性 问题 将 变 得 更 加 严重 了 。 无 论 是 因 
为 真实 世界 确实 如 此 ， 还 是 因为 我 们 在 计算 机 里 这 样 做 ， 并 发 执行 的 出 现 都 会 在 我 们 对 时 间 
的 理解 中 加 入 进一步 的 复杂 性 。 


3.4.1 并 发 系统 中 时 间 的 性 质 


从 表面 上 看 ， 时 间 似 乎 是 非常 简单 的 东西 。 它 也 就 是 强加 在 各 种 事件 上 的 一 个 顺序 '3。 
对 于 任何 两 个 事件 4 和 B， 或 者 是 4 出 现在 8 之前， 或 者 4 和 B 同 时 发 生 ， 或 者 A 出 现在 8 之 后 。 
警 如 说 ， 回 到 前 面 银 行 账户 的 例子 。 假 设 Peter 从 两 人 的 共用 账户 里 提 款 10 元 而 Paul 提 款 25 元 。 
这 一 账户 的 初始 余额 为 100 元 ， 提 款 后 账户 余额 为 65 元 。 根 据 两 次 提 款 的 顺序 不 同 ， 账 户 中 余 
额 的 序列 可 以 是 100 一 90 一 65 或 者 100 一 75 一 65。 在 银行 系统 的 一 个 计算 机 实现 里 ， 余 额 的 这 
种 变化 序列 可 以 用 对 变量 balance 的 一 系列 赋值 来 模拟 。 
在 更 加 复杂 的 情况 下 ， 这 样 的 观点 也 会 成 为 问题 。 假 设 Peter 和 Paul， 可 能 还 有 其 他 的 人 ， 
都 在 通过 遍布 全 世界 的 银行 机 器 网 络 访问 这 个 账户 。 那 么 余额 的 实际 序列 就 将 严格 地 依赖 于 
这 些 访问 的 确切 时 间 顺 序 ， 以 及 机 器 之 间 通 信 的 各 种 细节 。 
事件 顺序 的 非 确 定性 ， 可 能 对 并 发 系统 的 设计 提出 了 严重 的 问题 。 举 例 说 ， 假 定 由 Peter 
和 了 Paul 进行 的 取款 被 实现 为 两 个 独立 的 进程 ， 它 们 共享 同一 个 变量 balance， 这 两 个 计算 进 
程 都 由 3.1.1 市 给 出 的 如 下 过 程 描述 : 
(define (withdraw amount) 
(if (>= balance amount) 
(begin (set! balance (- balance amount)) 


balance) 
"Insufficient funds")) 


如 果 这 两 个 进程 独立 地 操作 ， 那 么 Peter 就 可 能 去 检查 余额 ， 而 后 企图 提取 出 合法 数量 的 一 笔 


2 大 部 分 真实 的 处 理 器 每 次 执行 若干 个 操作 ， 它 们 采用 一 种 称 为 流水 线 的 策略 。 虽 然 这 一 技术 能 极 大 地 提高 硬 
件 性 能 ， 它 也 只 是 用 于 加 速 顺 序 指令 流 的 执行 ， 还 需要 保持 顺序 程序 的 行为 。 
' 引 一 段 写 在 剑桥 建筑 墙 上 的 话 :“ 时 间 是 一 种 设施 ， 发 明 它 就 是 为 了 不 让 所 有 的 事情 都 立即 发 生 。 
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款 。 然 而 ，Paul 完 全 可 能 在 Peter 检 查 余 额 的 时 刻 与 Peter 完 成 提 款 的 时 刻 之 间 提 取 走 了 一 笔 钱 ， 
这 样 也 就 使 Peter 的 事先 检查 变 得 不 再 合法 了 。 

事情 还 可 能 变 得 更 糟糕 。 考 虑 作为 每 个 提 款 进程 一 部 分 的 表达 式 : 

(set! balance (- balance amount) ) 
这 一 表达 式 的 执行 包含 三 个 步骤 : 1) 取得 变量 balance 的 值 ，2) 计算 出 新 的 余额 ，3) 将 变量 
balance 设 置 为 新 值 。 如 果 Peter 和 Paul 在 提 款 过 程 中 并 发 地 执行 这 一 语句 ， 那 么 这 两 次 提 款 
在 访问 balance 和 将 它 设置 为 新 值 的 动作 就 可 能 交错 。 

图 3-29 显 示 的 时 序 图 勾画 了 一 个 事件 顺序 ， 其 中 的 balance 在 开始 时 是 100，Peter 取 走 
了 10，Paul 取 走 了 25， 然 而 balance 最 后 的 值 却 是 75。 正 如 图 中 所 示 ， 出 现 这 种 异常 情况 的 
原因 是 ，Paul 将 75 赋 值 给 balance 的 前 提 条 件 是 ， 在 减少 之 前 balance 的 值 是 100。 而 当 
Peter 将 balance 修 改 为 90 之 后 ， 上 述 前 提 已 经 变 得 不 再 合法 了 。 对 于 银行 系统 而 言 ， 这 当然 
是 灾难 性 的 错误 ， 因 为 系统 里 款项 的 总 量 没 有 维持 好 。 在 这 些 交 易 之 前 ， 款 项 的 总 额 是 100 元 。 
在 此 之 后 ，Peter 有 了 10 元 ，Paul 有 了 25 元 ， 而 银行 还 有 75 元 '%。 


Peter Bank Paul 
















Access balance: $100 
new value: 100-10=90 
set! balance to $90 







Access balance: $100 
new value: 100-25=75 








C set! balance to $75 ) 





time 
图 3-29 时 序 图 ， 说 明 两 次 银行 提 款 事件 怎样 交错 就 可 能 导致 不 正确 的 余额 


由 这 一 实例 表现 出 的 一 般 性 现象 是 ， 几 个 进程 有 可 能 共享 同一 个 状态 变量 。 使 事情 变 得 
更 加 复杂 的 原因 ， 就 是 多 个 进程 有 可 能 同时 试图 去 操作 这 种 共享 的 状态 。 对 于 银行 账户 的 例 
子 ， 在 完成 每 次 交易 时 ， 每 个 客户 应 该 能 像 根 本 不 存在 其 他 客户 那样 进行 自己 的 活动 。 当 一 
个 客户 以 某 种 依赖 于 余额 的 方式 修改 余额 时 ， 他 应 该 能 够 假定 ， 在 立刻 就 要 做 修改 的 那个 时 


所 对 于 这 个 系统 ， 如 果 两 个 set ! 操 作 同 时 试图 去 修改 余额 ， 产 生 的 情况 可 能 更 糟 。 在 这 种 情况 下 ， 存 储 器 里 
出 现 的 实际 数据 就 可 能 是 两 个 进程 所 写 信息 的 随机 组 合 。 大 部 分 计算 机 都 有 对 存储 器 基本 写 和 操作 的 互 锁 ， 
以 防止 这 种 同时 写 入 的 情况 发 生 。 即 使 是 这 种 看 起 来 很 简单 的 保护 机 制 ， 也 对 于 多 处 理 计算 机 的 设计 实现 提 
出 了 挑战 ， 在 那里 ， 非 常 精巧 的 丝 存 一 致 性 规程 要 求 保证 所 有 处 理 器 对 存储 器 的 内 容 有 一 种 统一 观点 ， 以 提 
高 存储 器 访问 的 速度 ， 虽 然 事实 上 这 些 数据 可 能 复制 (缓存 ) 在 不 同 处 理 器 里 。 
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刻 ， 该 余额 的 情况 仍然 还 是 他 所 设想 的 那样 。 

并 发 程序 的 正确 行为 

上 面 例子 的 情况 非常 典型 ， 是 可 能 潜藏 在 并 发 程序 里 的 微妙 错误 。 这 一 复杂 性 的 根源 ， 
就 在 于 这 里 出 现 了 对 不 同 进程 之 间 共 享 的 变量 的 赋值 。 我 们 已 经 知道 ， 在 写 那些 使 用 set ! 的 
程序 时 必须 小 心 ， 因 为 一 个 计算 的 结果 将 依赖 于 其 中 的 各 个 赋值 发 生 的 顺序 起 。 对 于 并 发 进 
fe, 我们 对 于 赋值 就 更 需要 特别 小 心 ， 因 为 在 这 里 可 能 无 法 控制 其 他 进程 所 做 赋值 的 出 现 顺 
序 。 如 果 几 个 这 样 的 修改 可 能 并 发 出 现 (就 像 上 面 两 个 提 款 人 访问 一 个 共用 账户 的 情况 )， 我 
们 就 需要 采用 某 些 方式 ， 以 设法 保证 系统 的 行为 是 正确 的 。 例 如 ， 在 共用 银行 账户 提 款 的 情 
况 中 ， 我 们 必须 保证 总 款额 不 变 。 为 了 使 并 发 程序 的 行为 正确 ， 可 能 就 需要 对 程序 的 并 发 执 
行 增加 一 些 限制 。 

对 于 并 发 的 一 种 可 能 限制 方式 是 规定 ， 修 改 任意 共享 状态 变量 的 两 个 操作 都 不 允许 同时 
发 生 。 这 是 一 个 特别 严厉 的 要 求 。 对 于 分 布 式 银行 系统 ， 这 就 要 求 系统 设计 者 保证 同时 出 现 
的 只 能 有 一 个 交易 。 这 样 做 可 能 过 于 低 效 ， 也 太保 守 了 。 图 3-30 中 显示 的 是 Peter 和 Paul 共 享 
同一 个 银行 账户 ， 而 Peter 自 己 还 有 一 个 私人 账户 。 该 图 展示 了 从 共享 账户 的 两 次 提 款 (一 次 
来 自 Peter， 一 次 来 自 Paul) 和 对 Paul 的 个 人 账户 的 一 次 存款 '!%。 对 于 共享 账户 的 两 次 取款 决 不 
能 并 发 进行 (因为 两 者 需要 访问 和 更 新 同一 账户 ) ， 而 且 Paul 的 存款 和 取款 也 决 不 能 并 发 (A 
为 两 者 都 访问 和 更 新 Paul 账 户 里 的 款额 ) 。 但 是 ， 人 允许 Paul 向 自己 的 个 人 账户 存款 与 Peter 从 他 
们 的 共享 账户 取款 并 发 进行 ， 则 不 会 有 任何 问题 。 


Peter Bank1 Paul Bank2 





time 


图 3-30 并 发 地 从 共享 账户 Bankl 取 款 和 向 个 人 账户 Bank2 存 款 





165 3.1.3 节 里 的 阶乘 程序 针对 单个 顺序 进程 阐释 了 这 方面 的 情况 。 

166 图 中 各 列 分 别 显示 了 Peter 的 钱包 ， 共 用 账户 (Bank1)，Paul 的 钱包 ，Paul 的 个 人 账户 (Bank2)， 显 示 了 它们 
在 每 次 提 款 (W) 和 存款 (D) 前 后 的 情况 。Peter 从 Bank1 取 出 10 元 ，Paul 向 Bank2 存 入 5 元 ， 而 后 又 从 Bank1 
取出 25 元 。 
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对 于 并 发 的 另 一 种 不 那么 严厉 的 限制 方式 是 ， 保 证 并 发 系统 产生 出 的 结果 与 各 个 进程 按 
照 某 种 方式 顺序 运行 产生 出 的 结果 完全 一 样 。 这 一 要 求 中 包含 两 个 重要 方面 。 首 先 ， 它 并 没 
有 要 求 各 个 进程 实际 上 顺序 地 运行 ， 而 只 是 要 求 它们 产生 的 结果 与 假设 它们 顺序 运行 所 产生 
出 的 结果 相同 。 对 于 图 3-30 的 例子 ， 银 行 账户 系统 的 设计 者 可 以 安全 地 允许 Paul 的 存款 和 
Peter 的 取款 并 发 进行 ， 因 为 这 样 做 所 造成 的 整体 效果 与 这 两 个 操作 顺序 出 现 的 效果 一 样 。 第 
二 点 ， 一 个 并 发 程序 完全 可 能 产生 多 于 一 个 “正确 的 ”结果 ， 因 为 我 们 只 要 求 其 结果 与 按照 
某 种 方式 顺序 化 的 结果 相同 。 例 如 ， 假 定 Peter 和 Paul 的 共享 账户 里 开始 有 100 元 ，Peter 存 入 40 
元 ， 同 时 Paul 并 发 地 取出 了 账户 中 钱 数 的 一 半 。 顺 序 执行 的 结果 可 能 使 得 账户 里 的 余额 变 成 
70 元 或 者 90 元 〈 参 见 练习 3.38) 1°, 

对 于 并 发 程序 的 正确 执行 ， 我 们 还 可 以 提出 一 些 更 弱 的 要 求 。 一 个 模拟 扩散 过 程 的 程序 
(例如 ， 在 某 个 对 象 里 面 的 热量 流动 ) 可 以 由 一 大 批 进程 组 成 ， 每 个 进程 代表 空间 中 很 小 的 一 
点 体积 ， 它 们 并 发 地 更 新 自己 的 值 。 这 里 的 每 个 进程 都 反复 将 自己 的 值 更 新 为 自己 的 原 值 和 
相 邻 进程 的 值 的 平均 值 。 无 论 有 关 的 操作 按 什么 顺序 执行 ， 这 种 算法 都 能 收敛 到 正确 的 解 ， 
因此 也 就 不 需要 对 于 共享 变量 的 并 发 使 用 提出 任何 限制 了 。 

练习 3.38 ”假定 Peter、Paul 和 Mary 共 享 一 个 共用 的 账户 ， 其 中 开始 有 100 元 钱 。 按 照 并 发 
方式 执行 下 面 命 令 ，Peter 存 和 信 10 元 ，Paul 取 出 20 元 ， 而 Mary 取 出 了 账户 中 款额 的 一 半 : 


Peter: (set! balance (+ balance 10)) 
Paul: (set! balance (- balance 20) ) 
Mary: (set! balance (- balance (/ balance 2))) 


a) 请 列 出 在 完成 了 这 3 项 交易 之 后 balance 的 所 有 可 能 值 。 这 里 假定 银行 系统 强迫 这 三 
个 进程 按照 某 种 顺序 方式 运行 。 

b) 如 果 系 统 允 许 这 些 进 程 交 错 进行 ， 还 可 能 产生 出 另外 一 些 值 吗 ? 请 画 出 类 似 于 图 3-29 
的 时 序 图 ， 解 释 各 个 值 将 如 何 出 现 。 


3.4.2 控制 并 发 的 机 制 


我 们 已 经 看 到 了 处 理 并 发 进程 的 困难 ， 这 些 困难 的 根源 就 在 于 需要 考虑 不 同 进程 里 各 个 
事件 之 间 相 互 交错 的 情况 。 举 例 来 说 ， 假 定 我 们 有 两 个 进程 ， 其 中 一 个 里 面 有 顺序 的 三 个 事 
fE (a, b, c)， 另 一 个 有 顺序 的 三 个 事件 (x, y, z)。 如 果 这 两 个 进程 并 发 运行 ， 对 于 它们 的 执行 
如 何 交错 没有 任何 限制 ， 那 么 就 存在 20 种 可 能 的 事件 排列 ， 它 们 都 与 两 个 进程 中 各 个 事件 的 
排列 顺序 相 容 : 


(Ci ea) (GND BBG) Gy b,c) 
(a, b, x,c, y,z) (a,x, b,y,2z,c) (x,a, b; y,c,z) (x,y; a, b,c, 2) 
(4; 6,5, ye, 2) (a, 5, yb, Cc. 2) ja, buy ze) e abae 
(a,b, %, ¥ Ge) (a, % yb, eee) pa, yy bye, 2) Gey, a, Sd, ©) 
(i 


作为 设计 这 一 系统 的 程序 员 ， 我 们 可 能 就 必须 考虑 这 20 种 排列 中 每 一 种 的 效果 ， 检 查 是 否 每 


'9 有 关 这 种 看 法 的 更 形式 化 的 说 法 是 说 并 发 程序 具有 内 在 的 非 确定 性 。 也 就 是 说 ， 它 们 不 能 用 单 值 函数 描述 ， 
而 只 能 用 结果 为 一 集 可 能 值 的 函数 描述 。 在 4.3 节 里 ， 我 们 将 研究 一 种 表述 非 确定 性 计算 的 语言 。 
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种 排列 的 行为 都 是 可 以 接受 的 。 当 进程 和 事件 的 数量 进一步 增加 时 ， 这 一 方式 很 快 就 会 变 得 
无 法 控制 了 。 

另 一 种 更 实际 的 方法 是 ， 在 设计 并 发 系统 时 ， 设 法 做 出 一 些 一 般 性 的 机 制 ， 使 我 们 可 能 
限制 并 行进 程 之 间 的 交错 情况 ， 以 保证 程序 具有 正确 的 行为 方式 。 人 们 已 经 为 此 目的 而 开发 
了 许多 不 同 的 机 制 。 这 一 节 里 将 讨论 其 中 的 一 种 : 串 行 化 组 (serializer)。 

对 共享 变量 的 串 行 访问 

串 行 化 就 是 实现 下 面 的 想法 : 使 进程 可 以 并 发 地 执行 ， 但 是 其 中 也 有 一 些 过 程 不 能 并 发 
地 执行 。 说 得 更 准确 些 ， 串 行 化 就 是 创建 一 些 不 同 的 过 程 集 合 ， 并 且 保 证 在 每 个 时 刻 ， 在 任 
何 一 个 串 行 化 集合 里 至 多 只 有 一 个 过 程 的 一 个 执行 。 如 果 某 个 集合 里 有 过 程 正 在 执行 ， 而 另 
一 进程 企图 执行 这 个 集合 里 的 任何 过 程 时 ， 它 就 必须 等 待 到 前 一 过 程 的 执行 结束 。 

我 们 可 以 借助 串 行 化 去 控制 对 共享 变量 的 访问 。 举 例 说 ， 如 果 我 们 希望 基于 某 个 共享 变 
量 已 有 的 值 去 更 新 它 ， 那 么 就 应 该 将 访问 这 一 变量 的 现 有 值 和 给 这 一 变量 赋 新 值 的 操作 都 放 
入 同一 个 过 程 里 。 而 后 设法 保证 ， 任 何 能 给 这 个 变量 赋值 的 过 程 都 不 会 与 这 个 过 程 并 发 运行 ， 
方法 是 将 所 有 这 样 的 过 程 都 放 在 同一 个 串 行 化 集合 里 。 这 就 保证 了 在 访问 一 个 变量 和 给 它 赋 
值 之 间 ， 这 一 变量 的 值 不 会 改变 。 

Scheme 里 的 串 行 化 

为 了 使 上 述 机 制 更 加 具体 化 ， 假 定 我 们 已 经 扩充 了 所 用 的 Scheme 语言 ， 加 入 了 一 个 称 为 
parallel-execute 的 过 程 : 

(parallel-execute <pi> <Ppz> ... <p>) 
这 里 的 每 个 <p> 必 须 是 一 个 无 参 过 程 ，parallel -execute 为 每 个 <p> 创 建 一 个 独立 的 进程 ， 
该 进程 将 应 用 <p> (没有 参数 )。 这 些 进程 都 并 发 地 运行 '*。 

作为 使 用 这 种 机 制 的 例子 ， 考 虑 : 

(define x 10) 


(parallel-execute (lambda () (set! x (* x x))) 
(lambda () (set! x (+ x 1)))) 


这 样 就 建立 了 两 个 并 发 计算 进程 ，P1 要 把 x 设置 为 x 乘 以 x， 而 P; 要 去 增加 x 的 值 。 在 这 些 执行 
完成 之 后 ，x 将 具有 下 面 5 个 可 能 值 之 一 ， 具 体 结果 将 依赖 于 Pl 和 Ps 中 各 个 事件 的 交错 情况 : 

101: P1 将 x 设置 为 100， 而 后 P; 将 x 的 值 增加 到 101 

121: P, 将 x 的 值 增加 到 11， 而 后 Pi 将 x 设置 为 x 乘 以 x 

110: P; 将 x 从 10 修 改 为 11 的 动作 出 现在 Pi 两 次 访问 x 的 值 之 间 ， 这 两 次 访问 是 为 了 求 值 表 

AK (* x x) 

ll: P; 访 问 x， 而 后 Pi 将 x 设置 为 100， 而 后 Ps 又 设置 x 

100: Pi 访问 x (两 次 )， 而 后 Ps 将 x 设置 为 11 ， 而 后 Pi 又 设置 x 

我 们 可 以 用 品行 化 的 过 程 给 这 里 的 并 发 性 强加 一 些 限制 ,通过 囊 行 化 组 实现 这 种 限制 。 
构造 串 行 化 组 的 方式 是 调用 make-serializer， 这 一 过 程 的 实现 将 在 后 面 给 出 。 一 个 品行 


_ 


IDparallel-execute 并 不 是 标准 Scheme 的 一 部 分 ， 但 是 可 以 在 MIT Scheme 里 实现 它 。 在 我 们 的 实现 中 ， 
新 的 并 发 进程 也 与 原 Scheme 进 程 并 发 地 执行 。 还 有 ， 在 我 们 的 实现 里 ， 由 parallel-execute 返 回 的 值 是 
一 个 特殊 的 控制 对 象 ， 可 以 用 于 终止 这 个 新 创建 的 进程 。 
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行 化 组 的 所 有 调用 返回 的 串 行 化 过 程 都 属于 同一 个 集合 。 
这 样 ， 与 上 面 的 例子 不 同 ， 执 行 


(define x 10) 
(define s (make-serializer) ) 


(parallel-execute (s (lambda () (set! x (* x x)))) 


(s (lambda () (set! x (+ x 1))))) 


只 可 能 产生 x 的 两 种 可 能 值 101 和 121， 其 他 几 种 可 能 性 都 被 清除 掉 了 ， 因 为 Pi 和 已 的 执行 
交错 进行 。 

下 面 是 取 自 3.1.1 节 的 make-account 过 程 的 另 一 个 版 本 ， 其 中 存款 和 取款 操作 已 经 做 了 
BITE: 


(define (make-account balance) 
(define (withdraw amount) 
(if (>= balance amount) 
(begin (set! balance (- balance amount) ) 
balance) 
"Insufficient funds") ) 
(define (deposit amount) 
(set! balance (+ balance amount) ) 
balance) 
(let ((protected (make-serializer) ) 
(define (dispatch m) 
(cond ((eq? m ‘withdraw) (protected withdraw) ) 
((eq? m ‘deposit) (protected deposit) ) 
( (eq? m *balance) balance) 
(else (error "Unknown request -- MAKE-ACCOUNT" 
m)))) 
dispatch) ) 


对 于 这 个 实现 ， 两 个 进程 就 不 会 并 发 地 在 同一 个 账户 中 存款 和 取款 ， 这 样 就 清除 了 出 现 图 3- 
29 中 所 展示 的 错误 的 根源 ， 那 里 出 现 错 误 是 由 于 Peter 修 改 账户 余额 的 动作 ， 出 现在 Paul 访 问 
这 一 余额 以 计算 新 值 和 实际 执行 赋值 的 动作 之 间 。 而 另 一 方面 ， 由 于 每 个 账户 都 有 它 自 己 的 
串 行 化 组 ， 因 此 对 不 同 账户 的 存款 和 取款 都 可 以 并 发 地 进行 。 

练习 3.39 ”如 果 我 们 换 用 下 面 的 串 行 化 执行 ， 上 面 正 文中 所 示 的 5 种 并 行 执行 结果 中 的 哪 
一 些 还 可 能 出 现 ? 

(define x 10) 

(define s (make-serializer) ) 


(parallel-execute (lambda () (set! x ((s (lambda () (* x x)))))) 
(s (lambda () (set! x (+ x 1))))) 


练习 3.40 请 给 出 下 面 的 执行 可 能 产生 出 的 所 有 x 值 : 


(define x 10) 


(parallel-execute (lambda () (set! x (* x x))) 
(lambda () (set! x (* x x x)))) 
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如 果 我 们 改 用 下 面 的 串 行 化 过 程 ， 上 述 可 能 性 中 的 哪些 还 会 存在 : 
(define x 10) 


(define s (make-serializer) ) 


(parallel-execute (s (lambda () (set! x (* x x)))) 
(s (lambda () (set! x (* x x x))))) 
练习 3.41 Ben Bitdiddle 觉 得 像 下 面 这 样 实现 银行 账户 可 能 更 好 (其 中 带 注释 的 行 修改 


Th 


(define (make-account balance) 
(define (withdraw amount) 
(if (>= balance amount) 
(begin (set! balance (- balance amount) ) 
balance) 
"Insufficient funds") ) 
(define (deposit amount) 
(set! balance (+ balance amount) ) 
balance) 
(let ((protected (make-serializer) ) ) 
(define (dispatch m) 
(cond ((eq? m ’withdraw) (protected withdraw) ) 
( (eq? m *deposit) (protected deposit) ) 
( (eq? m balance) 
( (protected (lambda () balance)))) ; serialized 
(else (error "Unknown request -- MAKE-ACCOUNT" 
m)))) 
dispatch) ) 


因为 允许 非 串 行 地 访问 银行 账户 可 能 导致 不 正常 的 行为 。 你 同意 Ben 的 观点 吗 ? 是 否 存在 基 种 
情况 ， 能 证 明 Ben 所 担心 的 问题 ? 


练习 3.42 Ben Bitdiddle 建 议 说 ， 在 响应 每 个 withdraw 和 deposit 消 息 时 创建 一 个 新 
的 串 行 化 过 程 完 全 是 浪费 时 间 。 他 说 ， 可 以 修改 make-account， 使 得 对 protected 的 调 
用 都 可 以 在 过 程 aispatch 之 外 进行 。 这 样 ， 在 每 次 要 求 去 执行 提 款 过 程 时 ， 这 个 账户 将 总 
返回 同一 个 串 行 化 过 程 〈 它 是 与 这 个 账户 同时 创建 的 )。 
(daefine (make-account balance) 
(define (withdraw amount) 
(if (>= balance amount) 
(begin (set! balance (- balance amount) ) 
balance) 
"Insufficient funds") ) 
(define (deposit amount) 
(set! balance (+ balance amount) ) 
balance) 
(let ((protected (make-serializer) ) ) 
(let ((protected-withdraw (protected withdraw) ) 
(protected-deposit (protected deposit) ) ) 
(define (dispatch m) 
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(eq? m ’withdraw) protected-withdraw) 
ne m deposit) protected-deposit) 
(eq? m balance) balance) 


( 
( 
( 
(else (error "Unknown request -- MAKE-ACCOUNT" 
m) ) ) ) 
dispatch) ) ) 

这 样 的 修改 安全 吗 ? 特 别 是 这 样 修改 之 后 ， 在 所 允许 的 并 发 性 方面 ，make-account 的 两 个 
版 本 之 间 有 什么 不 同 ? 


使 用 多 重 共享 资源 的 复杂 性 

串 行 化 提供 了 一 种 非常 强 有 力 的 抽象 ， 能 帮助 我 们 将 并 发 程序 的 复杂 性 孤立 起 来 ， 使 这 
种 程序 能 够 被 小 心地 和 (希望 是 ) 正确 地 处 理 。 然 而 ， 如 果 只 存在 一 个 共享 资源 〈 例 如 一 个 
银行 账户 )， 串 行 化 的 使 用 问题 是 相对 比较 简单 的 。 但 是 如 果 存 在 着 多 项 共享 资源 ， 并 发 程序 
设计 就 可 能 变 得 非常 难以 把 握 了 。 

为 了 展示 可 能 出 现 的 一 种 困难 ， 现 在 假定 我 们 希望 交换 两 个 账户 的 余额 。 我 们 首先 访问 
每 个 账户 以 确定 其 中 的 余额 ， 而 后 计算 出 这 两 个 余额 之 间 的 差额 ， 从 一 个 账户 里 减 去 这 一 差 
额 ， 而 后 将 它 存 入 另 一 个 帐户。 我们 可 能 如 下 实现 这 一 工作 '9: 


(define (exchange account1l account2) 
(let ((difference (- (accountl *balance) 
(account2 *balance) )) ) 
((account1 ’withdraw) difference) 


((account2 ’deposit) difference) ) ) 


如 果 只 有 一 个 进程 试图 做 这 种 交换 ， 这 一 过 程 能 够 工作 得 很 好 。 然 而 ， 假 定 Peter 和 Paul 都 
能 访问 账户 al1 、a2 和 a3， 在 Peter 要 求 交 换 al 和 a2 时 ， 正 好 Paul 也 并 发 地 要 求 交 换 al 和 a3。 虽 
然 我 们 已 对 单个 账户 的 存款 和 取款 做 了 串 行 化 (就 像 在 上 一 节 里 所 示 的 make-account 过 程 )， 
exchange 还 是 可 能 产生 不 正确 的 结果 。 举 例 说 ，Peter 可 能 已 经 算出 了 al 和 a2 的 余额 之 差 ， 
但 是 Paul 却 可 能 在 Peter 完 成 交换 之 前 改变 了 al 的 余额 ""。 为 了 得 到 正确 的 行为 ， 我 们 就 必须 重 
新 安排 exchange 过 程 ， 让 它 能 在 完成 整个 交换 的 期 间 锁 住 对 于 这 些 账 户 的 任何 其 他 访问 。 
得 到 这 种 效果 的 一 种 方式 是 用 两 个 账户 的 串 行 化 组 将 整个 exchange 过 程 串 行 化 。 为 此 
我 们 就 要 重新 安排 对 一 个 账户 的 串 行 化 组 的 访问 。 请 注意 ， 我 们 在 这 里 暴露 了 相关 的 串 行 化 
组 ， 最 后 还 是 有 意 地 打破 了 银行 账户 对 象 的 模块 化 。 下 面 的 make-account 版 本 等 价 于 3.1.1 
节 里 的 原始 版 本 ， 除 了 其 中 有 一 个 串 行 化 组 ， 它 提供 了 对 余额 变量 的 保护 。 另 外 还 将 这 个 串 
行 化 组 通过 消息 传递 暴露 出 来 了 : 
(define (make-account-and-serializer balance) 
(define (withdraw amount) 
(if (>= balance amount) 
(begin (set! balance (- balance amount) ) 
balance) 


"Insufficient funds") ) 
(define (deposit amount) 


9 我 们 已 利用 消息 Geposit 可 以 接受 负 值 的 事实 (这 是 我 们 银行 系统 里 的 严重 错误 ) 简化 了 exchange。 
"如 果 这 些 账 户 开始 时 的 值 分 别 是 10、20 和 30， 那 么 在 经 过 任意 次 交换 之 后 ， 它 们 的 值 应 该 还 是 按照 某 种 顺序 
的 10、20 和 30。 对 于 单个 账户 的 存款 串 行 化 不 足以 保证 这 一 点 ， 见 练习 3.43。 
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(set! balance (+ balance amount) ) 
balance) 
(let ((balance-serializer (make-serializer) ) ) 
(define (dispatch m) 
(cond ((eq? m ’withdraw) withdraw) 
((eq? m ’deposit) deposit) 
( (eq? m balance) balance) 
( (eq? m serializer) balance-serializer) 
(else (error "Unknown request -- MAKE-ACCOUNT" 
m)))) 
dispatch) ) 
我 们 可 以 用 这 个 过 程 去 完成 存款 和 取款 的 串 行 化 。 当 然 ， 这 里 做 出 的 东西 不 像 前 面 的 串 
行 化 账户 ， 现 在 需要 银行 账户 对 象 的 每 个 用 户 承担 起 责任 ， 通 过 显 式 的 方式 去 管理 串 行 化 的 
问题 ， 例 如 下 面 的 例子 ”: 


(define (deposit account amount) 
(let ((s (account ’serializer) ) 
(d (account *deposit) ) ) 


((s d) amount) ) ) 
以 这 种 方式 导出 串 行 化 组 ， 就 使 我 们 有 了 足够 的 灵活 性 ， 可 以 实现 串 行 化 的 交换 程序 。 
在 这 里 ， 只 需要 将 针对 两 个 账户 做 串 行 组 ， 去 串 行 化 原来 的 exchange 过 程 : 
(define (serialized-exchange account1 account2) 
(let ((serializerl (account1 ’serializer) ) 
(serializer2 (account2 ‘serializer) )) 
((serializerl (serializer2 exchange) ) 
accountl 


account2) ) ) 


练习 3.43 ”假定 在 三 个 账户 里 的 初始 余额 分 别 是 10、20 和 30， 现 在 有 多 个 进程 正在 运行 ， 
交换 这 些 账 户 中 的 余额 。 请 论证 ， 如 果 这 些 进 程 是 顺序 运行 的 ， 那 么 经 过 任何 次 并 发 交换 ， 
这 些 账户 里 的 余额 还 将 是 按照 某 种 顺序 排列 的 10、20 和 30。 请 画 出 一 个 类 似 于 图 3-29 中 那样 
的 时 间 图 ， 说 明 如 果 采 用 本 节 中 第 一 个 版 本 的 账户 交换 程序 实现 账户 交换 ， 那 么 这 一 条 件 就 
会 被 破坏 。 另 一 方面 ， 也 请 论证 ， 即 使 是 使 用 这 个 exchange 程 序 ， 在 这 些 账户 里 的 余额 之 
和 也 仍然 能 得 以 保持 不 变 。 请 画 出 一 个 时 序 图 ， 说 明 如 果 我 们 不 做 各 个 账户 上 交易 的 串 行 化 ， 
这 一 条 件 就 可 能 被 破坏 。 

练习 3.44 ”现在 考虑 从 一 个 账户 向 另 一 账户 转移 款项 的 问题 。Ben Bitdiddle 说 这 件 事 可 以 
通过 下 面 过 程 完 成 ， 即 使 存在 着 多 个 人 并 发 地 在 许多 账户 之 间 转 移 款项 。 在 这 里 可 以 使 用 任 
何 经 过 存款 和 取款 交易 串 行 化 的 账户 机 制 ， 例 如 上 面 正文 中 的 make-account 版 本 。 


(define (transfer from-account to-account amount) 





((from-account ‘withdraw) amount) 


((to-account ‘deposit) amount) ) 


Louis Reasoner 说 这 里 存在 一 个 问题 ， 因 此 需要 使 用 更 复杂 精细 的 方法 ， 例 如 在 处 理 交 换 问 题 
中 所 用 的 方法 。Louis 是 对 的 吗 ? 如 果 不 是 ， 那 么 在 转移 问题 和 交换 问题 之 间 存 在 着 什么 本 质 


T 练习 3.45 深 入 研究 了 为 什么 存款 和 取款 不 能 继续 由 账户 自动 串 行 化 的 问题 。 


216 PIE PRL, HRARA 





性 的 不 同 ? (你 应 该 假设 Ezom-account 至 少 有 amount 那 么 多 钱 。) 
练习 3.45 Louis Reasoner 认 为 我 们 的 银行 账户 系统 由 于 存款 和 取款 不 能 自动 串 行 化 ， 已 经 
变 得 毫 无 必要 地 过 于 复杂 了 ， 而且 很 容易 弄 错 。 他 建议 ,make-account-and-serializer 
应 该 导出 其 中 的 串 行 化 组 (以 便 用 在 serialized-exchange 一 类 过 程 里 )， 而 不 仅 是 用 串 
行 化 组 去 串 行 化 账户 和 取款 ( 像 make-account 所 做 的 那样 ) 。 他 建议 将 账户 重新 定义 为 下 
面 的 样子 : 
(define (make-account-and-serializer balance) 
(define (withdraw amount) 
(if (>= balance amount) 
(begin (set! balance (- balance amount) ) 
balance) 
"Insufficient funds") ) 
(define (deposit amount) 
(set! balance (+ balance amount) ) 
balance) 
(let ((balance-serializer (make-serializer) ) ) 
(define (dispatch m) 
(cond ((eq? m ’withdraw) (balance-serializer withdraw) ) 
( (eq? m ‘deposit) (balance-serializer deposit) ) 
( (eq? m *balance) balance) 
( (eq? m ’serializer) balance-serializer) 
(else (error "Unknown request -- MAKE-ACCOUNT" 


m)))) 
dispatch) ) 


而 后 还 像 原 来 的 make-account 那 样 处 理 取款 : 


(define (deposit account amount) 


( (account ’deposit) amount)) 


请 解释 为 什么 Louis 的 推理 是 错误 的 。 特 别 是 考虑 在 调用 serialized-exchange 时 会 发 生 
什么 情况 。 

串 行 化 的 实现 

我 们 将 用 一 种 更 基本 的 称 为 互 斥 元 (mutex) 的 同步 机 制 来 实现 串 行 化 。 互 斥 元 是 一 种 对 
象 ， 假 定 它 提 供 了 两 个 操作 。 一 个 互 斥 元 可 以 被 获取 (acquired) 或 者 被 释放 (released), — 
且 某 个 互 斥 元 被 获取 ,对 于 这 一 互 斥 元 的 任何 其 他 获取 操作 都 必须 等 到 该 互 斥 元 被 释放 之 后 。 
在 我 们 的 实现 里 ， 每 个 串 行 化 组 关联 着 一 个 互 斥 元 。 给 了 一 个 过 程 p， 串 行 化 组 将 返回 一 个 过 
程 ， 该 过 程 将 获取 相应 互 斥 元 ， 而 后 运行 p， 而 后 释放 该 互 斥 元 。 这 样 就 能 保证 ， 由 这 个 串 行 
化 组 产生 的 所 有 过 程 中 ， 一 次 只 能 运行 一 个 ， 这 就 是 需要 保证 的 串 行 化 性 质 。 


02 术语 “mutex” 是 “mutual exclusion” 的 缩写 形式 。 有 关 安 排 一 种 机 制 ， 使 之 能 允许 并 发 进程 安全 地 共享 资 
源 的 一 般 性 问题 称 为 互 斥 问题 。 我 们 的 互 斥 元 是 信号 量 机 制 的 一 种 简化 形式 〈 见 练习 3.47) 。 信 号 量 机 制 由 
“THE” 多 道 程序 设计 系统 引进 ， 这 一 系统 是 在 Eindhoven 技 术 大 学 开发 的 ， 用 这 所 大 学 荷兰 语 的 首 字母 命名 
(Dijkstra 1968a) 。 获 取 和 释放 操作 原来 被 命名 为 操作 P 和 V， 来 自 荷兰 语词 汇 passeren (通过 ) 和 vrijgeven 
(释放 ) ， 参 考 了 铁路 系统 所 用 的 信号 灯 。Dijkstra 的 经 典 论文 (1968b) 是 最 早 河清 并 发 控制 中 的 各 种 问题 的 
论文 之 一 ， 其 中 阅 述 了 如 何 利用 信号 量 处 理 各 种 并 发 问题 。 
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(define (make-serializer) 
(let ((mutex (make-mutex) ) ) 
(lambda (p) 
(define (serialized-p . args) 
(mutex ’acquire) 
(let ((val (apply p args) )) 
(mutex ”release) 
val) ) 


serialized-p))) 

互 斥 元 是 一 个 变动 对 象 (这 里 将 采用 一 个 单元 素 的 表 ， 称 它 为 一 个 单元 ) ， 可 以 保存 真 或 
者 假 。 在 值 为 假 时 ， 这 个 互 斥 元 可 以 被 获取 ， 当 值 为 真 时 该 互 斥 元 就 是 不 可 用 的 ， 任 何其 他 
获取 这 一 互 斥 元 的 进程 都 必须 等 待 。 

我 们 的 互 斥 元 构造 国 数 make-mutex 开 始 时 将 单元 的 内 容 初始 化 为 假 。 为 了 获取 一 个 互 
斥 元 ， 首 先 需 要 检查 这 个 单元 。 如 果 互 斥 元 可 用 ， 我 们 就 将 该 单元 设置 为 真 并 继续 下 去 。 否 
则 就 进入 一 个 循环 里 等 待 ， 一 次 又 一 次 地 试图 去 获取 这 个 互 斥 元 ， 直 到 发 现 它 可 用 为 止 ”。 
为 释放 一 个 互 斥 元 ， 只 需要 将 单元 的 内 容 设 置 为 假 : 

(define (make-mutex) 

(let ((cell (list false) )) 
(define (the-mutex m) 
(cond ((eq? m ’acquire) 
(if (test-and-set! cell) 
(the-mutex ‘acquire))) ; retry 


( (eq? m ’release) (clear! cell)))) 
the-mutex) ) 


(define (clear! cell) 
(set-car! cell false) ) 


test-and-set! 检 查 单元 并 返回 检查 结果 ， 除 此 之 外 ， 如 果 检 查 结果 为 假 ，test-and- 
set! 在 返回 假 之 前 还 要 将 单元 内 容 设 置 为 真 。 我 们 可 以 用 下 述 过 程 描 述 这 种 行为 ; 
(define (test-and-set! cell) 
(if (car cell) 
true 
(begin (set-car! cell true) 
false) ) ) 


不 过 ， 这 样 实现 test-and-set 1! 不 能 保证 达到 所 需要 的 效果 ， 因 为 这 里 有 一 个 至 关 重 
要 的 细节 ， 也 是 整个 系统 完成 并 发 控制 的 核心 : test-and-set! 操 作 必须 以 原子 操作 的 方 
式 执行 。 也 就 是 说 ， 我 们 必须 保证 ， 一 旦 某 进 程 检 查 了 一 个 单元 内 容 并 发 现 它 是 假 ， 该 单元 
的 内 容 就 必须 设置 为 真 ， 而 且 必 须 在 任何 其 他 进程 检查 这 个 单元 之 前 完成 这 一 设置 。 如 果 没 
有 这 种 保证 ， 则 互 斥 元 就 会 失效 ， 类 似 于 图 3-29 里 有 关 银 行 账户 的 方式 ( 见 练 习 3.46)。 

test-and-set1! 的 实际 实现 方式 依赖 于 所 用 系统 中 运行 并 发 进程 的 细节 。 例 如 ， 我 们 
有 可 能 是 在 一 台 顺 序 处 理 器 上 ， 采 用 在 各 进程 间 轮 换 的 时 间 片 机 制 执 行 一 些 并 发 进程 ， 让 每 


5 在 许多 分 时 操作 系统 里 ， 被 互 斥 元 阻塞 的 进程 并 不 像 上 面 所 说 的 那样 通过 “ 忙 等 待 ”耗费 时 间 。 相 反 ， 系 统 
在 一 个 进程 等 待 时 将 调度 另 一 进程 去 运行 ， 当 互 斥 元 变 为 可 用 时 再 唤醒 那些 被 阻塞 的 进程 。 
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个 进程 运行 很 短 一 段 时 间 ， 而 后 中 断 这 一 进程 并 转移 到 另 一 个 进程 去 。 在 这 种 情况 下 ， 只 需 
在 检查 和 设置 单元 值 之 间 禁 止 进行 时 间 分 片 ，test-and-set1! 就 可 以 正确 工作 了 '*。 在 另 
一 类 情况 中 ， 多 处 理 器 计算 机 则 提供 了 专门 指令 ， 直 接 在 硬件 中 支持 原子 操作 '。 

练习 3.46 ”假定 我 们 用 正文 中 所 示 的 常规 过 程 实现 Lest-and-set!， 没 有 企图 使 这 一 
操作 原子 化 。 请 画 出 一 个 像 图 3-29 那 样 的 时 序 图 ， 说 明 如 果 允 许 两 个 进程 同时 访问 互 斥 元 ， 
这 个 互 斥 元 实现 就 会 失败 。 

练习 3.47 (大 小 为 n) 的 信号 量 是 一 种 推广 的 互 斥 元 。 像 互 斥 元 一 样 ， 信 和 号 量 也 支持 获 
取 和 释放 操作 ， 但 更 一 般 些 ， 它 允许 同时 有 最 多 “个 进程 获取 。 另 外 更 多 的 获取 有 关 信 和 号 量 的 
进程 就 必须 等 待 释放 操作 。 请 基于 下 述 功能 实现 信号 量 : 

a) 基于 互 斥 元 。 

b) 基于 原子 的 test -and-set! 操 作 。 


死 锁 

现在 已 经 看 了 可 以 如 何 实现 串 行 化 ， 但 也 应 该 看 到 ， 即 使 采用 了 上 面 给 出 的 过 程 seria- 
lized-exchange， 在 账户 交换 问题 里 还 存在 一 个 麻烦 。 现 在 设想 Peter 企 图 去 交换 账户 al 
和 a2， 同 时 Paul 并 发 地 企图 去 交换 a2 和 al。 假 定 Peter 的 进程 到 达 这 样 一 点 ， 此 时 它 已 经 进 
入 了 保护 al 的 串 行 化 进程 ， 而 正好 在 此 之 后 ，Paul 的 进程 也 进入 了 保护 a2 的 串 行 化 进程 。 现 
在 Peter 已 经 无 法 继续 前 进 了 〈 因 为 无 法 进入 保护 a2 的 串 行 化 进程 ) ， 他 需要 一 直 等 到 Paul 退 
出 保护 a2 的 串 行 化 进程 。 与 Peter 的 情况 类 似 ，Paul 也 无 法 前 进 了 ， 他 需要 等 到 Peter 退 出 保 
护 al 的 串 行 化 进程 。 这 样 每 个 进程 都 要 无 穷 无 尽 地 等 待 下 去 ， 等 着 另 一 个 进程 的 活动 ， 这 种 
情况 就 称 为 死 锁 。 在 那些 提供 了 对 于 多 种 共享 资源 的 并 发 访问 的 系统 里 ， 总 是 存在 着 死 锁 的 
危险 。 

避免 死 锁 的 一 种 方式 ， 是 首先 给 每 个 账户 确定 一 个 唯一 的 标识 编号 ， 并 且 需 要 重 写 
serialized-exchange, 使 每 个 进程 总 是 首先 设法 进入 保护 具有 较 低 标识 编号 的 账户 的 过 
程 。 这 种 方式 对 于 交换 问题 可 行 ， 但 是 还 存在 着 另外 一 些 情况 ， 在 那里 需要 更 复杂 的 死 锁 避 








74 在 采用 时 间 片 模型 的 单 处 理 器 的 MIT Scheme 里 ，test-and-set! 可 以 实现 如 下 ; 
(define (test-and-set! cell) 
(without-interrupts 
(lambda () 
(if (car cell) 
true 
(begin (set-car! cell true) 
false))))) 


without-interrupts 在 其 参数 的 执行 期 间 禁 止 时 间 片 中 断 。 

”这 种 指令 有 许多 变形 ， 包 括 检查 与 设置 ， 检 查 与 清除 ， 交 换 ， 比 较 与 交换 ， 装 载 并 保存 ， 条 件 存储 等 等 。 它 
们 的 设计 必须 与 机 器 的 处 理 器 一 存储 接口 相 匹配 。 这 里 出 现 的 一 个 问题 是 ， 如 果 两 个 处 理 器 恰好 完全 同时 试 
图 获取 一 个 资源 ， 通 过 使 用 这 种 指令 可 以 确定 此 时 发 生 什么 事情 。 这 就 要 求 有 某 种 裁判 机 制 ， 以 确定 哪个 进 
程 将 得 到 控制 。 这 种 机 制 称 为 一 个 仲裁 器 ， 它 通常 借助 于 某 个 硬件 设备 工作 。 遗 憾 的 是 ， 可 以 证 明 ， 我 们 无 
法 物理 地 构造 出 一 个 在 100% 时 间 里 都 能 工作 的 公平 的 仲裁 器 ， 除 非 允 许 这 个 仲裁 器 用 任意 长 的 时 间 去 做 出 
决定 。 这 种 本 质 现象 早 就 由 14 世 纪 法 国 哲学 家 Jean Buridan 在 他 关于 亚 里 士 多 德 的 《 论 天 》 的 评注 中 观察 到 
了 。Buridan 论 述说 , 将 一 条 完全 理性 的 狗 放 在 具有 同样 吸引 力 的 两 处 食物 来 源 之 间 , 这 条 狗 将 会 因 饥 饿 而 死 ， 
因为 它 没 有 能 力 决定 首先 往 哪 一 边 去 。 
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免 技术 。 在 另外 一 些 地 方 则 根本 无 法 避免 死 锁 (参见 练习 3.48 和 练习 3.49) 17°, 

练习 3.48 ”请 从 细节 上 解释 ， 为 什么 上 面 提 出 的 避免 死 锁 方法 例如， 首先 对 账户 编号 ， 
并 使 进程 先 试图 获取 编号 较 小 的 账户 ) 能 够 避免 交换 问题 中 的 死 锁 。 请 结合 这 一 思想 重 写 过 
fiserialized-exchange (你 还 需要 修改 make-account ， 使 创建 出 的 每 个 账户 有 一 个 
编号 ， 可 以 通过 发 送 适 当 消 息 的 方式 访问 该 编号 )。 

练习 3.49 ”请 设法 描述 一 种 情形 ， 使 上 述 的 避免 死 锁 机 制 在 这 种 情况 中 不 能 正常 工作 
(提示 ， 在 交换 问题 中 ， 每 个 进程 都 知道 它 下 面 需要 访问 的 账户 是 哪些 。 请 考虑 一 种 情形 ， 其 
中 进程 必须 在 访问 了 某 些 共享 资源 之 后 ， 才 能 确定 它 是 否 还 需要 访问 其 他 的 共享 资源 。) 

并 发 性 、 时 间 和 通信 

我 们 已 经 看 到 ， 在 并 发 系统 的 程序 设计 中 ， 为 什么 需要 去 控制 不 同 进程 访问 共享 变量 的 
事件 发 生 的 顺序 ， 也 看 到 了 如 何 通 过 审慎 地 使 用 串 行 化 去 完成 这 方面 的 控制 。 但 是 并 发 性 的 
基本 问题 比 这 些 更 深刻 ， 因 为 ， 从 一 种 更 基本 的 观点 看 , “共享 状态 ”究竟 意味 着 什么 ， 这 件 
事 常常 并 不 清楚 。 

像 test-and-set! 这 样 的 机 制 ， 都 要 求 进程 能 在 任意 时 刻 去 检查 一 个 全 局 性 的 共享 标志 。 
在 实现 新 型 高 速 处 理 器 时 ， 由 于 在 那里 需要 采用 各 种 优化 技术 ， 例 如 流水 线 和 缓存 ， 因 此 就 不 
可 能 在 每 个 时 刻 都 保持 存储 器 内 容 的 一 致 性 ， 此 时 完成 上 述 的 检查 将 很 有 问题 ， 也 必然 非常 低 
效 。 正 因为 这 样 ， 在 当前 的 多 处 理 器 系统 里 ， 串 行 化 方式 正在 被 并 发 控制 的 各 种 新 技术 取代 "7。 

共享 变量 的 各 方面 问题 也 出 现在 大 型 的 分 布 式 系统 里 。 例 如 ， 设 想 一 个 分 布 式 的 银行 系 
统 ， 其 中 的 各 个 分 支 银行 维护 着 银行 余额 的 局 部 值 ， 并 且 周 期 性 地 将 这 些 值 与 其 他 分 支 所 维 
护 的 值 相互 比较 。 在 这 样 的 系统 里 ,，“ 账 户 余 额 ” 的 值 可 能 是 不 确定 的 ， 除 非 刚刚 做 完了 一 次 
同步 。 如 果 Peter 在 他 与 Paul 共 用 的 一 个 账户 里 存 入 了 一 些 钱 ,什么 时 候 才 能 说 这 个 账户 的 余 
额 已 经 改变 了 一 一 是 在 本 地 的 分 支 银 行 修改 了 余额 之 后 ， 还 是 在 同步 之 后 ?进一步 说 ， 如 果 
Paul 从 另 一 分 支 银行 访问 这 个 账户 ， 如 何在 这 一 银行 系统 里 对 这 种 行为 的 “正确 性 ”确定 合 
理 的 约束 ? 在 这 里 ， 能 考虑 的 可 能 就 是 保持 Peter 和 Paul 的 各 自行 为 ， 以 及 保证 刚刚 完成 同步 
时 刻 的 账户 “状态 ”正确 性 。 有 关 “ 真 正 ” 的 账户 余额 或 者 几 次 同步 之 间 事 件 发 生 的 顺序 ， 
可 能 就 是 完全 无 关 紧 要 ， 而 且 也 没有 意义 的 。 

这 里 的 基本 现象 是 不 同 进程 之 间 的 同步 ， 建 立 起 共享 状态 ， 或 迫使 进程 之 间 通 信 所 产生 
的 事件 按照 某 种 特定 的 顺序 进行 。 从 本 质 上 看 ， 在 并 发 控制 中 ， 任 何 时 间 概 念 都 必然 与 通信 
有 内 在 的 密切 联系 ”。 有 意思 的 是 ， 时 间 与 通信 之 间 的 这 种 联系 也 出 现在 相对 论 里 ， 在 那里 


176 Havender (1968) 提出 的 避免 死 锁 的 一 般 性 技术 是 枚 举 共享 资源 ， 按 顺序 去 获取 它们 。 对 于 不 可 能 避免 的 死 
锁 情 况 ， 就 要 求 一 种 死 锁 恢复 方法 ， 要 求 进程 能 “退出 ” 死 锁 状 态 并 重新 尝试 运行 。 死 锁 恢 复 机 制 广泛 采用 
于 数据 库 管理 系统 中 ， 有 关 这 一 问题 的 细节 参见 Gray and Reuter 1993, 

中 代替 串 行 化 的 另 一 种 方式 是 屏障 同步 。 程 序 员 可 以 允许 并 发 进程 随意 地 执行 ， 但 需要 建立 起 一 些 同步 点 
(“屏障 ")， 任 何 进程 在 所 有 进程 没有 到 达 这 里 之 前 都 不 能 穿 过 它 。 现 代 处 理 器 提供 了 一 些 机 器 指令 ， 使 程序 
员 可 以 在 需要 统一 性 的 位 置 上 建立 同步 点 。 例 如 ，PowerPC 就 提供 了 两 条 为 此 目的 的 指令 SYNC 和 EIEIO ( 强 
制 输入 输出 的 按 序 执行 ，Enforced In-order Execution of Input/Output) 。 

B 该 观点 看 起 来 有 些 怪 ， 但 确实 存在 采用 这 种 方式 的 系统 。 例 如 ， 信 用 卡 账户 的 跨国 付款 通常 采用 按 国家 结 清 
的 方式 ， 在 不 同 国家 的 付款 则 采用 周期 性 平 账 的 方式 。 这 样 ， 一 个 账户 在 不 同 国家 里 的 余额 就 完全 可 能 不 同 。 

5? 对 于 分 布 式 系 统 而 言 ， 这 种 看 法 由 Lamport 提 出 (1978) ， 他 说 明了 如 何 通过 通信 建立 一 种 “全 局 时 钟 "， 通 
过 它 就 可 以 在 分 布 式 系统 里 建立 起 事件 之 间 的 秩序 。 


220 PIE RIL, HERKS 


的 光速 (可 能 用 于 同步 事件 的 最 快 信号 ) 是 与 时 间 和 空间 有 关 的 基本 常量 。 在 处 理 时 间 和 状 
态 时 ， 我 们 在 计算 模型 领域 所 遭遇 的 复杂 性 ， 事 实 上 ， 可 能 就 是 物理 世界 中 最 基本 的 复杂 性 
的 一 种 反映 。 


3.5 iit 


我 们 已 经 对 采用 赋值 作为 工具 做 模拟 有 了 很 好 的 理解 ， 也 看 到 了 赋值 所 带 来 的 复杂 问题 。 
现在 是 提出 下 面 问题 的 时 候 了 : 我 们 能 否 走 另 一 条 路 ， 以 便 避 免 这 些 问 题 中 的 某 些 东西 。 在 
这 一 节 里 ， 我 们 将 基于 一 种 称 为 流 的 数据 结构 ， 探 索 对 状态 进行 模拟 的 另 一 条 途径 。 正 如 下 
面 将 要 看 到 的 ， 流 可 能 缓和 状态 模拟 中 的 复杂 性 。 

让 我 们 先 退 回 一 步 ， 重 新 考虑 一 下 有 关 的 复杂 性 来 自 何 处 。 在 试图 模拟 真实 世界 中 的 现 
象 时 ， 我 们 做 了 一 些 明显 合理 的 决策 : 用 具有 局 部 状态 的 计算 对 象 去 模拟 真实 世界 里 具有 局 
部 状态 的 对 象 ， 用 计算 机 里 面 随 着 时 间 的 变化 去 表示 真实 世界 里 随 着 时 间 的 变化 ， 在 计算 机 
里 ， 被 模拟 对 象 随 着 时 间 的 变化 是 通过 对 那些 模拟 对 象 中 局 部 变量 的 赋值 实现 的 。 

难道 还 有 什么 其 他 的 办 法 吗 ? 我 们 能 够 避免 让 计算 机 里 的 时 间 去 对 应 于 真实 世界 里 的 时 
间 吗 ? 我 们 必须 让 相应 的 模型 随 着 时 间 变 化 ， 以 便 去 模拟 真实 世界 中 的 现象 吗 ? 如 果 以 数学 
函数 的 方式 考虑 这 些 问 题 ， 我 们 可 以 将 一 个 量 x 随 着 时 间 而 变化 的 行为 ， 描 述 为 一 个 时 间 的 函 
数 x(D)。 如 果 我 们 想 集中 关注 的 是 一 个 个 时 刻 的 xz， 那么 就 可 以 将 它 看 作 一 个 变化 着 的 量 。 然 
而 ， 如 果 我 们 关注 的 是 这 些 值 的 整个 时 间 史 ， 那 么 就 不 需要 强调 其 中 的 变化 一 这 一 国 数 本 
PHAR. 

如 果 用 离散 的 步 长 去 度量 时 间 ， 那 么 我 们 就 可 以 用 一 个 〈 可 能 无 穷 的 ) 序列 去 模拟 一 个 
时 间 函 数 。 在 这 一 节 里 ,我们 将 看 到 如 何 用 这 样 的 序列 去 模拟 变化 ， 以 这 种 序列 表示 被 模拟 
系统 随 着 时 间 变 化 的 历史 。 为 了 做 到 这 些 ， 我 们 需要 引进 一 种 称 为 流 的 新 数据 结构 。 从 抽象 
的 观点 看 ， 一 个 流 也 就 是 一 个 序列 。 然 而 我 们 发 现 ， 把 流 直接 表示 为 表 〈 像 在 2.2.1 节 那样 ) 
并 不 能 完全 揭示 流 处 理 的 威力 。 作 为 一 种 替代 形式 ， 我 们 将 要 引进 一 种 延 时 求 值 的 技术 ， 它 
将 使 我 们 能 够 用 流 去 表示 非常 长 的 其 至 是 无 穷 的 ) 序列 。 

流 处 理 使 我 们 可 以 模拟 一 些 包含 状态 的 系统 ， 但 却 不 需要 利用 赋值 或 者 变动 数据 。 这 一 
情况 会 产生 一 些 重 要 的 结果 ， 既 有 理论 的 也 有 实际 的 。 因 为 我 们 可 以 构造 出 一 些 模型 ， 它 们 
能 避免 由 于 引进 了 赋值 而 带 来 的 内 在 缺陷 。 但 是 ， 流 框架 也 带 来 它 自己 的 困难 。 有 关 哪 种 建 
模 技术 能 够 导致 更 模块 化 、 更 容易 维护 的 系统 的 问题 ， 仍 然 不 会 有 最 后 的 结论 。 


3.5.1 流 作 为 延 时 的 表 


正如 我 们 已 经 在 2.2.3 节 里 看 到 的 ， 序 列 可 以 作为 组 合 程序 的 一 种 标准 界面 。 我 们 在 前 面 已 
经 构造 起 了 一 些 对 序列 进行 操作 的 功能 强大 的 抽象 机 制 ， 例 如 map、filter 和 accumulate， 
它们 以 简洁 优雅 的 方式 抓 住 了 范围 非常 广泛 的 许多 操作 的 共同 特征 。 

不 幸 的 是 ， 如 果 我 们 将 序列 表示 为 表 ， 获 得 这 些 优雅 结果 就 需要 付出 严重 低 效 的 代价 ， 
无 论 是 在 计算 的 时 间 方 面 还 是 在 空间 方面 。 当 我 们 将 对 于 序列 的 操作 表示 为 对 表 的 变换 时 ， 

80 物理 学 里 有 时 也 采用 了 这 种 观点 ， 引 进 粒子 的 “世界 线 ”(world lines) 作为 对 运动 做 推理 的 一 种 工具 。 我 们 


也 已 经 提 到 过 (在 2.2.3 节 里 ) ， 这 是 考虑 信号 处 理 系统 的 一 种 很 自然 的 方式 。 下 面 将 在 3.5.3 节 里 把 流 应 用 于 
信号 处 理 。 
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在 工作 过 程 中 的 每 一 步 ， 有 关 程 序 都 必须 去 构造 和 复制 各 种 数据 结构 (它们 可 能 规模 巨大 ) 。 
为 了 说 明 事情 确实 如 此 ， 我 们 来 比较 两 个 程序 ， 它 们 都 计算 出 一 个 区 间 里 的 素数 之 和 。 
其 中 第 一 个 程序 用 标准 的 进 代 风格 写 出 ?” ; 
(define (sum-primes a b) 
(define (iter count accum) 
(cond ((> count b) accum) 
( (prime? count) (iter (+ count 1) (+ count accum) ) ) 
(else (iter (+ count 1) accum)))) 
(iter a 0)) 


第 二 个 程序 完成 同样 的 计算 ， 其 中 使 用 了 2.2.3 节 中 的 序列 操作 : 
(define (sum-primes a b) 
(accumulate + 
0 


(filter prime? (enumerate-interval a b)))) 


在 执行 计算 时 ， 第 一 个 程序 里 只 需要 维持 正在 累积 的 和 。 与 此 相对 比 的 是 ， 只 有 等 
enumerate-interval 构 造 完 这 一 区 间 里 所 有 整数 的 表 之 后 ， 第 二 个 程序 里 的 过 滤器 才能 
开始 做 自己 的 检查 工作 。 这 一 过 滤器 将 产生 出 另 一 个 表 ， 在 将 这 个 表 挤 压 到 一 起 得 到 和 数 之 
前 ， 还 需要 将 这 个 表 传 递 给 accumulate。 在 第 一 个 程序 里 ， 完 全 不 需要 这 么 大 的 中 间 存 储 ， 
因为 我 们 可 以 认为 那里 是 在 递增 地 枚 举 这 个 区 间 ， 产 生出 一 个 素数 后 就 将 它 加 入 和 数 之 中 。 

如 果 我 们 采用 下 面 的 表达 式 ， 通 过 序列 方式 去 计算 从 10 000 到 1 000 000 的 区 间 里 的 第 二 
个 素数 ， 这 种 低 效 情况 就 表现 得 太 明 显 了 : 


(car (cdr (filter prime? 
(enumerate-interval 10000 1000000) ))) 


这 一 表达 式 确实 能 找 出 第 二 个 素数 ， 但 计算 的 开销 则 令 人 完全 无 法 容忍 。 这 里 首先 构造 出 一 
个 包含 了 差不多 一 百 万 个 整数 的 表 ， 通 过 过 滤 整 个 表 的 方式 去 检查 每 个 元 素 是 否 为 素数 ， 而 
后 抛弃 掉 几 乎 所 有 的 结果 。 在 更 传统 的 程序 设计 风格 中 ， 我 们 完全 可 能 交错 进行 枚 举 和 过 滤 ， 
并 在 找到 第 二 个 素数 时 立即 停 下 来 。 

流 是 一 种 非常 巧妙 的 想法 ， 使 我 们 可 能 利用 各 种 序列 操作 ， 但 又 不 会 带 来 将 序列 作为 表 
去 操作 而 引起 的 代价 。 利 用 流 结构 ， 我 们 能 得 到 这 两 个 世界 里 最 好 的 东西 : 如 此 形成 的 程序 
可 以 像 序列 操作 那么 优雅 ， 同 时 又 能 得 到 递增 计算 的 效率 。 这 里 的 基本 想法 就 是 做 出 一 种 安 
排 ， 只 是 部 分 地 构造 出 流 的 结构 ， 并 将 这 样 的 部 分 结构 送 给 使 用 流 的 程序 。 如 果 使 用 者 需要 
访问 这 个 流 的 尚未 构造 出 的 那个 部 分 ， 那 么 这 个 流 就 会 自动 地 继续 构造 下 去 ， 但 是 只 做 出 足 
够 满足 当时 需要 的 那 一 部 分 。 这 一 做 法 造成 了 一 种 假象 ， 就 好 像 整 个 流 都 存在 着 一 样 。 换 名 
话说 ， 虽 然 下 面 将 要 写 出 各 个 程序 都 像 是 在 处 理 完 整 的 序列 ， 但 我 们 将 要 设计 出 流 的 一 种 实 
现 ， 使 得 流 的 构造 和 它 的 使 用 能 够 交错 进行 ， 而 这 种 交错 又 是 完全 透明 的 。 

从 表面 上 看 ， 流 也 就 是 表 ， 但 是 对 它们 进行 操作 的 过 程 的 名 字 不 同 。 在 这 里 有 构造 函数 
cons-stream， 还 有 两 个 选择 函数 stream-car 和 stream-cdr， 它 们 满足 如 下 的 约束 条 件 : 

(stream-car (cons-stream x y))=x 


(stream-cdr (cons-stream x y))=y 


| 假定 已 经 有 谓词 prime? (例如 像 1.2.6 节 里 那样 定义 )， 用 于 检查 一 个 数 是 否 为 素数 。 
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这 里 有 一 个 可 识别 的 对 象 the-empty-stream, 它 绝 不 会 是 任何 cons-stream 操 作 的 结果 ， 
这 个 对 象 可 以 用 谓词 stream-nul1? 判 断 '。 有 了 这 些 东 西 ， 我 们 就 可 以 像 构 造 和 使 用 表 一 
样 ， 去 构造 和 使 用 流 ， 用 流 去 表示 汇聚 在 一 个 序列 里 的 一 批 数 据 了 。 特 别 是 我 们 将 用 与 第 2 章 
的 各 种 表 操 作 (如 1ist-ref、map 和 for-each 等 ) 的 类 似 方式 去 构造 流入 : 
(define (stream-ref s n) 
(if (=n 0) 
(stream-car s) 


(stream-ref (stream-cdr s) (- n 1)))) 


(define (stream-map proc s) 
(if (stream-null? s) 
the-empty-stream 
(cons-stream (proc (stream-car s) ) 


(stream-map proc (stream-cdr s))))) 


(define (stream-for-each proc s) 
(if (stream-null? s) 
*done 
(begin (proc (stream-car s) ) 


(stream-for-each proc (stream-cdr s))))) 


stream-for-each 对 于 考察 一 个 流 非常 有 用 : 
(define (display-stream S) 


(stream-for-each display-line s)) 

(define (display-line x) 

(newline) 
(display x)) 

为 了 使 流 的 实现 能 自动 地 、 透 明 地 完成 一 个 流 的 构造 与 使 用 的 交错 进行 ， 我 们 需要 做 出 
一 种 安排 ,使 得 对 于 流 的 car 的 求 值 要 等 到 真正 通过 过 程 stream-cdr 去 访问 它 的 时 候 再 做 ， 
而 不 是 在 通过 cons -stream 构 造 流 的 时 候 做 。 这 一 实现 选择 使 我 们 回忆 起 2.1.2 节 有 关 有 理 
数 的 讨论 。 在 那里 曾经 提出 ， 我 们 可 以 选择 有 理 数 的 实现 方式 ， 其 中 简化 分 子 与 分 母 的 工作 
可 以 在 构造 的 时 候 完 成 ， 也 可 以 在 选取 的 时 候 完 成 。 有 理 数 的 这 样 两 种 实现 将 产生 出 同一 个 
数据 抽象 ， 但 是 不 同 的 选择 可 能 对 效率 产生 影响 。 在 流 和 常规 表 之 间 也 存在 着 类 似 的 关系 。 
作为 一 种 数据 抽象 ， 流 与 表 完 全 一 样 。 它 们 的 不 同 点 就 在 于 元 素 的 求 值 时 间 。 对 于 常规 的 表 ， 
其 car 和 car 都 是 在 构造 时 求 值 ， 而 对 于 流 ， 其 cdr 则 是 在 选取 的 时 候 才 去 求 值 。 

我 们 的 流 实现 将 基于 一 种 称 为 lelay 的 特殊 形式 ， 对 于 (delay <exp>) 的 求 值 将 不 对 
表达 式 <exp> 求 值 ， 而 是 返回 一 个 称 为 廷 时 对 象 的 对 象 ， 它 可 以 看 作 是 对 在 未 来 的 某 个 时 间 求 
值 <exp> 的 允诺 。 和 delay 一 起 的 还 有 一 个 称 为 force 的 过 程 ， 它 以 一 个 延 时 对 象 为 参数 ， 执 
行 相应 的 求 值 工作 。 从 效果 上 看 ， 也 就 是 迫使 delay 完 成 它 所 允诺 的 求 值 。 下 面 将 看 到 
delay 和 force 可 以 如 何 实现 ， 现 在 我 们 先 用 它们 来 构造 流 。 


182 在 MIT 实 现 里 ，the-empty-stream 就 等 同 于 空 表 '0， 而 stream-nul1? 也 就 是 null1?。 

13 这 可 能 使 你 感到 有 些 困惑 。 我 们 可 以 对 流 和 表 定 义 这 些 类 似 过 程 ， 正 说 明 现 在 还 缺乏 某 种 更 基础 的 抽象 。 遗 
憾 的 是 ， 为 了 探索 这 种 抽象 ， 我 们 需要 对 求 值 过 程 做 更 细致 的 控制 ， 而 这 种 控制 目前 还 做 不 到 。 我 们 将 在 
3.5.4 节 里 进一步 讨论 这 个 问题 ， 在 4.2 节 将 开发 出 男 一 种 框架 ,统一 起 表 和 流 。 
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cons-stream 是 一 个 特殊 形式 ， 其 定义 将 使 


(cons-stream <a> <b>) 


等 价 于 


(cons <a> (delay <b>)) 


这 就 表示 我 们 将 用 序 对 来 构造 流 。 不 过 ， 在 这 里 并 不 是 将 流 的 后 面部 分 放 进 序 对 的 cdr， 而 
是 把 如 果 需 要 就 可 以 计算 出 有 关 部 分 的 允诺 放 在 那里 。 现 在 ，stream-car 和 stream-cdr 
已 经 可 以 定义 为 如 下 的 过 程 了 : 

(define (stream-car stream) (car stream)) 


(define (stream-cdr stream) (force (cdr stream) ) ) 


stream-car 选 取 有 关 序 对 的 car 部 分 ，stream-cdr 选 取 有 关 序 对 的 cdr 部 分 ， 并 求 值 这 
里 的 延 时 表达 式 ， 以 获得 这 个 流 的 后 面部 分 呀 。 

流 实现 的 行为 方式 

要 想 看 看 上 述 实现 的 行为 方式 ， 让 我 们 先 来 分 析 一 下 在 上 面 已 经 看 到 的 那个 “ 令 人 完全 
无 法 容忍 ”的 素数 计算 ， 但 现在 是 用 流 的 方式 重新 写 出 

(stream-car 

(stream-cdr 


(stream-filter prime? 
(stream-enumerate-interval 10000 1000000)))) 


我 们 将 会 看 到 它 确实 能 有 效 工 作 。 
计算 开始 于 对 参数 10 000 和 1 000 000 调 用 stream-enumerate-interval。 这 里 的 
stream-enumerate-interval 是 类 似 于 enumerate-interval ( 见 2.2.3 节 ) 的 流 : 


(define (stream-enumerate-interval low high) 
(if (> low high) 
the-empty-stream 
(cons-stream 
low 


(stream-enumerate-interval (+ low 1) high)))) 


这 样 ， 由 stream-enumerate-interval 返 回 的 结果 就 是 通过 cons-stream 形 成 的 !85 
(cons 10000 
(delay (stream-enumerate-interval 10001 1000000))) 
也 就 是 说 ，stream-enumerate-interval 返 回 一 个 流 ， 其 car 是 10 000， 而 其 car 是 一 
个 允诺 ， 其 意 为 如 果 需 要 ， 就 能 榴 举 出 这 个 区 间 里 更 多 的 东西 。 这 个 流 被 送 去 过 滤 出 素数 ， 
用 的 是 与 过 程 Eilter 〈 见 2.2.3 节 ) 类 似 的 针对 流 的 过 程 : 


(define (stream-filter pred stream) 


4 虽然 stream-car 和 stream-cdr 都 可 以 定义 为 普通 过 程 ， 但 是 cons-stream 却 必须 是 特殊 形式 。 如 果 
cons-stream 也 是 过 程 ， 那 么 按照 我 们 的 求 值 模型 ， 对 (cons-stream <a> <b>) 的 求 值 就 会 自动 地 对 
<b> 的 求 值 ， 而 这 是 我 们 不 希望 的 事情 。 同 样 ，delay 也 必须 是 特殊 形式 ， 而 force 可 以 是 常规 过 程 。 

SS 在 这 里 ， 实 际 出 现在 延 时 表达 式 里 的 并 不 是 写 出 的 数值 ， 实 际 出 现 的 是 原来 的 表达 式 ， 有 关 变 量 在 一 个 环境 
里 约束 到 适当 的 数值 。 举 例 说 ，( 十 low 1) 实际 出 现在 写 10 001 的 地 方 ， 其 中 low 约 束 到 10 000, 
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(cond ((stream-null? stream) the-empty-stream) 
( (pred (stream-car stream) ) 
(cons-stream (stream-car stream) 
(stream-filter pred 
(stream-cdr stream) ) ) ) 


(else (stream-filter pred (stream-cdr stream) )))) 


stream-filter 检 查 流 的 stream-car (也 就 是 当时 那个 序 对 的 car， 此 时 就 是 10 000), 
因为 这 个 数 并 非 素 数 ，stream-£filter 需 要 去 进一步 去 检查 它 的 输入 流 的 stream-cdr。 
这 里 对 于 stream-cdr 的 调用 迫使 系统 对 延 时 的 stream-enumerate-interval 求 值 ， 这 
一 次 它 返 回 : 
(cons 10001 
(delay (stream-enumerate-interval 10002 1000000))) 

stream-filter 现 在 关注 的 是 这 个 流 的 stream-car， 也 就 是 10 001， 它 看 到 这 个 数 也 不 是 
素数 ， 因 此 就 再 次 迫使 求 值 stream-cdr， 并 如 此 进行 下 去 ， 直 至 stream-enumerate- 
interval 产 生出 素数 10 007。 这 时 stream-filter 根 据 其 定义 返回 : 


(cons-stream (stream-car stream) 


(stream-filter pred (stream-cdr stream))) 


这 时 它 也 就 是 : 
(cons 10007 
(delay 
(stream-filter 
prime? 
(cons 10008 
(delay 
(stream-enumerate-interval 10009 
1000000)))))) 


这 一 结果 现在 被 送 给 我 们 原先 的 表达 式 里 的 stream-cdr， 又 迫使 延 时 的 stzeam-Eiltez 
求 值 ， 它 转 而 去 迫使 延 时 的 stream-enumerate-interval 的 求 值 ， 直 到 它 找 到 了 下 一 个 
素数 ， 在 这 里 就 是 10 009。 最 后 ， 这 个 结果 被 送 给 原来 表达 式 的 stream- car: 
(cons 10009 
(delay 
(stream-filter 
prime? 
(cons 10010 
(delay 
(stream-enumerate-interval 10011 
1000000)))))) 


stream-car 返 回 10 009， 整 个 计算 结束 。 在 此 期 间 只 检查 了 为 找到 第 二 个 素数 所 必须 检查 
的 那些 数 是 否 为 素数 ， 对 有 关 区 间 的 枚 举 也 只 进行 到 为 满足 素数 过 滤器 的 需要 所 必须 做 的 
地 方 。 

一 般 而 言 ， 可 以 将 延 时 求 值 看 作 一 种 “由 需要 驱动 ”的 程序 设计 ， 其 中 流 处 理 的 每 个 阶 
段 都 仅仅 活动 到 足够 满足 下 一 阶段 需要 的 程度 。 我 们 已 经 完成 的 工作 ， 也 就 是 松弛 了 计算 中 
事件 发 生 的 实际 顺序 与 过 程 的 表面 结构 的 关系 。 这 样 写 出 的 过 程 就 像 是 这 个 流 已 经 “不 折 不 
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扣 地 完全 ” 放 在 那里 ， 而 实际 上 ， 这 一 计算 的 执行 是 逐步 进行 的 ， 就 像 传统 程序 设计 一 样 。 
delay 和 force 的 实现 
虽然 delay 和 force 貌 似 很 有 魔力 的 操作 ， 其 实 它们 的 实现 却 真是 相当 直截了当 的 。 
delay 必 须 包 装 起 一 个 表达 式 ， 使 它 可 以 在 以 后 根据 需要 去 求 值 。 我 们 可 以 简单 地 通过 将 这 
一 表达 式 作为 一 个 过 程 的 体 来 做 到 这 一 点 。 下 面 这 样 的 特殊 形式 aelay: 
(delay <exp>) 
实际 上 不 过 是 在 下 面 形式 的 外 面包 装 起 一 层 语法 糖衣 : 
(lambda () <exp>) 
而 force 也 就 是 简单 地 调用 由 delay 产 生 的 那 种 (无 参 ) 过 程 ， 因 此 ， 可 以 将 force 实 现 为 
一 个 过 程 : 


(define (force delayed-object) 
(delayed-object)) 


这 种 实现 已 经 足以 使 delay 和 force 按 照 上 面 所 说 的 方式 工作 了 。 但 是 ， 在 这 里 还 存在 
一 种 很 重要 的 优化 ， 可 以 将 它 包括 进来 。 在 许多 应 用 中 ， 我 们 都 需要 多 次 地 迫使 同一 个 延 时 
对 象 求 值 (参见 练习 3.57)。 解 决 这 种 问题 的 办 法 就 是 设法 采用 一 种 构造 延 时 对 象 的 方法 ,使 
它们 在 第 一 次 被 迫 求 值 之 后 能 保存 起 求 出 的 值 。 随 后 再 次 遇 到 被 迫 求 值 时 ， 这 些 对 象 就 可 以 
直接 返回 自己 保存 的 值 ， 而 不 必 重 复 进行 计算 。 换 句 话说 ,我们 可 以 将 Gelay 实 现 为 一 种 特 
殊 的 记忆 性 过 程 ， 类 似 于 练习 3.27 中 所 描述 的 。 做 到 这 一 点 的 一 种 方法 是 采用 下 面 过 程 ， 它 
以 一 个 (无 参 ) 过 程 为 参数 ， 返 回 该 过 程 的 记忆 性 版 本 。 这 种 记忆 性 过 程 在 第 一 次 运行 时 将 
计算 出 的 结果 保存 起 来 。 在 随后 再 遇 到 求 值 时 ， 它 就 简单 返回 已 有 的 结果 : 

(define (memo-proc proc) 

(let ((already-run? false) (result false) ) 
(lambda () 
(if (not already-run?) 
(begin (set! result (proc) ) 
(set! already-run? true) 


result) 
result) ))) 


此 后 就 可 以 设法 定义 aelay， 使 得 (delay <exp>) 等 价 于 


(memo-proc (lambda () <exp>) ) 


而 force 的 定义 与 前 面 完 全 一 样 %。 
练习 3.50 ”请 完成 下 面 的 定义 ， 这 个 过 程 是 stream-map 的 推广 ， 它 允许 过 程 带 有 多 个 
参数 ， 类 似 于 2.2.3 节 的 脚注 78。 


(define (stream-map proc . argstreams) 


186 Be TEPEDE Zh, ARS ABET LASER. ERRA SK AER AR BEE ET RAL. ZEAlgol 60 
语言 里 ， 按 名 调用 参数 机 制 是 一 种 内 在 特征 。 利 用 该 机 制 实现 流 的 问题 首先 由 Landin (1965) 所 描述 。 
Friedman and Wise (1976) 将 针对 流 的 延 时 求 值 引进 了 Lisp。 在 他 们 的 实现 里 ，cons 总 延 时 求 值 它 的 各 个 
参数 ， 因 此 表 也 就 自动 地 成 为 了 流 。 记 忆 性 过 程 也 称 为 按 需 调用 。Algol 社 团 更 愿意 称 我 们 原来 的 延 时 对 象 为 
按 名 调用 槽 ， 而 称 后 面 的 优化 版 本 为 按 需 调用 槽 。 
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(if (<??> (car argstreams) ) 
the-empty-stream 
(<??> 
(apply proc (map <??> argstreams) ) 
(apply stream-map 


(cons proc (map <??> argstreams) ))))) 


练习 3.51 ”为 了 更 仔细 地 观察 延 时 求 值 的 情况 ， 我 们 将 使 用 下 面 过程 ， 它 在 打印 其 参数 
之 后 简单 地 返回 它 : 


(define (show x) 
(display-line x) 


sc) 
解释 器 对 于 顺序 地 求 值 下 面 各 个 表达 式 的 响应 是 什么 2? 
(define x (stream-map show (stream-enumerate-interval 0 10))) 
(stream-ref x 5) 


(stream-ref x 7) 


练习 3.52 考虑 下 面 的 表达 式 序列 : 
(define sum 0) 


(define (accum x) 
(set! sum (+ x sum)) 


sum) 


(define seq (stream-map accum (stream-enumerate-interval 1 20))) 
(define y (stream-filter even? seq) ) 
(define z (stream-filter (lambda (x) (= (remainder x 5) 0)) 


seq) ) 
(stream-ref y 7) 
(display-stream z) 
在 上 面 每 个 表达 式 求 值 之 后 sum 的 值 是 什么 ” 求 值 其 中 的 stream-ref 和 display- 
stream 表 达 式 将 打印 出 什么 响应 ? 如 果 我 们 简单 地 将 (delay <exp>) 实现 为 (lambda () 
<exp>)， 而 不 使 用 memo-proc 所 提供 的 优化 ， 这 些 响 应 会 有 什么 不 同 吗 ?请 给 出 解释 。 


3.5.2 无 穷 流 


前 面 我 们 已 经 看 到 如 何 做 出 一 种 假象 ， 使 我 们 可 以 像 对 待 完整 的 实体 一 样 去 对 流 进行 各 
种 操作 ， 即 使 在 实际 上 只 计算 出 了 有 关 的 流 中 必须 访问 的 那 一 部 分 。 我 们 可 以 利用 这 种 技术 
有 效 地 将 序列 表示 为 流 ， 即 使 对 应 的 序列 非常 长 。 更 令 人 吃惊 的 是 ， 我 们 甚至 可 以 用 流 去 表 
示 无 穷 长 的 序列 。 例 如 ， 考 虑 下 面 有 关 正 整数 的 流 的 定义 : 





87 如 练习 3.51 和 练习 3.52 这 样 的 练习 ， 在 检查 我 们 对 于 delay 怎 样 工作 的 理解 方面 很 有 价值 。 在 另 一 方面 ， 让 
延 时 求 值 和 打印 混在 一 起 一 一 更 糟糕 的 是 ， 与 赋值 混在 一 起 一 一 也 是 特别 容易 迷惑 人 的 ， 因 此 在 传统 上 ， 计 
算 机 语言 课程 的 教师 常常 在 考试 里 用 本 节 里 这 样 问题 去 拷问 学 生 。 应 该 说 ， 写 出 依赖 于 这 类 狭 吃 细节 的 程序 
是 极其 丑陋 的 程序 设计 风格 。 流 处 理 的 部 分 威力 就 在 于 使 我 们 能 忽略 程序 中 各 个 事件 的 实际 发 生 顺 序 。 然 而 ， 
这 恰好 就 是 有 赋值 时 我 们 无 法 做 到 的 事情 ， 因 为 赋值 迫使 我 们 必须 去 考虑 时 间 和 变化 。 
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(define (integers-starting-from n) 
(cons-stream n (integers-starting-from (+ n 1)))) 


(define integers (integers-starting-from 1) ) 


这 确实 是 有 意义 的 ， 因 为 jntegers 将 是 一 个 序 对 ， 其 car 就 是 1， 而 其 cdr 是 产生 出 所 有 从 2 
开始 的 整数 的 允诺 。 这 是 一 个 无 穷 长 的 流 ， 但 在 任何 给 定时 刻 ， 我 们 都 只 检查 到 它 的 有 穷 部 
分 ， 因 此 我 们 的 程序 将 永远 也 不 会 知道 整个 的 无 穷 序 列 并 不 在 那里 。 

我 们 可 以 利用 integers 定 义 出 另 一 些 无 穷 流 ， 例 如 所 有 不 能 被 7 整除 的 整数 的 流 : 

(define (divisible? x y) (= (remainder x y) 0)) 

(define no-sevens 


(stream-filter (lambda (x) (not (divisible? x 7))) 
integers)) 


而 后 就 可 以 简单 地 通过 访问 这 个 流 的 元 素 的 方式 ， 找 出 不 能 被 7 整除 的 整数 : 
(stream-ref no-sevens 100) 
ALF 


就 像 可 以 定义 integezrs 一 样 ， 我 们 也 可 以 定义 斐 波 那 契 数 的 无 穷 流 : 
(define (fibgen a b) 


(cons-stream a (fibgen b (+ a b)))) 


(define fibs (fibgen 0 1)) 


这 样 定义 出 的 fibs 是 一 个 序 对 ， 其 car 是 0， 而 其 cdr 是 一 个 求 值 (fibgen 1 1) 的 允诺 。 
当 我 们 求 值 延 时 表达 式 (fibgen 1 1) 时 ， 它 又 将 产生 出 一 个 序 对 ， 其 caz 是 1， 而 其 cdar 
是 一 个 求 值 (fibgen 1 2) 的 一 个 允诺 ， 如 此 下 去 。 

要 想 看 一 个 更 令 人 激动 的 例子 ， 我 们 可 以 推广 前 面 的 no-sevens 实 例 ， 采 用 一 种 通常 称 
为 厄 拉 多 塞 筛 法 ， 构 造 出 素数 的 无 穷 流 。 为 此 我 们 将 从 整数 2 开始 ， 因 为 这 是 第 一 个 素数 。 
为 了 得 到 其 余 的 素数 ， 就 需要 从 其 余 的 整数 中 过 滤 掉 2 的 所 有 倍数 。 这 样 就 留 下 了 一 个 从 3 开 
始 的 流 ， 而 3 也 就 是 下 一 个 素数 。 现 在 我 们 再 从 这 个 流 的 后 面部 分 过 滤 掉 所 有 3 的 倍数 ， 这 样 
就 留 下 一 个 以 5 开头 的 流 ， 而 5 又 是 下 一 个 素数 。 我 们 可 以 这 样 继续 下 去 。 换 句 话说 ， 这 种 方 
法 就 是 通过 一 个 筛选 过 程 构造 出 各 个 素数 ， 该 过 程 可 描述 如 下 : 对 流 s 做 筷 选 就 是 形成 一 个 
流 ， 其 中 的 第 一 个 元 素 就 是 S 的 第 一 个 元 素 ， 得 到 其 随后 的 元 素 的 方式 是 从 S 的 其 余 元 素 中 过 
滤 掉 S 的 第 一 个 元 素 的 所 有 倍数 ， 而 后 再 对 得 到 的 结果 进行 筛选 。 这 一 过 程 很 容易 用 流 操作 
描述 : 

(define (sieve stream) 

(cons-stream 
(stream-car stream) 
(sieve (stream-filter 

(lambda (x) 


(not (divisible? x (stream-car stream) ) ) ) 
(stream-cdr stream) ) ) ) ) 


嵌 厄 拉 多 塞 是 公元 前 3 世纪 和 希腊 亚 力 山大 的 哲学 家 。 他 由 于 第 一 个 给 出 了 地 球 的 圆周 的 精确 估计 而 闻名 于 世 。 
他 的 计算 方式 是 观察 夏至 日 正午 影子 的 角度 。 虽 然 厄 拉 多 塞 筛 法 历史 如 此 之 悠久 ,但 仍 成 为 专用 硬件 “ 筛 ” 
的 基础 ， 直 至 最 近 都 一 直 是 确定 大 素数 存在 的 有 力 工具 。 直 到 20 世 纪 70 年 代 ， 这 类 方法 才 被 1.2.6 节 讨论 过 的 
概率 算法 的 成 果 所 超越 。 
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(define primes (sieve (integers-starting-from 2))) 


如 果 现 在 希望 找到 某 个 特定 素数 ， 只 需要 提出 以 下 要 求 : 
(stream-ref primes 50) 
233 


一 件 很 有 意思 的 事情 是 仔细 看 看 由 sieve 形 成 的 信号 处 理 系 统 ， 如 图 3-31 中 所 示 的 
“Henderson 图 ”'*。 输 入 流 馈 和 人 “ 反 cons”, 分 解 出 这 个 流 的 首 元 素 和 流 的 其 余 元 素 ， 用 这 
个 首 元 素 去 构造 一 个 可 除 性 过 滤器 ， 该 流 的 其 余部 分 穿 过 这 个 过 滤器 ， 这 个 过 滤器 的 输出 再 
馈 入 另 一 个 饰 块 ， 而 后 将 原来 的 首 元 素 cons 到 这 个 内 部 筛 的 输出 上 ， 形 成 最 终 的 输出 流 。 这 
样 ， 不 仅 这 个 流 是 无 穷 的 ， 信 息 处 理 器 也 是 无 穷 的 ， 因 为 在 这 个 筛 里 还 包含 着 另 一 个 筛 。 





filter: 
not 


divisible? 








图 3-31 将 素数 得 看 作 一 个 信号 处 理 系统 


隐 式 地 定义 流 

上 面 的 integezs 和 fibs 流 是 通过 描述 “生成 ”过 程 的 方式 定义 的 ， 这 种 过 程 一 个 个 地 
计算 出 流 的 元 素 。 描 述 流 的 另 一 种 方式 是 利用 延 时 求 值 隐 式 地 定义 流 。 举 个 例子 ,下 面 表达 
式 将 ones 定 义 为 1 的 一 个 无 穷 流 : 

(define ones (cons-stream 1 ones)) 
这 种 定义 方式 就 像 是 在 定义 一 个 递归 过 程 : 这 里 的 ones 是 一 个 序 对 ， 它 的 car 是 1， 而 car 是 
求 值 ones 的 一 个 允诺 。 对 于 其 car 的 求 值 又 给 了 我 们 一 个 1 和 求 值 ones 的 一 个 允诺 ， 并 这 样 
继续 下 去 。 

通过 使 用 诸如 add-streams 一 类 的 操作 ， 我 们 还 可 以 做 一 些 更 有 趣 的 事情 。add-streams 
操作 产生 出 两 个 给 定 流 的 逐 对 元 素 之 和 '”: 

(define (add-streams sl s2) 


(stream-map + sl s2)) 


现在 我 们 可 以 用 如 下 方式 定义 整数 流 integers: 


(define integers (cons-stream 1 (add-streams ones integers))) 


这 样 定义 出 的 jntegers 是 一 个 流 ， 其 首 元 素 是 1， 其 余部 分 是 ones 与 ntegers 之 和 。 这 
样 ，integers 的 第 二 个 元 素 就 是 1 加 上 integers 的 第 一 个 元 素 ， 也 就 是 2; ijntegers 的 


8 这 种 图 是 用 Peter Henderson 的 名 字 命 名 的 。Henderson 是 第 一 个 画 出 这 种 类 型 的 图 的 人 ， 以 此 作为 一 种 思考 流 
处 理 的 方式 。 这 里 的 每 条 实 线 代 表 需 传输 值 的 流 ， 从 car 发 出 的 虚线 表明 这 是 一 个 值 而 不 是 一 个 流 。 
190 这 里 使 用 了 来 自 练习 3.50 的 推广 的 stream-map。 
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第 三 个 元 素 是 1 加 上 integers 的 第 二 个 元 素 ， 也 就 是 3， 如 此 继续 下 去 。 这 一 定义 可 行 ， 是 
因为 在 任 一 点 上 ， 都 已 经 生成 出 了 integers 流 的 足够 部 分 ， 这 就 使 我 们 可 以 将 它 馈 回 这 一 
定义 ， 去 产生 出 下 一 个 整数 。 

我 们 可 以 用 同样 的 风格 定义 出 斐 波 那 契 数 ， 

(define fibs 

(cons-stream 0 
(cons-stream 1 
(add-streams (stream-cdr fibs) 
fibs)))) 

这 个 定义 说 fibs 是 一 个 以 0 和 1 开始 的 流 ， 而 这 个 流 的 其 余部 分 都 可 以 通过 加 起 流 £ibs 和 移 
动 了 一 个 位 置 的 fibs 而 得 到 : 








1 1 2 3 5 8 13 21 ...= (stream-cdr fibs) 
0 1 1 2 3 5 8 13 «= £ibs 
0 1 1 2 3 5 8 13 21 34 wa El bs 


scale-stream 是 描述 这 种 流 定义 的 另 一 个 有 用 过 程 。 这 个 过 程 将 一 个 给 定 的 常数 乘 到 
流 中 的 每 个 项 上 : 
(define (scale-stream stream factor) 


(stream-map (lambda (x) (* x factor)) stream) ) 


例如 : 


(define double (cons-stream 1 (scale-stream double 2))) 
生成 出 2 的 各 个 害 : 1; 2, 4, 8, 16, 32, ---, 

素数 流 的 另 一 定义 方式 是 从 整数 出 发 ， 通 过 检查 是 否 为 素数 的 方式 过 滤 它 们 。 这 里 需要 
以 第 一 个 素数 2 作为 开始 : 


(define primes 
(cons-stream 
2 


(stream-filter prime? (integers-starting-from 3)))) 
这 个 定义 并 不 像 它 初 看 起 来 那么 直截了当 ， 因 为 检查 一 个 数 n 是 否 素数 的 方式 ， 就 是 检查 n 能 
否 被 所 有 小 于 等 于 Vn 的 素数 (而 不 是 用 所 有 这 样 的 整数 ) 整除 : 


(define (prime? n) 
(define (iter ps) 
(cond ((> (square (stream-car ps)) n) true) 
((divisible? n (stream-car ps)) false) 
(else (iter (stream-cdr ps))))) 


(iter primes) ) 


这 是 一 个 递归 定义 ， 因 为 primes 是 基于 谓词 prime? 定 义 出 来 的 ， 而 在 这 个 谓词 本 身 的 定义 
中 又 使 用 了 流 primes。 这 一 过 程 能 行 的 原因 是 ， 在 计算 中 的 任 一 点 ， 流 primes 都 已 经 生成 
出 的 足够 多 的 部 分 ， 足 以 满足 我 们 检查 下 面 的 任何 数 是 否 素数 的 需要 。 也 就 是 说 ， 在 检查 任 
何 一 个 数 n 是 否 素数 时 ， 或 者 n 不 是 素数 (这 时 存在 着 一 个 已 经 生成 的 素数 能 够 整除 它 )， 或 者 
n 是 素数 (这 时 ,已 经 生成 过 一 个 素数 一 一 也 就 是 说 ， 已 经 生成 过 一 个 小 于 nn 但 是 大 于 Vn 的 素 
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数 ) CAEN 
练习 3.53 请 不 要 运行 程序 ， 描 述 一 下 由 下 面 程序 定义 出 的 流 里 的 元 素 : 


(define s (cons-stream 1 (add-streams s s))) 


练习 3.54 ”请 定义 一 个 与 add-streams 类 似 的 过 程 mul-streams， 对 于 两 个 输入 流 ， 
它 按 元 素 逐 个 生成 乘积 。 用 它 和 integers 流 一 起 完成 下 面 流 的 定义 ， 其 中 的 第 n 个 元 素 (从 
0 开始 数 ) 是 n 十 1 的 阶乘 : 


(define factorials (cons-stream 1 (mul-streams <??> <??>))) 


练习 3.55 ”请 定义 函数 partial-sums， 它 以 流 5 为 参数 ， 返 回 的 流 中 的 元 素 是 5So, Sot 
Si, So 十 1 十 Ss,…。 例 如 ，(partial-sums integers) 应 该 生成 流 1, 3, 6, 10, 15,…。 
练习 3.56 ”这 是 一 个 非常 著名 的 问题 ， 首 先 由 R. Hamming 提 出 。 问 题 是 要 按照 递增 的 顺 
序 不 重复 地 枚 举 出 所 有 满足 条 件 的 整数 ， 这 些 整 数 都 没有 2、3 和 5 之 外 的 素数 因子 。 完 成 此 事 
的 一 种 明显 方法 是 简单 地 检查 每 一 个 整数 ， 看 看 它 是 否 有 2、3 和 5 之 外 的 素数 因子 。 但 这 样 做 
极其 低 效 ， 因 为 随 着 整数 变 大 ， 它 们 之 中 满足 要 求 的 数 也 会 变 得 越 来 越 少 。 换 一 种 看 法 ， 让 
我 们 将 所 需 的 流 称 作 s， 看 看 有 关 它 的 下 述 事实 : 
。S 从 1 开始 。 
e (scale-stream S 2) 的 元 素 也 是 S 的 元 素 。 
。 这 一 说 法 对 于 (scale-stream S 3) 和 (scale-stream 5 S) 也 都 对 。 
。 这 些 也 就 是 S 的 所 有 元 素 了 。 
现在 需要 做 的 就 是 将 所 有 这 些 来 源 的 元 素 组 合 起 来 。 为 此 我 们 先 定义 一 个 国 数 merge， 
它 能 将 两 个 排 好 顺序 的 流 合并 为 一 个 排 好 顺序 的 流 ， 并 删除 其 中 的 重复 : 
(define (merge sl s2) 
(cond ((stream-null? s1) s2) 
((stream-null? s2) s1) 
(else 
(let ((slcar (stream-car s1)) 
(s2car (stream-car s2))) 
(cond ((< slcar s2car) 


(cons-stream slcar (merge (stream-cdr sl) s2))) 
((> slcar s2car) 


(cons-stream s2car (merge sl (stream-cdr s2)))) 
(else 


(cons-stream slcar 
(merge (stream-cdr s1) 
(stream-cdr s2))))))))) 


Mae AF merge, Lan PA ie rai T : 


(define S (cons-stream 1 (merge <??> <??>))) 


请 在 上 面 <??> 标 记 的 位 置 填充 所 缺 的 表达 式 。 


中 最 后 一 点 并 不 容易 看 到 ， 它 依赖 于 事实 p,41<p, (这 里 的 p 表 示 第 k 个 素数 )。 像 这 样 形式 的 估计 是 很 难 建立 
的 。 欧 儿 里 得 在 古代 证 明了 素数 有 无 穷 多 个 ， 其 中 证 明了 pn+1<pi pote pn 二 1， 直 到 1851 年 都 没 人 得 到 比 这 
更 好 的 结果 ， 那 一 年 俄罗斯 数学 家 P. L. Chebyshev 证 明 出 对 于 任何 n 都 有 p+1<2p,， 这 一 结果 是 1845 年 提出 的 
一 个 猜想 ， 称 为 Bertrand 猜 想 。 在 Hardy 和 Wright 1960 的 22.3 节 可 以 找到 对 这 个 问题 的 证 明 。 
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练习 3.57 “” 当 我 们 用 基于 addq- streams 过 程 的 Eibs 定 义 计算 出 第 ?个 斐 波 那 契 数 时 ， 需 
要 执行 多 少 次 加 法 ?请 证 明 ， 如 果 我 们 简单 地 用 (lambaa () <exp>) 实现 (delay <exp>), 
又 不 用 3.5.1 节 给 出 的 memo-proc 过 程 所 提供 的 优化 ， 那 么 所 需 的 加 法 将 会 指数 倍 地 增加 '”。 

练习 3.58 请 给 下 面 过 程 所 计算 的 流 的 一 种 解释 : 

(define (expand num den radix) 

(cons-stream 


(quotient (* num radix) den) 


(expand (remainder (* num radix) den) den radix) ) ) 


(这 里 的 quotient 是 求 两 个 整数 的 整数 商 的 基本 函数 )。(expand 1 7 10) 会 顺序 产生 出 
哪些 元 素 ? (expand 3 8 10) 会 产生 哪些 元 素 ? 

练习 3.59 ”在 2.5.3 节 里 ,我们 说 明了 如 何 实现 一 个 多 项 式 算术 系统 ， 其 中 将 多 项 式 表 示 
为 项 的 表 。 我 们 可 以 按 类 似 方式 处 理 徊 级 数 ， 例 如 ， 将 


alex se + + 
2 3:2 4-3-2 
2 4 








x 

cosx = 1——-+——_—: 
2 4-3-2 
x a 

sin xain 
3-2 5-4-3-2 


表示 为 无 穷 的 流 。 我 们 把 将 级 数 ao 十 al xta +a + RRA, WCRE RAA 
Blao, a), a, a3, ka 
a) RBlay ta, x+ a X +a + - RER: 


| oe 1 
etatz a,x 十 本 0 tT + 


这 里 的 c 是 任意 常数 。 请 定义 过 程 integrate-series， 它 以 一 个 表示 知 级 数 的 流 ao, an … 
为 参数 ， 返 回 这 个 震级 数 的 积分 中 各 个 非常 数 项 的 系数 的 流 au， (Sa, (Ga, …。( 因 为 返 


回 的 结果 中 不 包含 常数 项 ， 因 此 它 不 是 需 级 数 。 如 果 要 对 它们 使 用 integrate-series， 
我 们 可 以 用 cons 加 上 一 个 常数 项 。) 
b) 函数 x Fe" 是 其 自身 的 导数 。 这 也 意味 着 es 和 e* 的 积分 是 同一 个 级 数 ， 除 了 和 常数 项 之 外 。 
而 常数 项 应 该 是 e=1。 根 据 这 种 情况 ， 我 们 可 以 按 如 下 方式 生成 e 的 级 数 : 
(define exp-series 
(cons-stream 1 (integrate-series exp-series) ) ) 


我 们 知道 sn 的 导数 是 cos， 而 且 cos 的 导数 是 负 的 sin， 请 说 明 如 何 根据 这 些 事实 ， 生 成 sin 和 cos 
的 级 数 : 
(define cosine-series 


(cons-stream 1 <??>) 


(define sine-series 


(cons-stream 0 <??>)) 


192 这 一 练习 说 明了 按 需 调 用 与 练习 3.27 所 描述 的 常规 记忆 方法 有 密切 联系 。 在 那个 练习 里 ， 我 们 利用 赋值 构造 了 
一 个 显 式 的 表 列 。 这 里 的 按 需 调用 流 能 够 有 效 地 自动 构造 出 这 种 表 列 , 将 值 存 入 流 的 前 面 强迫 做 出 的 那 部 分 里 。 
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练习 3.60 ” 像 练习 3.59 里 那样 将 寡 级 数 表示 为 系数 的 流 之 后 ， 级 数 的 和 就 可 以 直接 用 过 程 
add-streams 实 现 了 。 请 完成 下 面 级 数 乘积 过 程 的 定义 : 
(define (mul-series sl s2) 


(cons-stream <??> (add-streams <??> <??>))) 
你 可 以 利用 公式 sin?x+cosx=1， 用 练习 3.59 定 义 的 那些 级 数 检 验 你 定义 出 的 过 程 。 
练习 3.61 ” 令 3 是 一 个 常数 项 为 1 的 震级 数 (练习 3.59) ， 假 定 我 们 现在 希望 找 出 1 的 寡 级 
数 ， 也 就 是 说 ， 找 出 一 个 级 数 X， 使 得 9 .+ X=1。 将 $ 写 成 9?=1+Sa， 其 中 是 8 常数 项 后 面 的 
部 分 。 而 后 我 们 就 可 以 按 下 面 方式 解 出 X; 
S- X=1 
(1+Spr): X=1 
X+Sk:X=1 
X=1-Sk: X 
换 名 话说，X 是 那样 的 一 个 需 级 数 ， 其 常数 项 为 1， 而 其 高 阶 的 那些 项 可 以 由 Sn 求 负 后 乘 以 X 而 
得 到 。 请 利用 这 一 思想 写 出 一 个 过 程 ， 使 它 能 对 常数 项 为 1 的 震级 数 $ 计 算出 1/8$。 你 需要 使 用 
练习 3.60 的 mul-series。 
练习 3.62 请 利用 练习 3.60 和 练习 3.61 的 结果 定义 一 个 过 程 div-series， 完 成 两 个 徊 级 
数 的 除法 。div-series 应 该 能 对 任何 两 个 级 数 工 作 ， 只 要 作为 分 母 的 级 数 具 有 非 0 的 常数 项 
(如 果 它 的 常数 项 为 0，div-series 应 该 报错 )。 请 说 明 ， 如 何 利 用 div-series 和 练习 3.59 
的 结果 产生 出 正切 函数 的 知 级 数 。 


3.5.3 流 计算 模式 的 使 用 


带 有 延 时 求 值 的 流 可 能 成 为 一 种 功能 强大 的 模拟 工具 ， 能 提供 局 部 状态 和 赋值 的 许多 效 
益 。 进 一 步 说 ， 这 种 机 制 还 能 避免 将 赋值 引入 程序 设计 语言 所 带 来 的 一 些 理论 困难 。 

流 方 法 极 富有 启发 性 ， 因 为 借助 于 它 去 构造 系统 时 ， 所 用 的 模块 划分 方式 可 以 与 采用 赋 
值 、 围 绕 着 状态 变量 组 织 系 统 的 方式 不 同 。 例 如 ， 我 们 可 以 将 整个 的 时 间 序列 (或 者 信号 ) 
作为 关注 的 目标 ， 而 不 是 去 关注 有 关 状 态 变量 在 各 个 时 刻 的 值 。 这 将 使 我 们 能 更 方便 地 组 合 
与 比较 来 自 不 同时 刻 的 状态 成 分 。 


系统 地 将 迭代 操作 方式 表示 为 流 过 程 

1.2.1 市 介绍 了 迭代 过 程 ， 这 种 工作 过 程 也 就 是 不 断 地 更 新 一 些 状态 变量 。 现 在 我 们 知道 ， 
状态 可 以 表示 为 值 的 “没有 时 间 的 ” 流 ， 而 不 是 一 组 不 断 更 新 的 变量 。 现 在 让 我 们 采用 这 一 
观点 ， 重 新 去 看 1.1.7 节 的 平方 根 过 程 。 请 回忆 一 下 ， 那 里 的 思想 就 是 生成 出 一 个 序列 ， 其 元 
素 是 x 的 平方 根 的 一 个 比 一 个 更 好 的 猜测 值 ， 采 用 的 方法 是 反复 应 用 一 个 改进 猜测 的 过 程 ; 

(define (sqrt-improve guess x) 


(average guess (/ x guess))) 


在 原来 的 sqrt 过 程 里 ， 我 们 用 某 个 状态 变量 的 一 系列 值 表示 这 些 猜测 。 换 一 种 方式 ， 我 们 也 
可 以 生成 一 个 无 穷 的 猜测 序列 ， 从 初始 猪 测 1 开始 '”: 


3 不 能 用 let 去 建立 局 部 变量 guesses 的 约束 ， 因 为 quesses 的 值 依赖 于 guesses 本 身 。 参 见 练习 3.63，。 
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(define (sqrt-stream x) 
(define guesses 
(cons-stream 1.0 
(stream-map (lambda (guess) 
(sqrt-improve guess x) ) 
guesses) ) ) 


guesses) 

(display-stream (sqrt-stream 2) ) 
Ji 

Ls 
1.4166666666666665 
1 

iE 


-4142156862745097 
-4142135623746899 


我 们 可 以 生成 出 这 个 流 中 越 来 越 多 的 项 ， 以 得 到 越 来 越 好 的 猜测 。 如 果 喜 欢 的 话 ， 我 们 也 可 
以 写 一 个 过 程 ， 使 它 能 不 断 生 成 项 ， 直 至 得 到 足够 好 的 答案 为 止 ( 另 见 练 习 3.64)。 
可 以 按照 同样 方式 处 理 的 另 一 个 迭代 是 生成 x 的 近似 值 ， 这 一 过 程 基 于 下 面 的 交替 级 数 ， 
我 们 在 1.3.1 节 已 经 见 过 的 它 : 
A Lit A 
一 三 二 三 十 二 一 一 二 
4 3 3 7 
我 们 首先 生成 上 述 级 数 (各 个 奇数 的 倒数 ， 其 符号 是 交替 的 ) ZAC, RAP a OR eK & 
的 项 之 和 【利用 练习 3.55 的 partial-sums 过 程 )， 并 将 得 到 的 结果 除 以 4: 
(define (pi-summands n) 
(cons-stream (/ 1.0 n) 
(stream-map - (pi-summands (+ n 2))))) 
(define pi-stream 


(scale-stream (partial-sums (pi-summands 1)) 4)) 


(display-stream pi-stream) 


-666666666666667 
466666666666667 
8952380952380956 
3396825396825403 
9760461760461765 
2837384837384844 
-017071817071818 


WW N WwW DY WD BS 


这 样 就 给 出 了 一 个 逐步 逼近 r 的 流 。 这 一 逼近 收敛 得 非常 慢 ， 序 列 中 的 8 项 只 能 将 r 值 界定 
到 3.284 和 3.017 之 间 。 

到 现在 为 止 ， 我 们 对 状态 的 流 的 使 用 方式 与 做 状态 变量 更 新 还 没有 多 大 差别 。 但 是 ， 流 
确实 提供 了 一 些 机 会 ， 使 我 们 可 以 采用 一 些 非常 有 趣 的 技巧 。 举 例 来 说 ， 我 们 可 以 用 一 个 序 
列 加 速 器 对 流 做 一 个 变换 ， 这 种 加 速 器 可 以 将 一 个 逼近 序列 变换 为 另 一 个 新 序列 ， 该 新 序列 
也 收敛 到 与 原 序列 同样 的 值 ， 只 是 收敛 速度 快 得 多 。 
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这 种 加 速 器 中 的 一 个 应 该 归功 于 瑞士 数学 家 利 昂 哈 德 . 欧 拉 ， 这 一 加 速 器 对 于 交错 级 数 
(具有 交错 符号 的 项 的 级 数 ) 的 部 分 和 工作 得 特别 好 。 按 照 欧 拉 的 技术 ,假设 5, 是 原 有 的 和 序 
列 的 第 2 项 ， 那 么 加 速 序列 的 形式 就 是 : 

OT 


n+l n 


= S -25, ES 
也 就 是 说 ， 如 果 原 序列 采用 一 个 值 的 流 表示 ， 变 换 后 的 序列 可 以 如 下 给 出 : 


(define (euler-transform s) 


(let ((s0 (stream-ref s 0)) 站 ee 
(sl (stream-ref s 1)) i (Se 

(s2 (stream-ref s 2))) : Saez 
(cons-stream (- s2 (/ (square (- s2 s1)) 


(+ sO (* -2 s1) s2))) 
(euler-transform (stream-cdr s))))) 


我 们 可 以 用 对 的 逼近 序列 来 说 明 欧 拉 加 速 器 的 效果 : 
(display-stream (euler-transform pi-stream) ) 
-166666666666667 

L33333333333333'7 

-1452380952380956 

-13968253968254 

-1427128427128435 

-1408813408813416 

-142071817071818 

-1412548236077655 


WwW WwW Ww WwW 


还 可 以 做 得 更 好 些 ， 因 为 我 们 甚至 可 以 去 加 速 由 前 面 的 加 速 得 到 的 序列 ， 或 者 递归 地 加 
速 下 去 ， 如 此 等 等 。 也 就 是 说 ， 我 们 可 以 构造 出 一 个 流 的 流 (一 种 我 们 称 为 表 列 的 结构 )， 其 
中 的 每 个 流 都 是 前 一 个 流 的 变换 结果 : 
(define (make-tableau transform s) 
(cons-stream s 


(make-tableau transform 


(transform s)))) 


这 样 得 到 的 表 列 具有 如 下 形式 : 


最 后 取出 表 列 中 每 行 的 第 一 项 ， 这 样 就 可 以 形成 一 个 序列 : 
(define (accelerated-sequence transform s) 
(stream-map stream-car 


(make-tableau transform s))) 


我 们 可 以 用 逼近 的 序列 来 展示 这 一 “超级 加 速 右 ”: 
(display-stream (accelerated-sequence euler-transform 


pi-stream) ) 


w 
ny 
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. 166666666666667 
-142105263157895 
-141599357319005 
-1415927140337785 
. 1415926539752927 
.1415926535911765 
- 141592653589778 


w wù ù w WU W U 心 


结果 非常 令 人 振奋 。 取 出 序列 的 8 项 ， 就 产生 出 的 直至 14 位 数字 的 正确 值 。 如 果 我 们 用 的 是 
原来 的 逼近 序列 ， 那 么 将 需要 计算 10" 数 量 级 的 项 才能 达到 同样 精确 程度 〈 也 就 是 说 ， 需 要 展 
开 足 够 多 的 项 ,使 一 个 项 的 绝对 值 小 于 10-)。 如 果 不 使 用 流 , 我 们 也 可 以 实现 这 些 加 速 技术 ， 
但 流 的 描述 形式 特别 优美 而 又 方便 ， 因 为 整个 状态 序列 就 像 一 个 数据 结构 一 样 ， 可 以 通过 一 
集 统一 的 操作 直接 地 随意 使 用 。 

练习 3.63 Louis Reasoner 问 为 什么 sqrt-stream 过 程 没 采用 下 述 更 加 直截了当 的 形式 
写 出 ， 其 中 根本 不 用 局 部 变量 guesses: 


(define (sqrt-stream x) 
(cons-stream 1.0 
(stream-map (lambda (guess) 
(sqrt-improve guess x) ) 


(sqrt-stream x)))) 

Alyssa P. Hacker 对 所 说 过 程 的 这 个 版 本 的 评价 是 ， 它 过 于 低 效 ， 因 为 其 中 执行 了 一 些 多 余 的 
操作 。 请 解释 Alyssa 的 回答 。 如 果 我 们 的 aelay 直 接 采 用 (lambda () <exp>) 实现 ， 而 不 
用 memo -proc 所 提供 的 优化 〈 见 3.5.1 闻 )， 这 两 个 版 本 在 效率 方面 还 会 有 差异 吗 ? 

练习 3.64 ”请 写 出 过 程 stzeam-1imit， 它 以 一 个 流 和 一 个 数 ( 当 作 容许 误差 ) 作为 参 
数 ， 检 查 这 个 流 ， 直 至 发 现 连续 两 项 之 差 的 绝对 值 小 于 给 定 容 许 误 差 。 这 时 该 过 程 返 回 后 一 
个 项 。 利 用 这 一 过 程 ， 我 们 就 可 以 用 下 面 方式 计算 出 满足 给 定 误差 的 平方 根 : 

(define (sqrt x tolerance) 


(stream-limit (sqrt-stream x) tolerance) ) 
练习 3.65 用 级 数 : 


和 
234 


参照 上 面 计算 r 的 方式 ， 计 算出 逼近 2 的 自然 对 数 的 三 个 序列 。 这 些 序列 的 收敛 速度 怎么 样 ? 


序 对 的 无 穷 流 

在 2.2.3 节 里 ， 我 们 看 到 过 如 何 通过 序列 范 型 去 处 理 传统 的 骨 套 循环 ， 将 其 作为 定义 在 序 
对 的 序列 上 的 计算 过 程 。 如 果 将 这 一 技术 推广 到 无 穷 流 ， 我 们 就 可 以 写 出 一 些 很 不 容易 用 循 
环 表示 的 程序 ， 因 为 要 想 那 样 做 ， 就 必须 对 无 穷 集 合 做 “循环 "。 

举例 说 ， 假 定 我 们 希望 推广 2.2.3 节 的 prime-sum-paizs 过 程 ， 生 成 所 有 整数 序 对 (i, j) 
的 流 ， 其 中 有 i<j 而 且 i+j 是 素数 。 如 果 int -pairs 是 所 有 满足 i<j 的 整数 序 对 (i, j) 的 序列 ， 
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那么 我 们 的 需求 就 很 简单 了 '”: 
(stream-filter (lambda (pair) 
(prime? (+ (car pair) (cadr pair)))) 
int-pairs) 


现在 问题 就 转化 为 流 int -pairs 的 生成 。 更 一 般 些 ,假定 我 们 现在 有 了 两 个 流 $ =(5;) 和 
T=(T)， 设 想 下 面 的 无 穷 矩 形 阵列 : 
(So, To) (So, Ti) (So, Ta) ... 
(Si, To) (Si, Ti) (Si, T2) + 
(S2, To) (S2, T) (S3 Tr)... 


我 们 需要 的 是 生成 一 个 流 ， 其 中 包含 了 在 这 一 阵列 中 位 于 对 角 线 及 其 上 方 的 所 有 序 对 ， 即 如 
下 的 这 些 序 对 
ST) Get C.D » 
(Sy, TO Sil) ss 
(95 T2) xs 


(如 果 S 和 7T 都 是 整数 的 流 ， 那 么 这 就 是 我 们 所 需要 的 ijnt -pairsife. ) 
我 们 把 这 个 一 般 性 的 流 称 为 (pairs s T), 并 认为 它 由 三 部 分 组 成 : 序 对 (So To), B 
一 行 里 的 所 有 其 他 序 对 ， 以 及 其 余 的 序 对 '”: 
(So, To) | (So Ti) (So, 72) ... 
CS TY (GS. Zo): a: 
Gi BY = 






可 以 看 出 ， 这 一 分 解 的 第 三 部 分 (那些 不 在 第 一 行 的 序 对 ) 正 是 (递归 地 ) 由 (stream-cdr 
s) 和 (stream-cdr T) 形成 的 那些 序 对 。 还 可 以 看 到 其 第 二 部 分 (第 一 列 其 余 序 对 ) 就 
是 : 


(stream-map (lambda (x) (list (stream-car s) x)) 
(stream-cdr 七 ) ) 


这 样 我 们 就 可 以 按照 如 下 方式 构成 所 需 的 序 对 流 了 : 
(define (pairs s t) 
(cons-stream 
(list (stream-car s) (stream-car 七 ) ) 
(< 按 某 种 方式 组 合 > 
(stream-map (lambda (x) (list (stream-car s) x)) 
(stream-cdr 七 ) ) 


(pairs (stream-cdr s) (stream-cdr t))))) 


为 了 完成 这 一 过 程 ， 我 们 还 必须 选择 一 种 方式 ， 通 过 它 组 合 起 两 个 内 部 的 流 。 一 种 想法 


1 正 像 2.2.3 节 一 样 ， 我 们 在 这 里 将 整数 的 序 对 表示 为 两 个 元 素 的 表 ， 而 不 是 表示 为 Lisp 的 序 对 。 
s 有 关 为 什么 选择 这 种 分 解 的 考虑 ， 请 参考 练习 3.68。 
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是 采用 与 2.2.1 节 中 append 过 程 类 似 的 流 过 程 : 
(define (stream-append s1 s2) 
(if (stream-null? s1) 
s2 
(cons-stream (stream-car s1) 


(stream-append (stream-cdr sl) s2)))) 


然而 ， 对 于 无 穷 流 而 言 ， 这 一 做 法 完全 不 适用 ， 因 为 它 要 在 取 到 第 一 个 流 的 所 有 元 素 之 后 ， 
才 去 结合 进 第 二 个 流 的 元 素 。 特 别 是 如 果 我 们 试图 用 如 下 方式 生成 所 有 正 整 数 的 序 对 : 

(pairs integers integers) 
结果 得 到 的 流 将 会 试图 首先 生成 出 第 一 个 元 素 等 于 1 的 所 有 序 对 ， 因 此 也 就 根本 不 会 产生 出 以 
其 他 整数 作为 第 一 个 元 素 的 序 对 了 。 

为 了 处 理 无 穷 的 流 ， 我 们 需要 设计 另 一 种 组 合 顺序 ， 以 保证 只 要 这 个 程序 运行 的 时 间 足 
够 长 ， 那 么 最 终 就 能 得 到 流 中 的 每 一 个 元 素 。 做 到 这 一 点 的 一 种 很 美妙 的 方式 是 采用 下 面 的 
interleavert fil: 


(define (interleave sl s2) 
(if (stream-null? s1) 
s2 
(cons-stream (stream-car s1) 


(interleave s2 (stream-cdr sl1))))) 
因为 intezleave 交 替 地 从 两 个 流 中 取 元 素 ， 这 样 ， 即 使 第 一 个 流 是 无 穷 的 ， 第 二 个 流 里 每 
个 元 素 最 终 都 能 在 这 样 交错 得 到 的 流 里 有 自己 的 位 置 。 
现在 ,我 们 已 经 可 以 通过 如 下 方式 生成 所 需 的 流 丁 : 


(define (pairs s 七) 


(cons-stream 


(list (stream-car s) (stream-car 七 ) ) 
(interleave 
(stream-map (lambda (x) (list (stream-car s) x)) 


(stream-cdr 七 ) ) 
(pairs (stream-cdr s) (stream-cdr 七 ) ) ) ) ) 


练习 3.66 请 仔细 检查 流 (pairs integers integers), 你 能 对 各 个 序 对 放 入 在 流 
中 顺序 做 出 任何 一 般 性 的 说 明 吗 ? 比如 说 ， 在 序 对 (1，100) 之 前 大 约 有 多 少 个 序 对 ? 在 序 对 
(100, 100) 之 前 呢 ? (如 果 你 能 在 这 里 做 出 精确 的 数学 描述 ， 那 当然 更 好 了 。 但 如 果 觉 得 很 
难 做 好 定量 的 回答 ， 你 也 完全 不 必 感 到 诅 臣 。) 

练习 3.67 ”请 修改 过 程 pairs, 使 (pairs integers integers) 能 生成 所 有 整数 
序 对 (i,j) 的 流 (不 考虑 条 件 i<j)。 提 示 : 你 需要 混合 进去 另 一 个 流 。 

练习 3.68 Louis Reasoner 认 为 从 上 述 三 个 部 分 出 发 构造 流 ， 是 把 事情 弄 得 过 于 复杂 了 了 。 
他 建议 不 要 把 (So T) 与 第 一 行 的 其 他 部 分 分 开 ， 而 是 直接 对 整个 这 一 行 工 作 ， 采 用 下 面 方 
式 : 


196 这 一 组 合 顺 序 所 需 的 性 质 可 以 精确 地 陈述 如 下 : 应 该 有 一 个 两 参数 的 函数 /， 使 对 应 于 第 一 个 流 的 元 素 i 和 第 
二 个 流 的 元 素 7 的 那个 序 对 出 现 输出 流 中 ， 作 为 其 中 的 第 Ki j) 个 元 素 。 使 用 interleave 达 到 这 一 效果 的 
技巧 是 David Turner 教 给 我 们 的 ， 他 在 语言 KRC (Turner 1981) 里 使 用 了 这 种 技术 。 


(define (pairs s t) 


(interleave 

(stream-map (lambda (x) (list (stream-car s) x)) 
t) 

(pairs (stream-cdr s) (stream-cdr t)))) 


这 样 做 能 行 吗 ?请 考虑 一 下 ， 如 果 我 们 采用 Louis 对 pairs 的 定义 去 求 值 (pairs integers 
integers)， 那 会 出 现 什么 情况 。 

练习 3.69 ”请 写 一 个 过 程 triples， 它 以 三 个 无 穷 流 9、T 和 UU 为 参数 ， 生 成 三 元 组 (Si, 
T, U) 的 流 ， 其 中 要 求 有 i<j<k。 利 用 triples 生 成 所 有 正 的 毕 达 哥 拉 斯 三 元 组 的 流 ， 也 就 
是 说 ， 生 成 所 有 的 三 元 组 (i, j, kb, Hi<j, MAAP+P=k. 

练习 3.70 ”如果 能 够 让 生成 的 流 中 的 序 对 按照 某 种 有 用 的 顺序 排列 ， 而 不 仅仅 是 顺便 地 
任 由 某 种 实际 交错 过 程 产生 ， 也 可 能 是 很 有 价值 的 事情 。 问 题 是 要 定义 好 一 种 方式 ， 使 我 们 
能 够 说 某 个 序 对 “小 于 ” 另 一 个 ， 而 后 就 可 以 采用 某 种 类 似 于 练习 3.56 里 的 mezge 过 程 的 技 
术 了 。 完 成 此 事 的 一 种 方式 是 定义 一 个 “权重 函数 ”W(G， 妃 ， 并 规定 当 玉 (， 四 去 丈 (2， 户 ) 
Bi, J) 就 小 于 (2，j)。 请 写 出 过 程 merge-weighted， 它 很 像 merge， 但 还 多 了 一 个 参 
数 weight ， 这 是 一 个 用 于 计算 序 对 权重 的 过 程 ， 用 于 确定 元 素 在 归并 所 产生 的 流 中 出 现 的 顺 
序 ”"。 利 用 这 个 函数 将 paizs 推 广 为 过 程 weighted-paizrs， 这 个 过 程 的 参数 包括 两 个 流 ， 
还 有 一 个 用 于 计算 权重 函数 的 过 程 。 它 按照 给 定 的 权重 顺序 生成 出 序 对 的 流 。 请 用 你 的 过 程 
生成 出 : 

a) 所 有 正 整 数 序 对 (G, ) 的 流 ， 其 中 要 求 i<j， 按 照 和 数 i+j 的 顺序 排列 。 

b) 所 有 正 整 数 序 对 (i, 让) 的 流 ， 其 中 要 求 i<j， 而 且 这 里 的 i 误 者 /可 以 被 2>、3 或 者 5 整除 ， 
这 些 序 对 按照 和 数 2i+3j 十 5ij 的 顺序 排列 。 

练习 3.71 可 以 以 多 于 一 种 方式 表达 为 两 个 立方 数 之 和 的 数 有 时 被 称 为 Ramanujan 数 ， 以 
纪念 数学 家 Srinivasa Ramanujan'”。 序 对 的 有 序 流 为 计算 这 些 数 的 问题 提供 了 一 种 非常 优美 
的 解决 方案 。 为 了 能 够 找到 所 有 能 以 两 种 不 同方 式 写 为 两 个 立方 之 和 的 数 ， 我 们 只 需要 以 和 
数 放 十 户 作 为 权重 ( 见 练习 3.70) 顺序 地 生成 整数 序 对 的 流 ， 而 后 在 这 个 流 里 寻找 具有 同样 权 
重 的 两 个 前 后 相 邻 排列 的 序 对 。 请 写 一 个 过 程 生成 Ramanujan 数 。 第 一 个 这 样 的 数 是 1729， 
随后 的 5 个 数 是 什么 ? 

练习 3.72 请 采用 类 似 于 练习 3.71 的 方式 ， 生 成 出 所 有 满足 下 面条 件 的 数 的 流 : 这 些 数 都 
能 够 以 三 种 不 同方 式 表示 为 两 个 平方 数 之 和 “(并 请 显示 出 它们 的 分 解 形式 )。 

将 流 作为 信号 

在 开始 有 关 流 的 讨论 时 ， 我 们 将 它们 描述 为 信号 处 理 系统 里 的 “信号 ”在 计算 中 的 对 应 
物 。 事 实 上 ， 我 们 可 以 采用 流 ， 以 一 种 非常 直接 的 方式 为 信号 处 理 系统 建 模 ， 用 流 的 元 素 表 


外 需要 对 权重 函数 提出 以 下 要 求 ， 当 沿 着 序 对 阵列 的 任何 一 行 铝 右 ， 或 者 沿 着 任何 一 列 向 下 时 ， 序 对 的 权重 一 
定 增 加 。 

引用 哈代 有 关 Ramanujan 的 传略 (Hardy 1921):“ 那 是 Littlewood 先 生 (我 认为 ) 说 的 ，' 每 一 个 正 整 数 都 是 
他 的 朋友 " 。 记 得 有 一 次 我 去 看 他 ， 他 当时 正 因 病 住 在 Putney。 我 刚刚 坐 的 出 租车 号 码 是 1729， 我 说 这 个 数 
实在 设 趣 ， 但 愿 这 不 是 一 个 坏 兆 头 。 他 回答 说 :“ 不 ， 这 是 一 个 非常 有 趣 的 数 ， 它 是 能 以 两 种 不 同方 式 表 达 
为 两 个 立方 数 之 和 的 最 小 的 数 。 ”利用 带 权 数 的 序 对 生成 Ramanujan 数 的 技巧 是 Charles Leiserson 告 诉 我 们 的 。 
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示 一 个 信号 在 顺序 的 一 系列 时 间 间 隔 上 的 值 。 举 例 来 说 ， 我 们 可 以 实现 一 个 积分 器 或 者 求 和 
器 ， 对 于 输入 流 x= (x)， 初 始 值 C 和 一 个 小 增 量 dt， 累 积 下 面 的 和 : 


Si =C+yx dt 
j=) 


并 返回 值 S$=(5;) 的 流 。 下 面 的 integral 过 程 使 我 们 回想 起 前 面 给 出 的 整数 流 的 “ 隐 式 风格 
的 ”定义 〈 见 3.5.2 节 ) 。 
(define (integral integrand initial-value dt) 
(define int 
(cons-stream initial-value 
(add-streams (scale-stream integrand dt) 
int))) 

int) 
图 3-32 是 对 应 于 integral 过 程 的 信号 处 理 系统 的 一 个 图 示 。 输 入 流 经 过 di 做 尺度 变换 后 送 给 
一 个 加 法 器 ， 加 法 器 的 输出 又 重新 送 回 同一 个 加 法 器 。 位 于 int 定 义 里 的 自 引 用 ， 在 图 中 的 
反应 就 是 从 加 法 器 的 输出 到 其 一 个 输入 的 反馈 循环 。 


initial-value 





1 
1 
5 integral 








图 3-32 将 integral 过 程 看 作 信号 处 理 系统 


练习 3.73 ”我 们 可 以 用 流 表示 电流 或 者 电压 在 时 间 序 列 上 的 值 ， 用 以 模拟 电子 线路 。 举 
例 说 ,假定 有 一 个 RC 电路 ， 它 由 一 个 阻 值 为 R 的 电阻 和 一 个 容量 为 C 的 电容 器 串联 而 成 。 该 电 
路 对 输入 电流 i 的 电压 响应 v 由 图 3-33 里 的 公式 表示 ， 其 结构 由 对 应 的 信号 流 图 表示 。 


+ v = 
lp, : 
mo = v=w +7 [ide Ri 
R 多 





图 3-33 一 个 RC 电路 与 关联 的 信号 流 图 
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请 写 出 一 个 过 程 RC 模拟 这 个 电路 。RC 应 该 以 R、C 和 dit 的 值 作为 输入 ， 它 应 返回 一 个 过 程 ， 
该 过 程 的 输入 是 一 个 表示 电流 的 流 i 和 一 个 表示 电容 器 初始 电压 值 的 vo, 输出 是 表示 电压 的 流 v。 
例如 ， 你 应 该 能 通过 求 值 (define RC1 (RC 5 1 0.5))， 用 RC 模拟 一 个 RC 电路 ， 其 中 
R= 5 欧姆 ，C= 1 法 ， 以 0.5 秒 作为 时 间 步 长 。 这 一 表达 式 将 定义 出 一 个 过 程 RC1， 它 以 一 个 表 
示 电 流 的 时 间 序 列 的 流 和 电容 器 的 一 个 初始 电压 量 为 参数 ， 能 产生 出 表示 电压 的 输出 序列 。 


练习 3.74 Alyssa P. Hacker 正 在 设计 一 个 系统 ， 以 处 理 来 自 物理 传感器 的 信号 。 她 希望 
得 到 的 一 个 重要 特性 就 是 一 个 描述 了 输入 信号 过 零点 的 信号 。 也 就 是 说 ， 在 输入 信号 从 负 值 
变 成 正 值 时 这 个 结果 信号 应 该 是 十 1， 而 当 输 入 信号 由 正 变 负 时 它 应 该 是 一 1， 其 他 时 刻 值 为 0 
(0 输入 的 符号 也 假定 为 正 )。 例 如 ， 一 个 典型 的 输入 信号 及 其 相关 的 过 零点 信号 应 该 是 : 
si a is r wS 0a -a a a S M 3 A 
0 0 0 0 0 -1 0 0 0 0 1 0 0 


在 Alyssa 的 系统 里 ， 来 自传 感 器 的 信号 用 流 sense-data 表 示 ， 流 zero-crossings 是 对 应 
的 过 零点 流 。Alyssa 首 先 写 出 一 个 过 程 sign-change-detector， 它 以 两 个 值 作 为 参数 ， 
比较 它们 的 符号 产生 出 适当 的 0、1 或 者 一 1。 而 后 她 用 下 面 方式 构造 出 过 零点 流 : 
(define (make-zero-crossings input-stream last-value) 
(cons-stream 
(sign-change-detector (stream-car input-stream) last-value) 
(make-zero-crossings (stream-cdr input-stream) 


(stream-car input-stream) )) ) 


(define zero-crossings (make-zero-crossings sense-data 0) ) 


Alyssa 的 上 司 Eva Lu Ator 走 过 ， 提 出 说 这 一 程序 与 下 面 的 程序 差不多 ， 其 中 采用 了 取 自 练习 
3.50 的 stream-map 的 推广 版 本 : 


(define zero-crossings 


(stream-map sign-change-detector sense-data <expression>) ) 
请 填充 这 里 缺少 的 <expression>， 完 成 这 一 程序 。 


练习 3.75 “不幸 的 是 ， 练 习 3.74 中 Alyssa 的 过 零点 检查 程序 被 证 明 效 果 不 好 ， 因 为 来 自传 
感 器 的 噪声 信号 将 导致 一 些 虚 假 的 过 零点 。 硬 件 专家 Lem E. Tweakit 建 议 Alyssa 对 信号 做 平滑 ， 
在 提取 过 零点 之 前 过 滤 掉 噪声 。Alyssa 接 受 了 他 的 建议 ， 决 定 先 做 每 个 感应 值 与 前 一 感应 值 
的 平均 值 ， 而 后 在 这 样 构造 出 的 信号 里 提取 过 零点 。 她 将 这 一 问题 解释 给 自己 的 助手 Louis 
Reasoner， 让 他 实现 这 一 想法 。Louis 将 Alyssa 的 程序 修改 为 下 面 样子 : 
(define (make-zero-crossings input-stream last-value) 
(let ((avpt (/ (+ (stream-car input-stream) last-value) 2))) 
(cons-stream (sign-change-detector avpt last-value) 
(make-zero-crossings (stream-cdr input-stream) 
avpt)))) 


这 并 没有 正确 实现 Alyssa 的 计划 。 请 找 出 Louis 留 在 其 中 的 错误 ， 改 正 它 ， 但 不 要 改变 程序 的 
结构 。( 提 示 : 你 将 需要 增加 make-zero-crossings 的 参数 的 个 数 。) 

练习 3.76 Eva Lu Ator 对 练习 3.75 中 Louis 的 计划 有 一 个 批评 意见 ， 说 他 写 出 的 程序 不 够 
模块 化 ， 因 为 其 中 的 平滑 运算 和 过 零点 提取 操作 混在 一 起 了 。 举 例 说 ， 如 果 Alyssa 找 到 了 另 一 
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种 改善 输入 信号 的 更 好 方法 ， 不 应 该 修改 这 里 的 提取 程序 。 请 帮助 Louis 写 一 个 过 程 smooth， 
它 以 一 个 流 为 输入 ， 产 生出 另 一 个 流 ， 其 中 的 每 个 元 素 都 是 输入 流 中 顺序 的 两 个 元 素 的 平均 
值 。 而 后 以 smooth 作 为 部 件 ， 以 更 模块 化 的 方式 实现 这 个 过 零点 检测 器 。 


3.5.4 流 和 延 时 求 值 


前 一 节 里 的 最 后 一 个 过 程 integral， 展 示 了 我 们 可 以 怎样 用 流 去 模拟 包含 反馈 循环 的 
言 号 处 理 系统 。 图 3-32 中 所 示 的 加 法 器 的 反馈 循环 ， 是 通过 将 integral 的 内 部 流 int 通 过 它 
本 身 定义 的 方式 去 模拟 的 : 

(define int 

(cons-stream initial-value 


(add-streams (scale-stream integrand dt) 
int))) 


解释 器 处 理 这 种 隐 式 定义 的 能 力 依赖 于 delay， 它 被 结合 在 cons-stream 里 面 。 如 果 没 有 
这 个 delay， 解 释 器 就 不 可 能 在 完成 对 cons-stream 的 两 个 参数 的 求 值 之 前 构造 出 int， 因 
为 这 将 要 求 int 已 经 定义 好 。 一 般 说 ， 在 利用 流 去 模拟 包含 循环 的 信号 处 理 系 统 时 ，delay 
是 至 关 重 要 的 。 如 果 没 有 delay， 我 们 的 模拟 就 不 得 不 这 样 描述 ， 其 中 要 求 对 每 个 信号 处 理 
部 件 的 输入 都 能 在 产生 输出 之 前 完成 求 值 。 这 也 就 完全 把 循环 排除 在 外 了 。 

但 是 ， 对 于 带 有 循环 的 系统 的 流 模 拟 ， 除 了 cons-stream 所 提供 的 “隐藏 的 ”delay 
之 外 ， 可 能 还 需要 直接 使 用 delay。 举 个 例子 ， 图 3-34 显 示 了 一 个 解 微分 方程 dy/dt=f(y) 的 
信号 处 理 系统 ， 其 中 的 了 是 一 个 给 定 国 数 。 图 中 显示 了 一 个 映射 部 件 将 函数 了 应 用 于 其 输入 信 
号 的 情况 ， 它 也 连接 在 一 个 反馈 循环 里 ， 循 环 中 包含 一 个 积分 器 ， 连 接 方 式 很 像 在 模拟 计算 
机 中 实际 用 于 求解 这 种 方程 的 电路 形式 。 





图 3-34 一 个 求解 方程 dy/dt==fQy) 的 “模拟 计算 机 电路 ” 
假定 给 了 y 的 一 个 输入 值 yy， 我 们 可 能 企图 采用 下 面 过 程 模拟 这 个 系统 : 


(define (solve f yO dt) 
(define y (integral dy y0 dt)) 
(define dy (stream-map f y)) 
y) 
可 是 这 一 过 程 无 法 工作 ， 因 为 在 solve 的 第 一 行 里 对 integral 的 调用 要 求 Qy 已 经 定义 ， 但 
这 是 到 solve 的 第 二 行 才 做 的 事情 。 
换 句 话说 ， 这 一 定义 的 意图 确实 是 有 意义 的 ， 因 为 从 原则 上 说 ， 我 们 有 可 能 在 不 知道 ay 
的 情况 下 开始 生成 yY。 实 际 上 ，integral 和 其 他 的 许多 流 都 有 类 似 cons-stream 的 这 种 性 
质 ， 我 们 可 以 在 只 有 参数 的 一 部 分 信息 的 情况 下 ， 开 始 生成 出 输出 流 的 有 关 部 分 。 对 于 
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integral， 输 出 流 的 第 一 个 元 素 由 initial-value 描 述 ， 这样 我 们 就 可 以 在 不 求 值 积分 
对 象 Qy 的 情况 下 生成 出 输出 流 里 的 第 一 个 元 素 。 一 旦 我 们 知道 了 y 的 第 一 个 元 素 ， 位 于 
solve 第 二 行 的 stream-map 就 可 以 开始 工作 ， 生 成 出 dy 的 第 一 个 元 素 ， 这 样 就 可 以 生成 出 
y 的 下 一 个 元 素 ， 并 可 以 这 样 继续 下 去 了 。 
为 了 利用 这 种 想法 ， 我 们 就 需要 重新 定义 integral， 将 被 积 的 流 看 作 一 个 廷 时 参数 。 
integral 将 在 需要 生成 输出 流 第 一 个 元 素 之 后 的 元 素 时 force 积 分 对 象 的 求 值 : 
(define (integral delayed-integrand initial-value dt) 
(define int 
(cons-stream initial-value 
(let ((integrand (force delayed-integrand))) 
(add-streams (scale-stream integrand dt) 
Em) 
int) 
现在 我 们 只 需 在 y 的 定义 里 延 时 求 值 dy， 就 可 以 实现 solve 过 程 了 '”; 
(define (solve f yO dt) 
(define y (integral (delay dy) y0 dt)) 
(define dy (stream-map f y)) 
y) 


一 般 而 言 ，integral 的 每 个 调用 者 现在 都 必须 delay 其 被 积 参数 。 下 面 是 展示 solve 过 程 
工作 情况 的 例子 ， 希 望 在 y= 1 处 ， 初 始 条 件 为 y(0)= 1 的 情况 下 ， 计 算 微分 方程 dy/dt=y 的 解 ， 


这 将 计算 出 近似 值 e ~ 2.718, 
(stream-ref (solve (lambda (y) y) 1 0.001) 1000) 
2.716924 


练习 3.77 上 面 所 用 的 ijntegral 过 程 类 似 于 在 3.5.2 节 里 整数 无 穷 流 的 “ 隐 式 ”定义 。 
换 一 种 方式 ， 我 们 也 可 以 给 出 的 另 一 个 定义 ， 它 更 像 jntegers-starting-from (也 见 
3.5.2 节 ) ， 


(define (integral integrand initial-value dt) 
(cons-stream initial-value 
(if (stream-null? integrand) 

the-empty-stream 

(integral (stream-cdr integrand) 
(+ (* dt (stream-car integrand) ) 

initial-value) 

dt)))) 


在 用 于 带 循环 的 系统 时 ， 这 个 过 程 有 着 与 开始 integral 版 本 一 样 的 问题 。 请 修改 这 个 过 程 ， 
使 它 将 jntegrand 看 作 延 时 参数 ， 以 便 能 用 于 上 述 的 solve 过 程 。 
练习 3.78 现在 考虑 设计 一 个 信号 处 理 系 统 ， 研 究 齐 次 二 阶 线性 微分 方程 : 





199 这 一 过 程 并 不 保证 能 在 所 有 Scheme 实现 中 工作 ， 但 在 每 一 个 实现 中 ， 都 有 它 的 一 个 简单 变形 可 以 工作 。 问 题 
出 在 Scheme 实现 中 对 内 部 定义 的 处 理 方式 的 细微 差异 上 (参见 4.1.6 节 )。 
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输出 流 模 拟 y， 它 由 一 个 包含 循环 的 网 络 生 成 。 这 是 因为 dzy/dr? 的 值 依赖 于 y 和 dy/dt 的 值 ， 而 它 
们 又 都 由 被 积 式 d?y/dt? 所 确定 。 图 3-35 显 示 了 我 们 希望 去 编码 的 图 形 。 请 写 出 一 个 过 程 
solve-2nd， 它 以 常数 4、b 和 dt，y 的 初始 值 yo 和 dyo， 以 及 dy/d1 为 参数 ， 生 成 出 y 的 一 系列 值 


y Y 








图 3-35 求解 二 次 线性 微分 方程 的 信号 流 图 


练习 3.79 ”请 推广 练习 3.78 里 写 出 的 过 程 solve-2nd， 使 之 能 用 于 求解 一 般 的 二 次 微分 
Ti fed’ yidr = fidy/dt, y), 

练习 3.80 “串联 RLC 电 路 由 一 个 电阻 、 一 个 电容 器 和 一 个 电感 串联 组 成 ， 如 图 3-36 所 示 。 
如 果 R、L 和 C 分 别 是 电路 里 的 电阻 值 、 电 容量 和 电感 量 ， 那 么 由 三 个 部 件 间 的 电压 (v) 和 电流 
(关系 由 下 面 方程 描述 : 








图 3-36 一 个 串 行 RLC 电 路 


电路 连接 导致 下 面 的 关系 : 
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请 组 合 这 些 方程 ， 证 明 电路 的 状态 (vc Aili.) 可 以 由 以 下 微分 方程 描述 : 





dve _ A 
d Cc 
di 1, _ R; 
a L° £* 





图 3-37 求解 串 行 RLC 电 路 的 信号 流 图 


请 写 出 一 个 过 程 RLC， 它 以 电路 的 R、L、C 和 时 间 增 量 d1 为 参数 ， 按 类 似 于 练习 3.73 中 过 
程 RC 的 方式 ，RLC 应 该 生成 一 个 过 程 ， 该 过 程 以 状态 变量 的 初始 值 wcu 和 总 为 参数 ， 生 成 出 状 
态 vc 和 立 的 流 的 一 个 序 对 (用 cons)。 利 用 RLC 生 成 出 一 对 流 ， 模 拟 一 个 RLC 电 路 的 行为 ， 其 
中 R=1 欧 ，C=0.2 法 , L=1 享 ，dt=0.1 秒 ， 初 始 值 i =0 安 培 ，vcs=10 伏 特 。 


规范 求 值 序 

本 节 中 的 实例 说 明 ， 显 式 使 用 delay 和 force 能 够 提供 很 大 的 编程 灵活 性 ， 但 同样 实例 
也 显示 出 这 种 做 法 可 能 如 何 导致 程序 变 得 更 加 复杂 。 举 例 来 说 ， 新 的 jntegral 过 程 给 了 我 
们 模拟 带 有 循环 的 系统 的 能 力 ， 但 现在 我 们 就 必须 记 住 ， 调 用 integral 时 必须 用 一 个 延 时 
参数 ， 每 个 使 用 integral 的 过 程 都 必须 注意 这 一 问题 。 从 效果 上 看 ， 我 们 已 经 构造 出 了 两 
类 过 程 : 常规 的 过 程 和 要 求 延 时 参数 的 过 程 。 一 般 说 ， 如 果 创 建 了 不 同 种 类 的 过 程 ， 就 将 迫 
使 我 们 同时 去 创建 不 同 种 类 的 高 阶 过 程 ”。 


2% 这 是 常规 强 类 型 语言 (如 Pascal) 在 处 理 高 阶 过 程 时 所 遇 到 的 困难 情况 在 Lisp 里 的 一 种 小 小 反应 。 在 那些 语 
言 里 ， 程 序 员 必 须 刻 画 每 个 过 程 的 参数 和 结果 的 数据 类 型 : 数 、 罗 辑 值 、 序 列 等 等 。 因 此 我 们 就 无 法 表述 某 
些 抽象 ， 例 如 用 一 个 如 stream-map 那 样 的 高 阶 过 程 “将 给 定 过 程 proc 映 射 到 一 个 序列 里 的 每 个 元 素 "。 相 
B, 我 们 将 需要 对 每 种 参数 和 结果 数据 类 型 的 不 同 组 合 定 义 不 同 的 映射 过 程 ， 各 自 应 用 于 特定 的 proc。 在 
出 现 了 高 阶 函 数 的 情况 下 ， 维 持 一 种 实际 的 “数据 类 型 ”概念 就 变 成 了 一 个 很 困难 的 问题 。 语 言 ML 阅 明了 
处 理 这 一 问题 的 一 种 方法 (Gordon, Milner, and Wadsworth 1979)， 其 中 的 “多 态 数 据 类 型 ”包含 着 数据 类 型 
间 高 阶 变换 的 模式 。 这 就 使 程序 员 不 必 显 式 声明 ML 里 的 大 部 分 过 程 的 数据 类 型 。ML 包 含 一 种 “类 型 推导 ” 
机 制 ， 用 于 从 环境 中 归结 出 新 定义 的 过 程 的 数据 类 型 。 
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为 了 避免 需要 两 类 不 同 过 程 ， 一 种 方式 是 让 所 有 过 程 都 用 延 时 参数 。 我 们 可 以 采纳 一 种 
求 值 模 型 ， 其 中 所 有 过 程 参数 都 自动 延 时 ， 只 有 在 实际 需要 它们 的 时 候 〈 例 如 ， 当 基本 操作 
需要 它们 的 时 候 ) 才 强 迫 参 数 求 值 。 这 样 做 ， 就 把 我 们 的 语言 转 到 了 采用 规范 序 的 方式 ， 在 
1.1.5 节 介绍 求 值 的 代 换 模型 时 曾 第 一 次 介绍 过 这 一 概念 。 转 到 规范 序 求 值 ， 能 得 到 一 种 简化 
延 时 求 值 使 用 方式 的 统一 的 优雅 途径 ， 如 果 我 们 关心 的 只 是 流 处 理 ， 这 将 是 一 种 应 该 采用 的 
非常 自然 的 策略 。 在 研究 了 求 值 器 之 后 ， 我 们 将 在 4.2 市 里 看 看 怎样 将 所 用 的 语言 变换 到 那 种 
样子 。 不 幸 的 是 ， 把 延 时 包含 到 过 程 调用 中 ， 将 会 对 我 们 设计 依赖 于 事件 顺序 的 程序 的 能 力 
造成 极 大 损害 ， 例 如 使 用 赋值 、 变 动 数 据 、 执 行 输入 输出 的 程序 等 等 。 甚 至 在 cons - stream 
里 的 那个 aelay 也 会 产生 极 大 的 迷惑 作用 , 如 练习 3.51 和 练习 3.52 所 示 。 目前 所 有 的 人 都 知道 ， 
变动 性 和 延 时 求 值 在 程序 设计 语言 里 结合 得 非常 不 好 ， 设 计 出 某 些 方式 ， 适 当地 处 理 这 两 种 
东西 ， 仍 然 是 一 个 很 活跃 的 研究 领域 。 


3.5.5 函数 式 程序 的 模块 化 和 对 象 的 模块 化 


正如 我 们 在 3.1.2 节 里 所 看 到 的 ， 引 进 赋 值 的 主要 收益 就 是 使 我 们 可 以 增强 系统 的 模块 化 ， 
把 一 个 大 系统 的 状态 中 的 某 些 部 分 封装 ， 或 者 说 “隐藏 ”到 局 部 变量 里 。 流 模型 可 以 提供 等 
价 的 模块 化 ， 同 时 又 不 必 使 用 赋值 。 为 了 展示 这 方面 的 情况 ， 我 们 可 以 重新 实现 前 面 在 3.1.2 
节 考 察 过 的 r 的 蒙特 卡 罗 估 计 ， 这 次 从 流 的 观点 出 发 来 做 。 

这 里 的 一 个 关键 性 的 模块 化 问题 ， 就 是 我 们 希望 将 一 个 随机 数 生 成 器 的 内 部 状态 隐蔽 8 起 
来 ， 隔 离 在 使 用 随机 数 的 程序 之 外 。 我 们 从 过 程 rand-update 开 始 ， 它 所 提供 的 一 系列 值 
就 是 我 们 所 需 的 随机 数 ， 用 它 作为 一 个 随机 数 生成 器 : 

(define rand 

(let ((x random-init) ) 
(lambda () 
(set! x (rand-update x) ) 
x))) 

在 这 一 流 描述 中 ,我 们 根本 看 不 到 什么 随机 数 生成 器 。 在 这 里 只 有 一 个 随机 数 的 流 ， 通 
过 对 rand-update 的 一 系列 顺序 调用 产生 : 

(define random-numbers 


(cons-stream random-init 


(stream-map rand-update random-numbers))) 


我 们 用 它 构造 出 在 random-numbers 流 中 顺序 的 数 对 上 的 Cesiro 试 验 的 输出 流 : 
(define cesaro-stream 
(map-successive-pairs (lambda (r1 r2) (= (gcd rl r2) 1)) 
random-numbers) ) 
(define (map-successive-pairs f s) 
(cons-stream 
(£ (stream-car s) (stream-car (stream-cdr s))) 


(map-successive-pairs f (stream-cdr (stream-cdr s))))) 


现在 将 cesaro-stream 馈 人 monte-carlo 过 程 ， 该 过 程 生 成 出 一 个 可 能 性 估计 的 流 。 得 到 
的 结果 被 变换 到 一 个 估计 7 值 的 流 。 这 一 版 本 的 程序 里 根本 不 需要 用 参数 去 告诉 它 试 多 少 次 ， 
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如 果 去 查看 pi 流 里 更 后 面 的 值 ， 我 们 就 可 以 得 到 的 更 好 估计 (也 就 是 执行 更 多 的 试验 )。 
(define (monte-carlo experiment-stream passed failed) 
(define (next passed failed) 
(cons-stream 
(/ passed (+ passed failed) ) 
(monte-carlo 
(stream-cdr experiment-stream) passed failed) ) ) 
(if (stream-car experiment-stream) 
(next (+ passed 1) failed) 
(next passed (+ failed 1)))) 


(define pi 
(stream-map (lambda (p) (sqrt (/ 6 p))) 


(monte-carlo cesaro-stream 0 0))) 

这 一 方法 也 相当 模块 化 ， 因 为 这 里 仍然 构造 出 了 一 个 一 般 性 的 monte-carlo 过 程 ， 它 可 
以 处 理 任何 试验 。 而 且 这 里 没有 赋值 ， 也 没有 局 部 状态 。 

练习 3.81 ”练习 3.6 讨 论 了 推广 随机 数 生成 器 ， 使 人 可 以 重 置 随机 数 序列 ， 以 便 生 成 出 
“随机 ” 数 的 可 重复 序列 。 请 做 出 这 种 生成 器 的 一 个 流 模型 ， 它 对 一 个 表示 需求 的 输入 流 操 作 ， 
或 者 是 generate 一 个 新 随机 数 ， 或 者 是 将 序列 reset 为 某 个 特定 值 ， 进 而 生成 所 需 的 随机 
数 流 。 在 你 的 解 中 不 要 使 用 赋值 。 

练习 3.82 ”以 流 的 方式 重新 做 练习 3.5 里 的 蒙特 卡 罗 积 分 ，estimate-integral 的 流 版 
本 将 不 需要 参数 告知 执行 试验 的 次 数 ， 相 反 ， 它 将 生成 一 个 表示 越 来 越 多 试验 次 数 的 估 值 流 ， 

时 间 的 函数 式 程序 设计 观点 

现在 回 到 有 关 对 象 和 状态 的 问题 ， 这 是 本 章 开始 提出 的 ， 现 在 让 我 们 从 一 种 新 的 角度 去 
看 它们 。 引 进 赋值 和 变动 对 象 ， 就 是 为 了 提供 一 种 机 制 ， 以 便 能 模块 化 地 构造 出 程序 ， 去 模 
拟 具有 状态 的 系统 。 我 们 构造 了 包含 内 部 状态 变量 的 计算 对 象 ， 用 赋值 去 修改 这 些 变量 。 我 
们 利用 对 应 计算 对 象 的 时 序 行为 去 模拟 现实 世界 中 的 各 种 对 象 的 时 序 行为 。 

现在 已 经 看 到 ， 流 为 模拟 具有 内 部 状态 的 对 象 提供 了 另 一 种 方式 。 可 以 用 一 个 流 去 模拟 
一 个 变化 的 量 ， 例 如 某 个 对 象 的 内 部 状态 ， 用 流 表 示 其 顺序 状态 的 时 间 史 。 从 本 质 上 说 ， 这 
里 的 流 将 时 间 显 式 地 表示 了 出 来 ， 因 此 就 松 开 了 被 模拟 的 世界 里 的 时 间 与 求 值 过 程 中 事件 发 
生 的 顺序 之 间 的 紧密 联系 。 确 实 ， 由 于 aelay 的 出 现 ， 在 模型 中 被 模拟 的 时 间 与 求 值 中 事件 
发 生 的 顺序 之 间 已 经 没有 什么 关系 了 。 

为 了 进一步 对 比 这 两 种 模拟 方式 ， 让 我 们 重新 考虑 一 个 “取款 处 理 器 ”的 实现 ， 它 管理 
着 一 个 银行 账户 的 余额 。 在 3.1.3 节 里 ， 我 们 实现 了 这 一 处 理 器 的 一 个 简化 版 本 : 

(define (make-simplified-withdraw balance) 

(lambda (amount) 


(set! balance (- balance amount)) 


balance)) 
调用 make-simplified-withdraw 将 生成 出 这 种 计算 对 象 ， 每 个 这 种 对 象 里 都 有 局 部 变量 
balance， 其 值 将 在 对 这 个 对 象 的 一 系列 调用 中 逐步 减少 。 这 些 对 象 以 amount 为 参数 ， 返 
回 一 个 新 的 余额 值 。 我 们 可 以 设想 ， 银 行 账户 的 用 户 送 一 个 输入 序列 给 这 种 对 象 ， 由 它 得 到 
一 系列 返回 值 ， 显 示 在 某 个 显示 屏幕 上 。 
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换 一 种 方式 ， 我 们 也 可 以 将 一 个 提 款 处 理 器 模拟 为 一 个 过 程 ， 它 以 一 个 余额 值 和 一 个 提 
款 流 作为 参数 ， 生 成 账户 中 顺序 余额 的 流 : 
(define (stream-withdraw balance amount-stream) 
(cons-stream 
balance 
(stream-withdraw (- balance (stream-car amount-stream)) 


(stream-cdr amount-stream) ) ) ) 


stream-withdraw 实 现 了 一 个 具有 良好 定义 的 数学 函数 ， 其 输出 完全 由 输入 确定 。 当 然 ， 
这 里 假定 了 输入 amount -stream 是 由 用 户 送 来 的 顺序 值 构成 的 流 ， 作 为 结果 的 余额 流 将 被 
显示 出 来 。 这 样 ， 从 送 入 这 些 值 并 观看 结果 的 用 户 的 角度 看 ， 这 一 流 过 程 的 行为 与 由 make- 
simplified-withdraw 创 建 的 对 象 并 没有 什么 不 同 。 当 然 ， 在 这 种 流 方式 里 没有 赋值 ， 没 
有 局 部 状态 变量 ， 因 此 也 就 不 会 有 我 们 在 3.1.3 节 所 遇 到 的 种 种 理论 困难 。 但 是 这 个 系统 也 有 
状态 ! 

这 确实 是 极其 惊人 的 。 虽 然 stream-withdraw 实 现 了 一 个 具有 良好 定义 的 数学 函数 ， 
其 行为 根本 不 会 变化 ， 用 户 看 到 的 却 是 在 这 里 与 一 个 改变 着 状态 的 系统 交互 。 消 除 这 一 悖 论 
的 一 种 方式 是 认识 到 ， 正 是 由 于 用 户 方 的 时 态 的 存在 ， 为 这 个 系统 赋予 了 状态 特性 。 如 果 用 
户 从 自己 的 交互 问题 上 后 退 一 步 ， 以 余额 流 的 方式 思考 问题 ， 而 不 是 去 看 个 别 的 交易 ， 这 个 
系统 看 上 去 就 是 无 状态 的 了 ?2 。 

从 一 个 复杂 过 程 中 的 一 部 分 的 观点 出 发 ， 其 他 的 部 分 看 起 来 正在 随 着 时 间 变 化 ， 它 们 有 
着 隐蔽 的 随时 间 变 化 的 局 部 状态 。 如 果 我 们 希望 去 写 程序 ， 在 计算 机 里 用 某 种 结构 去 模拟 现 
实 世界 中 的 这 类 自然 分 解 ( 就 像 我 们 从 自己 的 观点 ， 将 它 看 作 世 界 的 一 个 部 分 那样 )， 那 么 就 
会 做 出 一 些 不 是 函数 式 的 计算 对 象 一 一 它们 必须 随 着 时 间 不 断 变化 。 我 们 用 局 部 状态 变量 去 
模拟 状态 ， 用 对 这 些 变量 的 赋值 模拟 状态 的 变化 。 在 这 样 做 的 时 候 ， 就 是 在 用 计算 执行 中 的 
时 间 去 模拟 我 们 所 在 的 世界 里 的 时 间 ， 也 就 是 把 “对 象 ” 和 弄 进 了 计算 机 。 

用 对 象 来 做 模拟 是 威力 强大 的 ， 也 很 直观 ， 这 一 情况 的 主要 根源 ， 就 在 于 它 非常 符合 我 
们 对 自己 身 处 其 中 并 与 之 交流 的 世界 的 看 法 。 然 而 ， 正 如 在 读 完 这 一 章 的 整个 过 程 中 我 们 已 
经 反复 看 到 的 ， 这 种 模型 也 产生 了 对 于 事件 的 顺序 ， 以 及 同步 多 个 进程 的 玉手 问题 。 避 免 这 
些 问题 的 可 能 性 推动 着 函数 式 程序 设计 语言 的 开发 ， 这 类 语言 里 根本 不 提供 赋值 或 者 变动 对 
象 。 在 这 样 的 语言 里 ， 所 有 过 程 实现 的 都 是 它们 的 参数 上 的 定义 良好 的 数学 函数 ， 其 行为 不 
会 变化 。 国 数 式 途径 对 于 处 理 并 发 系统 特别 有 吸引 力 22。 

但 是 ， 另 一 方面 ， 如 果 我 们 贴近 观察 ,就 会 看 到 与 时 间 有 关 的 问题 也 潜入 了 函数 式 模型 
之 中 。 一 个 特别 麻烦 的 领域 出 现在 我 们 希望 设计 交互 式 系 统 的 时 候 ， 特 别 是 如 果 需 要 去 模拟 
一 些 独立 对 象 之 间 的 交互 。 举 个 例子 ， 我 们 再 次 考虑 允许 共用 账户 的 银行 系统 的 实现 。 普 通 
系统 里 将 使 用 赋值 和 状态 ， 在 模拟 Peter 和 Paul 共 享 一 个 账户 时 ， 我 们 让 Peter 和 Paul 将 他 们 的 
交易 请 求 送 到 同一 个 银行 账户 对 象 ， 就 像 在 3.1.3 节 里 所 看 到 的 那样 。 从 流 的 观点 看 ， 在 这 里 


2 物理 中 也 类 似 ， 当 我 们 观察 一 个 正在 移动 的 粒子 时 ,我 们 说 该 粒子 的 位 置 (状态) 正在 变化 。 然 而 ， 从 粒子 
的 世界 线 的 观点 看 ， 这 里 根本 就 不 涉及 任何 变化 。 

2? John Backus (Fortran 的 发 明 者 ) 在 1978 年 得 到 图 灵 奖 时 特别 赞赏 函数 式 程序 设计 。 在 他 的 授奖 讲演 中 
(Backus 1978) 强烈 地 推崇 函数 式 途径 。Henderson 1980 和 Darlington, Henderson, and Turner 1982 给 出 了 有 
关 函 数 式 程序 设计 的 很 好 综述 。 


一 


根本 就 没有 什么 “对 象 "， 我 们 已 经 说 明了 可 以 用 一 个 计算 过 程 去 模拟 银行 账户 ， 该 过 程 在 一 
个 请 求 交易 的 流 上 操作 ， 生 成 一 个 系统 响应 的 流 。 我 们 也 同样 能 模拟 Peter 和 Paul 有 着 共用 账 
户 的 事实 ， 只 要 将 Peter 的 交易 请 求 流 与 Paul 的 交易 请 求 流 归 并 ， 并 把 归并 后 的 流 送 给 那个 银 
行 账户 过 程 ， 如 图 3-38 所 示 。 


Peter 的 请 求 


Paul 的 请 求 





图 3-38 一 个 合用 账户 ， 通 过 合并 两 个 交易 请 求 流 的 方式 模拟 


这 种 处 理 方式 的 麻烦 就 在 于 归并 的 概念 。 通 过 简单 交替 地 从 Peter 的 请 求 中 取 一 个 ， 而 后 
从 Paul 的 请 求 中 取 一 个 的 方式 根本 不 行 。 假 定 Paul 很 少 访问 这 个 账户 ， 我 们 将 很 难 强 迫 Peter 
等 待 Paul 对 账户 的 访问 ， 而 后 才能 进行 自己 的 第 二 次 访问 。 无 论 这 种 归并 如 何 实现 ， 它 都 必 
须 在 某 种 由 Peter 和 Paul 可 以 看 到 的 “真实 上 时间” 的 约束 之 下 交错 归并 这 两 个 交易 流 ， 这 也 就 
是 说 ， 如 果 Peter 和 Paul 会 面 了 ， 他 们 总 可 以 一 致 地 认为 ， 某 些 交易 已 经 在 这 次 会 面 之 前 做 了 ， 
其 他 交易 将 在 这 次 会 面 之 后 做 总 。 这 正好 是 在 3.4.1 节 里 我 们 不 得 不 去 处 理 的 同一 个 约束 条 件 ， 
在 那里 我 们 发 现 需 要 引进 显 式 同 步 ， 以 确保 在 并 发 处 理 具有 状态 的 对 象 的 过 程 中 ， 各 个 事件 
是 按照 “正确 ”顺序 发 生 的 。 这 样 ， 虽 然 这 里 试图 支持 函数 式 的 风格 ,但 在 需要 归并 来 自 不 
同 主体 的 输入 时 ， 又 要 重新 引入 函数 式 风 格致 力 于 消除 的 同一 个 问题 。 

本 章 开 始 时 提出 了 一 -个 目标 ， 那 就 是 构造 出 一 些 计 算 模 型 ,使 其 结构 能 够 符合 我 们 对 于 
试图 去 模拟 的 真实 世界 的 看 法 。 我 们 可 以 将 这 一 世界 模拟 为 一 集 相 互 分 离 的 、 受 时 间 约 束 的 、 
具有 状态 的 相互 交流 的 对 象 ， 或 者 可 以 将 它 模拟 为 单一 的 、 无 时 间 也 无 状态 的 统一 体 。 每 种 
观点 都 有 其 强 有 力 的 优势 ， 但 就 其 自身 而 言 ， 又 没有 一 种 方式 能 够 完全 令 人 满意 。 我 们 还 在 
等 待 着 一 个 大 统一 的 出 现 ”。 


2 请 注意 ,一 般 地 说 ， 对 于 任意 两 个 流 ， 存 在 着 多 于 一 种 可 接受 的 交错 顺序 。 这 样 ， 从 技术 上 看 ,“ 归 并 ”就 
是 一 个 关系 而 不 是 一 个 函数 一 一 得 到 的 回答 并 不 是 输入 的 确定 性 函数 。 我 们 已 经 提 到 过 (脚注 167)， 非 确定 
性 在 处 理 并 发 方面 是 本 质 性 的 。 这 一 归并 关系 展示 了 同样 本 质 性 的 非 确定 性 。 在 4.3 节 里 我 们 将 看 到 来 自 另 一 
种 观点 的 非 确定 性 。 

?04 对 象 模 型 对 世界 的 近似 在 于 将 其 分 割 为 独立 的 片断 ， 函 数 式 模型 则 不 是 沿 着 对 象 间 的 边界 去 做 模块 化 。 当 
“对 象 ”之 间 不 共享 的 状态 远 远 大 于 它们 所 共享 的 状态 时 ， 对 象 模型 就 特别 好 用 。 这 种 对 象 观点 失效 的 一 个 
地 方 就 是 量子 力学 ， 在 那里 ， 将 物体 看 作 独 立 的 粒子 就 会 导致 悖 论 和 混乱 。 将 对 象 观点 与 函数 式 观点 合并 可 
能 与 程序 设计 的 关系 不 大 ， 而 是 与 基本 认识 论 有 关 的 论题 。 


第 4 章 元 语言 抽象 


用 普通 的 话 来 说 ， 这 个 咒语 就 是 一 阿 巴 拉 卡 达 巴 拉 ， 营 麻 开 门 ， 而 且 还 有 另外 
的 东西 一 一 在 一 个 故事 里 的 咒语 在 另 一 故事 里 就 不 灵 了 。 真 正 的 魔力 在 于 知道 哪个 咒 
语 有 用 ,在 什么 时 候 ， 用 于 做 什么 其 庄 窍 就 在 于 学 会 有 关 的 读 窍 。 

A Aedibae eis RTF BAR PF TLAN+ 
个 可 以 用 笔画 出 来 的 弯 弯 曲线 。 这 就 是 最 关键 的 ! 而 那些 珍宝 也 是 如 此 ， 如 果 我 们 
能 将 它们 拿 到 手中 的 话 ! 这 就 像 是 说 ,就 像 通 向 珍宝 的 钥匙 就 是 珍宝 ! 


— John Barth, Chimera ( 奇想 ) 


在 前 面 有 关 程 序 设计 的 研究 中 ， 我 们 已 经 看 到 专业 程序 员 在 设法 控制 他 们 的 设计 的 复杂 
性 时 ， 采 用 的 正 是 与 所 有 复杂 系统 的 设计 者 同样 的 通用 技术 。 他 们 将 基本 元 素 组 合 起 来 ， 形 
eed om ee te ets ei tia ag 

结构 的 大 尺度 观点 ， 保 持 系 统 的 模块 性 。 为 了 阐释 这 些 技术 ， 我 们 一 直 用 Lisp 作 为 语言 ， 
KAER, 构造 用 于 模拟 现实 世界 中 复杂 现象 的 复合 性 计算 对 象 和 计算 过 程 。 然 而 ， 随 
着 所 面 对 的 问题 变 得 更 加 复杂 ， 我 们 会 发 现 Lisp， 以 及 任何 一 种 确定 的 程序 设计 语言 ， 都 不 
足以 满足 我 们 的 需要 。 我 们 必须 经 常 转向 新 的 语言 ， 以 便 能 够 更 有 效 地 表述 自己 的 想法 。 建 
立新 语言 是 在 工程 设计 中 控制 复杂 性 的 一 种 威力 强大 的 工作 策略 ， 我 们 常常 能 通过 采用 一 种 
新 语言 而 提升 处 理 复杂 问题 的 能 力 ， 因 为 新 语言 可 能 使 我 们 以 一 种 完全 不 同 的 方式 ， 利 用 不 
同 的 原 语 ， 不 同 的 组 合 方式 和 抽象 方式 去 描述 (因此 也 是 思考 ) 所 面 对 的 问题 ， 而 这 些 都 可 
以 是 为 了 手头 需要 处 理 的 问题 而 专门 打造 的 ””。 

程序 设计 中 总 会 涉及 多 种 语言 。 这 里 有 物理 的 语言 ， 例 如 针对 特定 计算 机 的 机 器 语言 。 
这 些 语言 关注 的 是 数据 和 控制 在 存储 器 和 基本 机 器 指令 中 一 系列 二 进 制 位 上 的 表示 。 机 器 语 
言 程序 员 关 心 的 是 如 何 利用 给 定 硬件 构造 出 各 种 系统 和 有 用 功能 ， 以 便 在 资源 受 限 的 条 件 下 
有 效 地 实现 计算 过 程 。 高 级 语言 构筑 在 机 器 语言 之 上 ， 它 们 隐藏 起 数据 被 表示 为 一 些 二 进 制 
位 ， 程 序 被 表示 为 一 个 基本 指令 序列 的 许多 细节 。 这 些 语 言 提 供 了 一 些 组 合 和 抽象 机 制 ， 例 
如 过 程 定义 ， 因 此 更 适合 大 规模 的 系统 组 织 。 


20S 同样 的 想法 在 工程 中 随处 可 见 。 举 例 来 说 ， 电 子 工程 师 使 用 许多 不 同 的 语言 去 描述 电路 ， 其 中 的 两 种 语言 是 
电子 网 络 的 语言 和 电子 系统 的 语言 。 网 络 语 言 强调 的 是 基于 各 种 电子 元 件 为 设备 建 模 ， 在 这 个 语言 里 的 基本 
对 象 是 各 种 基本 电子 元 器 件 ， 如 电阻 器 、 电 容器 、 电 感 器 和 晶体 管 ， 它 们 的 特征 采用 电压 和 电流 等 物理 变量 
刻画 。 在 采用 网 络 语言 描述 电路 时 ， 工 程 师 关 心 的 是 一 个 设计 的 物理 特性 。 与 此 相对 应 ， 系 统 语言 中 的 基本 
对 象 是 信号 处 理 模块 ， 如 过 滤器 和 放大 器 。 此 时 需要 关心 的 只 是 这 些 模 块 的 功能 行为 以 及 对 信号 的 操作 ， 并 
不 关心 它们 在 物理 的 电流 电压 上 的 实现 。 这 种 系统 语言 是 在 网 络 语言 的 基础 上 构造 起 来 的 ， 因 为 信号 处 理 系 
统 的 元 素 是 用 电子 网 络 构造 起 来 的 。 但 是 ， 设 计 者 在 这 里 关心 的 是 为 解决 给 定 的 应 用 问题 而 做 的 电子 设备 的 
大 规模 组 织 ， 并 假定 了 其 中 各 部 分 的 物理 可 行 性 。2.2.4 节 中 的 图 形 语 言 所 展示 的 分 层 设计 技术 正好 是 分 层 语 
言 的 另 一 个 例子 。 
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元 语言 抽象 就 是 建立 新 的 语言 。 它 在 工程 设计 的 所 有 分 支 中 都 扮演 着 重要 的 角色 ， 在 计 
算 机 程序 设计 领域 更 是 特别 重要 ， 因 为 这 个 领域 中 ， 我 们 不 仅 可 以 设计 新 的 语言 ， 还 可 以 通 
过 构造 求 值 器 的 方式 实现 这 些 语言 。 对 于 某 个 程序 设计 语言 的 求 值 器 (或 者 解释 器 ) 也 是 一 
个 过 程 ， 在 应 用 于 这 个 语言 的 一 个 表达 式 时 ， 它 能 够 执行 求 值 这 个 表达 式 所 要 求 的 动作 。 

把 这 一 点 看 作 程序 设计 中 最 基本 的 思想 一 点 也 不 过 分 : 

求 值 器 决定 了 一 个 程序 设计 语言 中 各 种 表达 式 的 意义 ， 而 它 本 身 也 不 过 就 是 另 一 个 

程序 。 

认识 到 这 一 点 ， 我 们 就 需要 修正 有 关 自 己 作为 程序 员 的 看 法 。 现 在 应 该 开始 将 自己 看 作 
语言 的 设计 师 ， 而 不 仅仅 是 别人 设计 好 的 语言 的 使 用 者 。 

事实 上 ， 我 们 几乎 可 以 把 任何 程序 看 作 某 个 语言 的 求 值 器 。 举 例 说 ，2.5.3 节 的 多 项 式 运 
算 系 统 里 包含 着 多 项 式 的 算术 规则 ， 以 及 它们 基于 表 结 构 数据 操作 的 实现 。 如 果 我 们 扩充 这 
一 系统 ， 加 进 读 入 和 打印 多 项 式 的 过 程 ， 我 们 就 有 了 一 个 用 于 处 理 符号 数学 问题 的 专用 语言 
的 核心 部 分 。3.3.4 节 的 数字 逻辑 模拟 器 和 3.3.5 节 的 约束 传播 系统 ， 从 它们 自己 的 角度 看 ， 也 
都 是 完全 合格 的 语言 。 它 们 都 有 自己 的 基本 操作 ， 组 合 手段 和 抽象 手段 。 从 这 样 一 种 观点 看 
问题 ， 处 理 大 规模 计算 机 系统 的 技术 ， 与 构造 新 的 程序 设计 语言 的 技术 有 紧密 的 联系 ， 而 计 
算 机 科学 本 身 不 过 (也 不 更 少 ) 就 是 有 关 如 何 构造 适当 的 描述 语言 的 学 科 。 

现在 我 们 将 要 启程 ， 去 讨论 有 关 如 何在 一 些 语言 的 基础 上 构造 新 语言 的 技术 。 在 这 一 章 
里 ， 我 们 将 用 Lisp 语 言 作为 基础 ， 将 各 种 求 值 器 实现 为 一 些 Lisp 过 程 。 因 为 Lisp 的 描述 能 力 和 
操作 符号 表达 式 的 能 力 ， 它 特别 适合 用 于 这 一 工作 。 作 为 理解 语言 实现 问题 的 第 一 步 ， 我 们 
将 首先 构造 起 一 个 针对 Lisp 本 身 的 求 值 器 。 由 我 们 的 求 值 器 实现 的 语言 将 是 Lisp 的 Scheme 方 
言 的 一 个 子 集 ， 也 就 是 本 书 中 所 使 用 的 语言 。 虽 然 本 章 描述 的 求 值 器 针对 的 是 Lisp 的 一 个 特 
定 方言 ， 但 是 它 已 经 包含 了 任何 为 在 顺序 计算 机 上 写 程序 而 设计 的 表达 式 语言 的 求 值 器 的 基 
本 结构 (事实 上 ， 大 部 分 语言 的 处 理 器 ， 在 其 深 处 都 包含 了 一 个 小 小 的 “Lisp” 求 值 器 )。 为 
便于 展示 和 讨论 ， 我 们 对 这 个 求 值 器 做 了 一 些 简化 ， 某 些 特征 被 放 到 一 边 ， 其 中 有 一 些 对 于 
产品 质量 的 Lisp 系 统 可 能 是 非常 重要 的 。 但 无 论 如 何 ， 这 个 简单 求 值 器 已 经 足以 执行 本 书 中 
的 大 部 分 程序 了 *”。 

将 求 值 器 实现 为 一 个 清 清 楚楚 的 Lisp 程 序 ， 还 带 来 了 另 一 个 好 处 ， 这 使 我 们 可 以 通过 修 
改 这 个 求 值 器 程序 ， 实 现 各 种 不 同 的 求 值 规则 。 能 够 很 好 利用 这 一 优势 的 一 个 地 方 ， 是 我 们 
可 以 取得 对 计算 模型 中 所 和 嵌入 的 时 间 概 念 的 进一步 控制 ， 这 也 是 第 3 章 讨论 的 核心 问题 。 在 那 
里 ， 我 们 利用 流 的 概念 去 松 开 计 算 机 里 的 时 间 表 示 与 现实 世界 的 时 间 之 间 的 联系 ， 以 降低 由 
状态 和 赋值 带 来 的 复杂 性 。 然 而 ， 我 们 的 流程 序 有 时 写 起 来 很 哆 唆 ， 因 为 受到 了 Scheme 的 应 
用 顺序 求 值 的 限制 。 在 4.2 节 里 我 们 要 修改 基础 语言 ， 提 供 一 个 更 优雅 的 途径 ， 采 用 的 方式 就 
是 修改 求 值 器 ， 提 供 按 照 正 则 序 求 值 的 能 力 。 

4.3 节 将 要 实现 一 项 更 加 雄心 勃勃 的 语言 修改 ， 在 那里 ， 表 达 式 可 以 有 多 重 的 值 ， 而 不 仅 
仅 是 一 个 值 。 在 那里 的 非 确定 性 计算 的 语言 里 ， 我 们 可 以 很 自然 地 表达 这 样 的 计算 过 程 ， 在 

206 我 们 的 求 值 器 所 没有 涉及 的 最 重要 特征 是 有 关 处 理 错误 和 支持 查 错 的 机 制 。 有 关 求 值 器 的 更 深入 讨论 可 见 


Friedman, Wand, and Haynes 1992， 那 里 通过 一 系列 用 Scheme 写 出 的 求 值 器 ， 揭 示 了 程序 设计 语言 里 的 各 种 
有 关 现 象 。 
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其 中 生成 出 一 个 表达 式 的 所 有 值 ， 而 后 从 中 搜索 出 满足 某 些 特定 约束 条 件 的 值 。 从 计算 和 时 
间 模 型 的 角度 看 ， 这 样 做 就 像 是 允许 时 间 有 分 岔 ， 形 成 一 集 “ 可 能 的 未 来 " ， 而 后 搜索 出 适当 
的 时 间 线 路 。 借 助 于 这 个 非 确定 性 求 值 器 ， 维 护 多 重 值 的 轨迹 并 执行 搜索 的 工作 都 将 由 语言 
的 基础 机 制 自动 处 理 。 

在 4.4 节 里 实现 了 一 个 远 辑 程序 设计 语言 ， 在 那里 知识 用 关系 的 形式 描述 ， 而 不 是 描述 为 
带 有 输入 输出 的 计算 过 程 。 虽 然 这 样 得 到 的 语言 与 Lisp 大 相 径 庭 ， 也 与 所 有 常规 语言 根本 不 
同 ， 但 我 们 还 是 会 看 到 ， 这 个 逻辑 程序 设计 的 求 值 器 仍然 享用 着 Lisp 求 值 器 的 基本 结构 。 


4.1 元 循环 求 值 器 


现在 我 们 要 把 Lisp 求 值 器 实现 为 一 个 Lisp 程 序 ， 考 虑 用 一 个 本 身 也 在 Lisp 里 实现 的 求 值 器 
去 求 值 Lisp 程 序 。 这 看 起 来 似乎 是 一 种 循环 定义 。 不 过 ， 求 值 是 一 种 计算 过 程 ， 所 以 用 Lisp 来 
描述 这 个 过 程 也 是 合适 的 ， 因 为 毕 况 它 一 直 是 我 们 用 来 描述 计算 过 程 的 工具 ”。 用 与 被 求 值 
的 语言 同样 的 语言 写 出 的 求 值 器 被 称 为 元 循环 。 

从 根本 上 说 ， 元 循环 求 值 器 也 就 是 3.2 节 所 描述 求 值 的 环境 模型 的 一 个 Scheme 表达 形式 。 
回忆 一 下 ， 该 模型 包括 两 个 部 分 : 

1) 在 求 值 一 个 组 合式 (一 个 不 是 特殊 形式 的 复合 表达 式 ) 时 ， 首 先 求 值 其 中 的 子 表达 式 ， 
而 后 将 运算 符 子 表达 式 的 值 作用 于 运算 对 象 子 表达 式 的 值 。 

2) 在 将 一 个 复合 过 程 应 用 于 一 集 实际 参数 时 ， 我 们 在 一 个 新 的 环境 里 求 值 这 个 过 程 的 体 。 
构造 这 一 环境 的 方式 就 是 用 一 个 框架 扩充 该 过 程 对 象 的 环境 部 分 ， 框 架 中 包含 的 是 这 个 过 程 
的 各 个 形式 参数 与 这 一 过 程 应 用 的 各 个 实际 参数 的 约束 。 

这 两 条 规则 描述 了 求 值 过 程 的 核心 部 分 ， 也 就 是 它 的 基本 循环 。 在 这 一 循环 中 ， 表 达 式 
在 环境 中 的 求 值 被 归 约 到 过 程 对 实际 参数 的 应 用 ， 而 这 种 应 用 又 被 归 约 到 新 的 表达 式 在 新 的 
环境 中 的 求 值 ， 如 此 下 去 ， 直 至 我 们 下 降 到 符号 〈 其 值 可 以 在 环境 中 找到 ) 或 者 基本 过 程 
(它们 可 以 直接 应 用 )， 见 图 4-1””。 这 一 求 值 循环 实际 体现 为 求 值 器 里 的 两 个 关键 过 程 eval 
和 apply 的 相互 作用 ，4.1.1 市 将 描述 它们 (参看 图 4-1)。 

求 值 器 的 实现 依赖 于 一 些 定义 了 被 求 值 表达 式 的 语法 形式 的 过 程 。 我 们 仍 将 采用 数据 抽 
象 技术 ， 设 法 使 求 值 器 独立 于 语言 的 具体 表示 。 例 如 ， 我 们 并 不 事先 约定 一 些 选择 ， 例 如 确 


”即便 如 此 ， 这 里 的 求 值 器 还 是 没有 表现 出 来 求 值 过 程 的 某 些 重要 方面 。 其 中 最 重要 的 就 是 一 个 过 程 调 用 其 他 
过 程 以 及 将 值 返 回调 用 者 的 机 制 的 细节 。 我 们 将 在 第 5 章 里 讨论 这 些 问题 ， 那 里 通过 将 求 值 器 实现 为 一 个 简 
单 的 寄存 器 机 器 的 方式 ， 更 贴近 地 观察 这 一 求 值 过 程 。 

” 如果 我 们 已 经 得 到 了 应 用 基本 过 程 的 能 力 ， 那 么 在 实现 这 种 求 值 器 时 还 需要 做 些 什 么 呢 ? 求 值 器 的 工作 并 不 
是 去 描述 语言 的 基本 过 程 ， 而 是 提供 一 套 连接 方式 ， 提 供 一 些 组 合 手段 和 抽象 手段 ， 借 助 于 它们 将 基本 过 程 
联系 起 来 ， 形 成 一 个 语言 。 特 别 是 : 

“ 求 值 器 使 我 们 能 够 处 理 嵌 套 的 表达 式 。 举 例 来 说 ,虽然 简单 地 应 用 基本 过 程 足以 求 值 表达 式 (+ 1 6)， 
但 却 无 法 处 理 (+ 1 (* 2 3))。 如 果 仅仅 考虑 基本 过 程 + ， 它 要 求 的 实际 参数 必须 是 数 。 如 果 将 表 
达 式 (* 2 3) 作为 实际 参数 送 给 它 ， 就 会 把 它 哮 死 。 求 值 器 所 扮演 的 一 个 重要 角色 就 是 安排 好 一 套 
办 法 ， 在 需要 将 像 (* 2 3) 这 样 的 复合 参数 传递 给 十 作为 实 参 之 前 ， 首 先 把 它 归 约 到 6。 

“ 求 值 器 使 我 们 可 以 使 用 变量 。 举 例 说 ， 做 加 法 的 基本 过 程 不 能 处 理 像 (+ x 1) 这 样 的 表达 式 。 我 们 
需要 求 值 器 维护 一 批 变量 的 轨迹 ， 在 调用 基本 过 程 之 前 取得 有 关 变 量 的 值 。 

* 求 值 器 使 我 们 可 以 定义 复合 过 程 。 这 涉及 到 维护 过 程 定 义 的 轨迹 ， 知 道 如 何在 求 值 表达 式 的 过 程 中 去 
使 用 这 种 定义 ， 为 过 程 接受 实际 参数 提供 一 种 机 制 等 。 

* 求 值 器 还 要 提供 一 批 特殊 形式 ， 它 们 的 求 值 方式 与 普通 过 程 调 用 不 同 。 
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定 一 个 赋值 是 用 符号 set ! 开 头 的 表 的 形式 表示 ， 而 是 用 一 个 谓词 assignment? 去 检查 是 不 
是 赋值 ， 并 用 抽象 的 选取 函数 assignment -variable 和 assignment-value 去 访问 赋值 
中 相应 的 部 分 。 表 达 式 的 实现 将 在 4.1.2 节 里 描述 。 在 4.1.3 节 里 还 要 描述 一 些 操作 ， 它 们 刻画 
了 过 程 和 环境 的 表示 形式 。 举 例 来 说 ，make-procedure 将 构造 起 一 个 复合 过 程 ， 
lookup-variable-value 提 取 变 量 的 值 ，apply-primitive-procedure 将 一 个 基本 
过 程 应 用 于 一 组 给 定 的 实际 参数 。 


表达 式 ， 
过 程 ， 环境 
实际 参数 


图 4-1 揭示 计算 机 语言 本 质 的 eval-apply 循 环 
4.1.1 求 值 器 的 内 核 
求 值 过 程 可 以 描述 为 两 个 过 程 eval 和 apply 之 间 的 相互 作用 。 


eval 

eval 的 参数 是 一 个 表达 式 和 一 个 环境 。eval 对 表达 式 进行 分 类 ， 依 此 引导 自己 的 求 值 
工作 。eval 的 构造 就 像 是 一 个 针对 被 求 值 表达 式 的 语法 类 型 的 分 情况 分 析 。 为 了 保持 这 一 过 
程 的 通用 性 ， 我 们 将 采用 抽象 的 方式 描述 表达 式 类 型 的 判定 工作 ， 其 中 并 不 为 各 种 表达 式 确 
定 任何 特殊 表示 方式 。 针 对 每 类 表达 式 有 一 个 谓词 完成 相应 的 检测 ， 有 一 套 抽象 方法 去 选择 
表达 式 里 的 各 个 部 分 。 这 种 抽象 语法 使 我 们 很 容易 想到 ， 可 以 怎样 改变 这 个 求 值 器 所 处 理 的 
语言 的 语法 形式 。 为 此 只 需 采 用 另 一 组 不 同 的 语法 过 程 。 

基本 表达 式 : 

。 对 于 自 求 值 表达 式 ， 例 如 各 种 数 ，eval1 直 接 返 回 这 个 表达 式 本 身 。 

"eval 必 须 在 环境 中 查找 变量 ， 找 出 它们 的 值 。 

特殊 形式 .: 

。 对 于 加 引号 的 表达 式 ，eval 返 回 被 引 的 表达 式 。 

。 对 于 变量 的 赋值 (或 者 定义 )， 就 需要 递归 地 调用 eval 去 计算 出 需要 关联 于 这 个 变量 的 

新 值 。 而 后 需要 修改 环境 ， 以 改变 (或 者 建立 ) 相应 变量 的 约束 。 

* 一 个 i1f 表 达 式 要 求 对 其 中 各 部 分 的 特殊 处 理 方式 ， 在 谓词 为 真 时 求 值 其 推论 部 分 ， 否 

则 就 求 值 其 替代 部 分 。 

* 一 个 lambda 必 须 被 转换 成 一 个 可 以 应 用 的 过 程 ， 方 式 就 是 将 这 个 lambda 表 达 式 所 描 

述 的 参数 表 和 体 与 相应 的 求 值 环境 包装 起 来 。 

* 一 个 begin 表 达 式 要 求 求 值 其 中 的 一 系列 表达 式 ， 按 照 它 们 出 现 的 顺序 。 

* 分 情况 分 析 (cond) 将 被 变换 为 一 组 嵌 套 的 ifE 表 达 式 ， 而 后 求 值 。 
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组 合式 : 

。 对 于 一 个 过 程 应 用 ，eval 必 须 递归 地 求 值 组 合式 的 运算 符 部 分 和 运算 对 象 部 分 。 而 后 
将 这 样 得 到 的 过 程 和 参数 送 给 apply， 由 它 去 处 理 实际 的 过 程 应 用 。 

这 里 是 eval 的 定义 : 


(define (eval exp env) 
(cond ((self-evaluating? exp) exp) 
((variable? exp) (lookup-variable-value exp env) ) 
((quoted? exp) (text-of-quotation exp) ) 
((assignment? exp) (eval-assignment exp env) ) 
( (definition? exp) (eval-definition exp env) ) 
((if? exp) (eval-if exp env) ) 
((lambda? exp) 
(make-procedure (lambda-parameters exp) 
(lambda-body exp) 
env) ) 
((begin? exp) 
(eval-sequence (begin-actions exp) env) ) 
( (cond? exp) (eval (cond->if exp) env) ) 
((application? exp) 
(apply (eval (operator exp) env) 
(list-of-values (operands exp) env) )) 
(else 


(error "Unknown expression type -- EVAL" exp)))) 


为 了 清晰 起 见 ， 这 里 将 eval 实 现 为 一 个 采用 cond 的 分 情况 分 析 。 这 样 做 的 缺点 是 我 们 
的 过 程 只 处 理 了 若干 种 不 同类 型 的 表达 式 ， 如 果 要 加 入 新 定义 的 表达 式 类 型 ， 那 么 就 必须 直 
接 去 编辑 eval 的 定义 。 在 大 部 分 的 Lisp 实 现 里 ， 针 对 表达 式 类 型 的 分 派 都 采用 了 数据 导向 的 
方式 。 这 种 做 法 使 用 户 可 以 更 容易 增加 eval 能 分 辨 的 表达 式 类 型 ， 而 又 不 必修 改 eval 的 定 
义 本 身 (参见 练习 4.3)。 


apply 
apply 有 两 个 参数 ， 一 个 是 过 程 ， 一 个 是 该 过 程 应 该 去 应 用 的 实际 参数 的 表 。apply 将 
过 程 分 为 两 类 。 它 直接 调用 apply-primitive-procedure 去 应 用 基本 过 程 ， 应 用 复合 过 
程 的 方式 是 顺序 地 求 值 组 成 该 过 程 体 的 那些 表达 式 。 在 求 值 复合 过 程 的 体 时 需要 建立 相应 的 
环境 ， 这 个 环境 的 构造 方式 就 是 扩充 该 过 程 所 携带 的 基本 环境 ， 并 加 入 一 个 框架 ， 其 中 将 过 
程 的 各 个 形式 参数 约束 于 过 程 调用 的 实际 参数 。 下 面 是 apply 的 定义 : 
(define (apply procedure arguments) 
(cond ((primitive-procedure? procedure) 
(apply-primitive-procedure procedure arguments)) 
( (compound-procedure? procedure) 
(eval-sequence 
(procedure-body procedure) 
(extend-environment 
(procedure-parameters procedure) 
arguments 


(procedure-environment procedure) ) ) ) 
(else 
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(error 


"Unknown procedure type -- APPLY" procedure) ) ) ) 
过 程 参数 
eval 在 处 理 过 程 应 用 时 用 1ist-of-values 去 生成 实际 参数 表 ， 以 便 完 成 这 一 过 程 应 用 。 
list-of-values 以 组 合式 的 运算 对 象 为 参数 ， 求 值 各 个 运算 对 象 ， 返 回 这 些 值 的 表 ”: 
(define (list-of-values exps env) 
(if (no-operands? exps) 
*() 
(cons (eval (first-operand exps) env) 


(list-of-values (rest-operands exps) env)))) 


条 件 
eval-if 在 给 定 环 境 中 求 值 if 表 达 式 的 谓词 部 分 ， 如 果 得 到 的 结果 为 真 ，eval -if 就 
去 求 值 这 个 iE 的 推论 部 分 ， 否 则 它 就 求 值 其 奉 代 部 分 : 
(define (eval-if exp env) 
(if (true? (eval (if-predicate exp) env) ) 


(eval (if-consequent exp) env) 


(eval (if-alternative exp) env))) 


从 eval-if 里 对 true? 的 使 用 中 ， 可 以 清楚 地 看 到 在 被 实现 语言 与 实现 所 用 的 语言 之 间 
的 联系 。if-predicate 在 被 实现 的 语言 里 求 值 ， 产 生出 这 一 语言 里 的 一 个 值 。 解 释 器 的 请 
词 true? 将 该 值 翻译 为 可 以 由 实现 所 用 的 语言 里 的 if 检测 的 值 。 由 此 可 见 ， 在 这 个 元 循环 
求 值 器 中 所 采用 的 真 值 表示 ， 完 全 可 以 与 作为 其 基础 的 Scheme 不 同 *"。 


序列 
eval-sequence 用 在 apply 里 ， 用 于 求 值 过 程 体 里 的 表达 式 序 列 。 它 也 用 在 eval 里 ， 
用 于 求 值 begin 表 达 式 里 的 表达 式 序列 。 这 个 过 程 以 一 个 表达 式 序列 和 一 个 环境 为 参数 ， 按 
照 序列 里 表达 式 出 现 的 顺序 对 它们 求 值 。 它 返回 最 后 一 个 表达 式 的 值 。 
(define (eval-sequence exps env) 
(cond ((last-exp? exps) (eval (first-exp exps) env) ) 


(else (eval (first-exp exps) env) 


(eval-sequence (rest-exps exps) env) ))) 


赋值 和 定义 
下 面 过 程 处 理 变 量 赋值 。 它 调用 eval1 找 出 需要 赋 的 值 ， 将 变量 和 得 到 的 值 传 给 过 程 
set-variable-value!， 将 有 关 的 值 安置 到 指定 环境 里 : 


(define (eval-assignment exp env) 
(set-variable-value! (assignment-variable exp) 
(eval (assignment-value exp) env) 
env) 
"Ok) 


20 我 们 也 可 以 使 用 map (并 假定 cperands 返 回 的 是 表 ) 简化 eval 里 的 application? 部 分 ， 而 不 是 自己 另 
写 一 个 list-of-values 过 程 。 这 里 选择 不 用 map 是 为 了 强调 一 个 事实 ; 我 们 完全 可 以 不 用 任何 高 阶 过 程 
实现 这 个 求 值 器 (这 样 就 可 以 用 不 支持 高 阶 过 程 的 语言 来 写 求 值 器 )， 即 使 被 实现 的 语言 里 包含 高 阶 过 程 。 

1 在 目前 情况 下 ， 被 实现 的 语言 与 实现 所 用 的 语言 一 样 。 在 这 里 仔细 考究 true? 的 意义 ， 得 到 的 是 对 情况 的 更 
深入 的 认识 ， 并 不 会 破坏 事情 的 本 质 。 
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变量 定义 也 用 类 似 方 式 处 理 2 
(define (eval-definition exp env) 
(define-variable! (definition-variable exp) 
(eval (definition-value exp) env) 
ok) i 
这 里 的 选择 是 返回 一 个 符号 ok ， 作 为 赋值 和 定义 的 返回 值 ”“。 
练习 4.1 注意， 我 们 疫 办 法 说 循环 求 值 器 是 从 左 到 右 还 是 从 右 到 左 求 值 各 个 运算 对 象 ， 
因为 这 一 求 值 顺序 是 从 作为 其 基础 的 Lisp 那 里 继承 来 的 : 如 果 在 list -of -values 里 的 cons 
从 左 到 右 求 值 ， 那 么 list-of-values 也 将 从 左 到 右 求 值 ， 如 果 cons 的 参数 从 右 到 左 求 值 ， 
那么 list-of-values 也 将 从 右 到 左 求 值 。 
请 写 出 一 个 list-of-values 版 本 ,使 它 总 是 从 左 到 右 求 值 其 运算 对 象 ， 无 论 作为 其 基 
础 的 Lisp 采 用 什么 求 值 顺 序 。 另 外 写 出 一 个 总 是 从 右 到 左 求 值 的 1ist-of -values 版 本 。 


4.1.2 表达 式 的 表示 


这 个 求 值 器 很 像 2.3.2 节 讨论 的 符号 微分 程序 。 这 两 个 程序 完成 的 都 是 一 些 对 符号 表达 式 
的 操作 。 在 两 个 程序 里 ， 对 于 一 个 复合 表达 式 的 操作 结果 ， 也 都 是 由 表达 式 的 片段 递归 地 确 
定 的 ， 结 果 的 组 合 也 是 按照 一 种 由 表达 式 的 类 型 确定 的 方式 。 在 这 两 个 程序 里 ， 我 们 都 采用 
了 数据 抽象 技术 ， 借 以 松 开 一 般 性 的 操作 规则 与 表达 式 特定 表示 的 细节 方式 之 间 的 联系 。 在 
微分 程序 里 ， 这 意味 着 同一 个 微分 过 程 可 以 处 理 前 组 形式 、 中 级 形式 或 者 其 他 形式 的 代数 表 
达 式 。 对 于 求 值 器 ， 这 意味 着 ， 被 求 值 语言 的 语法 形式 可 以 仅仅 由 一 些 对 表达 式 进 行 分 类 和 
提取 表达 式 片段 的 过 程 确 定 。 

这 里 是 我 们 的 语言 的 语法 规范 : 

“这 里 的 自 求 值 表 达 式 只 有 数 和 字符 串 ; 

(define (self-evaluating? exp) 

(cond ((number? exp) true) 


((string? exp) true) 


(else false))) 


* 变量 用 符号 表示 : 


(define (variable? exp) (symbol? exp)) 


。 引 号 表达 式 的 形式 是 (quote <text-of-quotation>) *"; 
(define (quoted? exp) 
(tagged-list? exp ‘’quote) ) 


(define (text-of-quotation exp) (cadr exp) ) 


2 define 的 实现 中 忽略 了 处 理 内 部 定义 时 的 一 个 微妙 问题 ， 虽 然 这 里 的 做 法 对 于 大 部 分 情况 都 能 工作 。 我 们 
将 在 4.1.6 节 看 到 如 何 解 决 有 关 问 题 。 

22 正如 在 前 面 介绍 aefine 和 set ! 时 所 说 的 ， 在 Scheme 里 这 些 值 依赖 于 具体 的 实现 一 一 也 就 是 说 ， 实 现 者 可 以 
选择 返回 任意 的 值 。 

3 正如 2.3.1 节 所 说 , 求 值 器 看 到 的 引号 表达 式 是 以 guote 开 头 的 表 , 即使 这 种 表达 式 在 输入 时 用 的 是 一 个 引号 。 
举例 来 说 ， 求 值 器 看 到 的 表达 式 "a 实 际 上 是 (quote a)， 见 练习 2.55。 
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quoted? 借 助 于 过 程 tagged-1list? 定 义 ， 它 确定 一 个 表 的 开始 是 不 是 某 个 给 定 符号 : 
(define (tagged-list? exp tag) 
(if (pair? exp) 
(eq? (car exp) tag) 
false) ) 


。 赋 值 的 形式 是 (set! <var><value>); 


(define (assignment? exp) 


(tagged-list? exp ’set!)) 
(define (assignment-variable exp) (cadr exp) ) 
(define (assignment-value exp) (caddr exp) ) 
。 定 义 的 形式 是 : 
(define <var> <value>) 
或 者 


(define (<var><parameter;> ... <parameter,>) 
<body>) 


后 一 形式 (标准 的 过 程 定义 ) 只 是 下 面 形式 的 一 种 语法 包装 : 


(define <var> 


(lambda (<parameter;> ... <parameter,>) 
<body>) ) 
相应 的 语法 过 程 是 


(define (definition? exp) 


(tagged-list? exp ‘define) ) 


(define (definition-variable exp) 
(if (symbol? (cadr exp) ) 
(cadr exp) 
(caadr exp))) 


(define (definition-value exp) 
(if (symbol? (cadr exp) ) 
(caddr exp) 
(make-lambda (cdadr exp) ; formal parameters 
(cddr exp)))) ; body 


* lambda 表达 式 是 由 符号 1ambda 开 始 的 表 : 

(define (lambda? exp) (tagged-list? exp ’lambda) ) 

(define (lambda-parameters exp) (cadr exp) ) 

(define (lambda-body exp) (cddr exp) ) 

我 们 还 为 ambda 表 达 式 提供 了 一 个 构造 函数 ， 它 用 在 上 面 的 definition-value 里 : 


(define (make-lambda parameters body) 


(cons ’lambda (cons parameters body))) 


“条 件 式 由 if 开始 ， 有 一 个 谓词 部 分 、 一 个 推论 部 分 和 一 个 〈 可 缺 的 ) 替代 部 分 。 如 果 
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这 一 表达 式 没 有 替代 部 分 ， 我 们 就 以 False 作为 其 替代 ”…。 


(define (if? exp) (tagged-list? exp "if)) 
(define (if-predicate exp) (cadr exp) ) 
(define (if-consequent exp) (caddr exp) ) 


(define (if-alternative exp) 
(if (mot (null? (cdddr exp) )) 
(cadddr exp) 
*false) ) 


我 们 也 为 if 表 达 式 提供 了 一 个 构造 函数 ， 它 在 cond- >if 里 使 用 ， 用 于 将 cond 表 达 式 变 


换 为 if 表达 式 。 


(define (make-if predicate consequent alternative) 
(list ‘if predicate consequent alternative) ) 


。begin 包 装 起 一 个 表达 式 序列 ， 在 这 里 提供 了 对 begin 表 达 式 的 一 组 语法 操作 ， 以 便 从 
begin 表 达 式 中 提取 出 实际 表达 式 序列 ， 还 有 选择 函数 返回 序列 中 的 第 一 个 表达 式 和 其 
ARK, 

(define (begin? exp) (tagged-list? exp begin) ) 

(define (begin-actions exp) (cdr exp)) 

(define (last-exp? seq) (null? (cdr seq))) 

(define (first-exp seq) (car seq)) 


(define (rest-exps seq) (cdr seq)) 


我 们 还 包括 了 一 个 构造 函数 sequence->exp (用 在 cond->if 里 )， 它 把 一 个 序列 变换 


为 一 个 表达 式 ， 如 果 需 要 的 话 就 加 上 begin 作 为 开头 : 


(define (sequence->exp seq) 


(cond ((null? seq) seq) 


( 
( 
((last-exp? seq) (first-exp seq) ) 
(else (make-begin seq) ))) 


(define (make-begin seq) (cons *begin seq) ) 


。 过程 应 用 就 是 不 属于 上 述 各 种 表达 式 类 型 的 任意 复合 表达 式 。 这 种 表达 式 的 car 是 运算 
符 ， 其 cdr 是 运算 对 象 的 表 : 


(define (application? exp) (pair? exp)) 


(define (operator exp) (car exp) ) 
(define (operands exp) (cdr exp) ) 
(define (no-operands? ops) (null? ops) ) 
(define (first-operand ops) (car ops) ) 
(define (rest-operands ops) (cdr ops) ) 


24 在 谓词 为 假 时 而 且 没 有 替代 部 分 时 ，if 表 达 式 的 值 在 Scheme 里 没有 规定 。 我 们 这 里 的 选择 是 让 它 取 值 假 。 


这 里 将 通过 在 全 局 环境 里 提供 约束 的 方式 支持 对 表达 式 里 变量 true 和 false 的 求 值 ， 见 4.1.4 市 。 
25 这 些 选择 函数 都 直接 对 表达 式 的 表 定 义 一 一 对 应 的 是 运算 对 象 的 表 一 一 而 没有 再 做 为 一 种 数据 抽象 。 引 进 它 
们 采用 了 类 似 基 本 表 操 作 的 名 字 ， 以 便 使 人 更 容易 理解 5.4 节 里 的 显 式 控制 求 值 器 。 
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派生 表达 式 

在 我 们 语言 里 ， 一 些 特殊 形式 可 以 基于 其 他 特殊 形式 的 表达 式 定义 出 来 ， 而 不 必 直 接 去 
实现 。 一 个 这 样 的 例子 是 conda， 它 可 以 实现 为 一 些 嵌 套 的 if 表达 式 。 举 例 来 说 ， 我 们 可 以 将 
对 于 下 述 表达 式 的 求 值 问题 : 

(cond ((> x 0) x) 


((= x 0) (display "zero) 0) 
(else (- x))) 


归 约 为 对 下 面 涉 及 if 和 begin 的 表达 式 的 求 值 问 题 : 
(if (> x 0) 
x 
(if (= x 0) 
(begin (display ‘zero) 
0) 
(= x))) 


采用 这 种 方式 实现 对 cond 的 求 值 能 简化 求 值 器 ， 因 为 这 样 就 减少 了 需要 特别 描述 求 值 过 程 的 
特殊 形式 的 数目 。 

我 们 在 这 里 包括 了 提取 cond 表 达 式 中 各 个 部 分 的 语法 过 程 ， 以 及 过 程 cond->if， 它 能 
将 cond 表 达 式 变换 为 if 表达 式 。 一 个 分 情况 分 析 以 cond 开 始 ， 并 包含 一 个 谓词 -动作 子 名 
的 表 。 如 果 一 个 子 句 的 符号 是 else， 那 么 就 是 一 个 else 子 句 ”。 


(define (cond? exp) (tagged-list? exp “cond) ) 
(define (cond-clauses exp) (cdr exp) ) 


(define (cond-else-clause? clause) 


(eq? (cond-predicate clause) ’else) ) 
(define (cond-predicate clause) (car clause) ) 
(define (cond-actions clause) (cdr clause) ) 


(define (cond->if exp) 
(expand-clauses (cond-clauses exp) ) ) 


(define (expand-clauses clauses) 
(if (null? clauses) 
*false ; clause else no 
(let ((first (car clauses) ) 
(rest (cdr clauses) ) ) 
(if (cond-else-clause? first) 
(if (null? rest) 
(sequence->exp (cond-actions first) ) 
(error "ELSE clause isn’t last -- COND->IF" 
clauses) ) 
(make-if (cond-predicate first) 
(sequence->exp (cond-actions first) ) 
(expand-clauses rest)))))) 


”6 当 所 有 的 谓词 都 为 假 而 且 又 没有 else 子 名 时， 在 Scheme 里 没有 规定 cond 表 达 式 的 值 。 我 们 这 里 的 选择 是 让 
这 时 的 值 为 假 。 
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我 们 这 样 选 出 来 的 ， 采 用 语法 变换 的 方式 实现 的 表达 式 (如 cond 表 达 式 ) 称 为 派生 表达 
式 。let 表 达 式 也 被 作为 派生 表达 式 ( 见 练习 4.6) 717, 

练习 4.2 Louis Reasoner 计 划 重 新 安排 eval 里 cond 子 句 的 位 置 ， 使 得 有 关 过 程 应 用 的 子 
句 出 现在 有 关 赋 值 的 子 句 之 前 。 他 的 论断 是 ， 这 样 做 将 会 提高 求 值 器 的 效率 : 因为 程序 里 通 
和 常 包含 的 函数 应 用 比 赋值 和 定义 等 等 更 多 一 些 ， 而 经 他 的 修改 之 后 ，eval 为 确定 一 个 表达 式 
的 类 型 所 需 检查 的 子 句 将 会 比 原来 的 eval 更 少 些 。 

a) Louis 的 计划 有 什么 错 ? (提示 : Louis 的 求 值 器 将 如 何 处 理 表达 式 (define x 3) ? ) 

b) Louis 因 为 其 计划 无 法 工作 而 感到 非常 诅 形 。 他 希望， 无 论 要 走 多 远 也 要 让 自己 的 求 值 
器 在 检查 大 部 分 表达 式 之 前 就 识别 出 过 程 应 用 。 请 设法 帮助 他 ， 修 改 被 求 值 语言 的 语法 ， 使 
得 每 个 过 程 应 用 都 以 call 开 始 。 例 如 现在 我 们 不 是 直接 写 (factorial 3), 而 是 需要 写 
(call factorial 3) ; 不 能 直接 写 (+1 2), 而 将 必须 写 (call+i1 2), 

练习 4.3 请 重 写 eval， 使 之 能 以 一 种 数据 导向 的 方式 完成 分 派 。 请 将 这 样 做 出 的 程序 与 
练习 2.73 的 数据 导向 的 求 导 程序 做 一 个 比较 。( 你 可 以 用 一 个 复合 表达 式 的 car 作 为 表达 式 的 
类 型 ， 采 用 像 这 一 节 中 所 实现 的 语法 形式 。) 

练习 4.4 回忆 第 1 章 解释 的 特殊 形式 and 和 or 的 定义 : 

。and: 其 表达 式 从 左 到 右 求 值 。 如 果 某 个 表达 式 求 出 的 值 是 假 ， 那 么 就 返回 假 值 ， 剩 下 

的 表达 式 也 不 再 求 值 。 如 果 所 有 的 表达 式 求 出 的 值 都 是 真 ， 那 么 就 返回 最 后 一 个 表达 式 

的 值 。 如 果 疫 有 可 求 值 的 表达 式 就 返回 真 。 

eor: 其 表达 式 从 左 到 右 求 值 。 如 果 某 个 表达 式 求 出 的 值 是 真 ， 那 么 就 返回 真 值 ， 剩 下 

的 表达 式 也 不 再 求 值 。 如 果 所 有 的 表达 式 求 出 的 值 都 是 假 ， 或 者 根本 就 没有 可 求 值 的 表 

达 式 ， 那 么 返回 假 值 。 

请 将 and 和 or 作为 新 的 特殊 形式 安装 到 求 值 器 里 ， 定 义 适 当 的 语法 过 程 和 求 值 过 程 
eval-and 和 eval-or。 换 一 种 方式 ， 请 说 明 如 何 将 and 和 or 实现 为 派生 表达 式 。 

练习 4.5 ” Scheme 还 人 允许 另 一 种 形式 的 cond 子 句 ，(<test>==> <recipient>)。 如 果 <test> 
求 出 的 值 是 真 ， 那 么 就 对 <recipient> 求 值 。 这 样 求 出 的 值 必须 是 一 个 单个 参数 的 过 程 ， 将 这 
一 过 程 应 用 于 <test> 的 值 ， 并 将 其 返回 值 作为 这 个 cond 表 达 式 的 值 。 例 如 : 


(cond. ((assoc *b *((a 1) (B 2))) ss Gadr) 
(else false) ) 


返回 值 2。 请 修改 对 conq 的 处 理 ， 使 之 能 支持 这 一 语法 扩充 。 
练习 4.6 let 表达 式 也 是 一 种 派生 表达 式 ， 因 为 : 


(let ((<var,;><exp\>) ... (<var,><exp,>) ) 
<body>) 
等 价 于 
( (lambda (<var;> ... <var,>) 
<body>) 





1 实际 的 Lisp 系 统 提供 了 一 种 机 制 ， 使 用 户 可 以 添加 新 的 派生 表达 式 并 将 它们 的 实现 描述 为 语法 变换 ， 而 又 不 
必修 改 求 值 器 。 这 种 用 户 定义 变换 称 为 完 。 虽 然 很 容易 为 定义 宏 增 加 一 种 基本 机 制 ， 但 是 这 样 做 出 的 语言 却 
会 产生 一 种 微妙 的 名 字 冲 突 问 题 。 关 于 如 何 提供 宏 定 义 而 又 不 造成 这 些 麻烦 ， 有 许多 人 进行 过 研究 。 请 看 ， 
例如 Kohlbecker 1986, Clinger and Rees 1991 以 及 Hanson 1991, 
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<exp,>) 
请 实现 语法 变换 过 程 1et ->combination， 它 能 将 对 let 表 达 式 的 求 值 归 约 到 对 于 上 面 类 型 
的 组 合式 的 求 值 。 请 给 eval 增 加 适当 的 子 句 以 处 理 1et 表 达 式 。 
练习 4.7 ”1Let* 与 et 类 似 ， 但 其 中 对 let 变 量 的 约束 是 从 左 到 右 顺 序 进 行 的 ， 每 个 约束 
都 在 同一 个 环境 中 完成 ， 已 经 做 了 的 约束 都 是 可 见 的 。 例 如 : 
(let* ((x 3) 
(y (+ x 2)) 


(z (+ x y 5))) 
(* x z)) 


返回 39。 请 说 明 ， 为 什么 一 个 Let* 表 达 式 可 以 重 写 为 一 些 嵌 套 的 let 表 达 式 ， 并 请 写 出 一 个 
过 程 1et*->nested-1lets 完 成 相应 变换 。 如 果 我 们 已 经 有 了 let 的 实现 (练习 4.6)， 并 和 希 
望 扩充 求 值 器 去 处 理 let*， 请 给 eval 加 入 一 个 其 中 的 动作 如 下 的 子 句 

(eval (let*->nested-lets exp) env) 
就 够 了 吗 ? 或 者 说 我 们 必须 显 式 地 以 非 派 生 方式 来 扩充 对 let* 的 处 理 ? 

练习 4.8 “命名 let” 是 let 的 一 种 变形 ， 具 有 下 面 的 形式 : 

(let <var> <bindings> <body>) 
其 中 的 <bindings> 和 <body> 都 与 常规 let 完 全 一 样 ， 只 是 在 <body> 里 的 <var> 应 该 约束 到 一 个 
过 程 ， 该 过 程 的 体 就 是 <body>， 而 其 参数 就 是 <bindings> 里 的 变量 。 这 样 ， 我 们 就 可 以 通过 
调用 名 字 为 <var> 的 过 程 的 方式 ， 反 复 执行 这 个 <pody>。 举 例 说 ， 和 迭代 型 的 斐 波 纳 契 过 程 ( 见 
1.2.2 节 ) 可 以 用 命名 let 重 新 写 为 : 

(define (fib n) 

(let fib-iter ((a 1) 
(b 0) 
(count n)) 
(if (= count 0) 
b 
(fib-iter (+ a b) a (= count 1))))) 

请 修改 练习 4.6 里 的 let->combination， 使 之 能 够 支持 命名 let。 

练习 4.9 许多 语言 都 支持 多 种 迭代 结构 , 例如 do、for、while 和 until。 在 Scheme 里 ， 
迭代 计算 过 程 可 以 通过 常规 过 程 调用 的 方式 表述 ， 因 此 ， 特 殊 的 迭代 结构 并 不 会 在 计算 能 力 
方面 带 来 任何 真正 的 收获 。 但 另 一 方面 ， 这 种 结构 也 确实 能 带 来 很 多 方便 。 请 设计 出 若干 种 
迭代 结构 ， 给 出 使 用 它们 的 例子 ， 并 说 明 怎 样 将 它们 实现 为 一 些 派 生 表 达 式 。 

练习 4.10 ”通过 使 用 数据 抽象 技术 ， 我 们 就 能 够 写 出 独立 于 被 求 值 语言 的 特定 语法 形式 
的 eval 过 程 。 为 阐释 这 一 点 ， 请 为 Scheme 设 计 和 实现 一 种 新 的 语法 形式 ， 请 仅仅 修改 本 节 的 
有 关 过 程 ， 而 不 修改 eval 或 者 apply。 


4.1.3 求 值 器 数据 结构 
除了 需要 定义 表达 式 的 外 部 语法 形式 之 外 ， 求 值 器 的 实现 还 必须 定义 好 在 其 内 部 实际 操 
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作 的 数据 结构 ， 作 为 程序 执行 的 一 部 分 。 例 如 ， 定 义 好 过 程 和 环境 的 表示 形式 ， 真 和 假 的 表 
示 方 式 等 等 。 

谓词 检测 

为 了 实现 条 件 表达 式 ， 我 们 把 除了 false 对 象 之 外 的 所 有 东西 都 接受 为 真 : 


(define (true? x) 


(not (eq? x false) )) 


(define (false? x) 


(eq? x false) ) 
过 程 的 表示 
为 能 处 理 基本 过 程 ， 我 们 假定 已 经 有 了 下 述 过 程 : 


* (apply-primitive-procedure <proc> <args>) 


它 能 够 将 给 定 的 过 程 应 用 于 表 <args> 里 的 参数 值 ， 并 返回 这 一 应 用 的 结果 。 

* (primitive-procedure? <proc>) 

检查 <proc> 是 否 为 一 个 基本 过 程 。 

有 关 如 何 处 理 基 本 过 程 的 机 制 将 在 4.1.4 闻 里 进一步 讨论 。 

复合 过 程 是 由 形式 参数 、 过 程 体 和 环境 ， 通 过 构造 国 数 make-pzrocedure 做 出 来 的 : 


(define (make-procedure parameters body env) 


(list ‘procedure parameters body env) ) 
(define (compound-procedure? p) 
(tagged-list? p procedure) ) 
(define (procedure-parameters p) (cadr p)) 
(define (procedure-body p) (caddr p)) 
(define (procedure-environment p) (cadddr p)) 
对 环境 的 操作 
求 值 器 需要 一 些 对 环境 的 操作 。 正 如 在 3.2 节 里 所 解释 的 ， 一 个 环境 就 是 一 个 框架 的 序列 ， 
每 个 框架 都 是 一 个 约束 的 表格 ， 其 中 的 约束 关联 起 一 些 变量 和 与 之 对 应 的 值 。 我 们 提供 下 面 
这 一 组 针对 环境 的 操作 : 
* (lookup-variable-value <var> <env>) 
返回 符号 <var> 在 环境 <env> 里 的 约束 值 ， 如 果 这 一 变量 没有 约束 就 发 出 一 个 错误 信号。 


* (extend-environment <variables> <values> <base-env>) 


返回 一 个 新 环境 ， 这 个 环境 中 包含 了 一 个 新 的 框架 ， 其 中 的 所 有 位 于 表 <variables> 里 的 
符号 约束 到 表 <valxes> 里 对 应 的 元 素 ， 而 其 外 围 环 境 是 环境 <pase-env>。 


e (define-variable! <var><value> <env>) 


在 环境 <env> 的 第 一 个 框架 里 加 入 一 个 新 约束 ， 它 关联 起 变量 <var> 和 值 <value>。 


* (set-variable-value! <var> <value> <env>) 


修改 变量 <var> 在 环境 <env> 里 的 约束 ， 使 得 该 变量 现在 约束 到 值 <value>。 如 果 这 一 变 
量 没 有 约束 就 发 出 一 个 错误 信号 。 
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为 了 实现 这 些 操作 ， 我 们 将 环境 表示 为 一 个 框架 的 表 ， 一 个 环境 的 外 围 环 境 就 是 这 个 表 
的 cdr， 空 环境 则 直接 用 空 表 表示 。 


(define (enclosing-environment env) (cdr env)) 
(define (first-frame env) (car env)) 


(define the-empty-environment ’()) 


在 环境 里 的 每 个 框架 都 是 一 对 表 形 成 的 序 对 : 一 个 是 这 一 框架 中 的 所 有 变量 的 表 ， 还 有 就 是 
它们 的 约束 值 的 表 *…。 
(define (make-frame variables values) 


(cons variables values)) 
(define (frame-variables frame) (car frame)) 
(define (frame-values frame) (cdr frame)) 


(define (add-binding-to-frame! var val frame) 
(set-car! frame (cons var (car frame))) 


(set-cdr! frame (cons val (cdr frame)))) 


为 了 能 够 用 一 个 (关联 了 一 些 变 量 和 值 的 ) 新 框架 去 扩充 一 个 环境 ,我 们 让 框架 由 一 个 
变量 的 表 和 一 个 值 的 表 组 成 ， 并 将 它 结合 到 环境 上 。 如 果 变 量 的 个 数 与 值 的 个 数 不 匹 配 ， 我 
们 就 发 出 一 个 错误 信号 。 


(define (extend-environment vars vals base-env) 
(if (= (length vars) (length vals) ) 
(cons (make-frame vars vals) base-env) 
(if (< (length vars) (length vals) ) 
(error "Too many arguments supplied" vars vals) 
(error "Too few arguments supplied" vars vals)))) 


要 在 一 个 环境 中 查找 一 个 变量 ， 就 需要 扫描 第 一 个 框架 里 的 变量 表 。 如 果 在 这 里 找到 了 
所 需 的 变量 ， 那 么 就 返回 与 之 对 应 的 值 表 里 的 对 应 元 素 。 如 果 我 们 不 能 在 当前 框架 里 找到 这 
个 变量 ， 那 么 就 到 其 外 围 环境 里 去 查找 ， 并 如 此 继续 下 去 。 如 果 遇 到 了 空 环境 ， 那 么 就 发 出 
一 个 “未 约束 变量 ”的 错误 信号 。 


(define (lookup-variable-value var env) 
(define (env-loop env) 
(define (scan vars vals) 
(cond ((null? vars) 
(env-loop (enclosing-environment env) )) 
( (eq? var (car vars) ) 
(car vals) ) 
(else (scan (cdr vars) (cdr vals))))) 
(if (eq? env the-empty-environment ) 
(error "Unbound variable" var) 
(let ((frame (first-frame env) )) 
(scan (frame-variables frame) 
(frame-values frame) )))) 


218 在 下 面 的 代码 里 并 没有 把 框架 做 成 一 种 数据 抽象 : set-variable-value! 和 define-variable! 里 是 
直接 用 set -car 1! 修改 框 架 中 的 值 。 这 样 定义 框架 过 程 ， 是 为 了 使 这 些 环 境 操作 函数 更 容易 阅读 。 
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(env-loop env) ) 


在 需要 为 某 个 变量 在 给 定 环境 里 设置 一 个 新 值 时 ， 我 们 也 要 扫描 这 个 变量 ， 就 像 在 过 程 
lookup-variable-value 里 一 样 。 在 找到 这 一 变量 后 修改 它 的 值 。 


(define (set-variable-value! var val env) 
(define (env-loop env) 
(define (scan vars vals) 
(cond ((null? vars) 
(env-loop (enclosing-environment env))) 
((eq? var (car vars) ) 
(set-car! vals val) ) 
(else (scan (cdr vars) (cdr vals))))) 
(if (eq? env the-empty-environment) 
(error "Unbound variable -- SET!" var) 
(let ((frame (first-frame env) )) 
(scan (frame-variables frame) 
(frame-values frame) ))) ) 


(env-loop env) ) 


为 了 定义 一 个 变量 ， 我 们 需要 在 第 一 个 框架 里 查找 该 变量 的 约束 ， 如 果 找 到 就 修改 其 约 
R (就 像 是 在 set -variable-value! 里 一 样 )。 如 果 不 存在 这 种 约束 ， 那 么 就 在 第 一 个 框 
架 中 加 入 这 个 约束 。 
(define (define-variable! var val env) 
(let ((frame (first-frame env) ) ) 
(define (scan vars vals) 
(cond ((null? vars) 
(add-binding-to-frame! var val frame) ) 
((eq? var (car vars) ) 
(set-car! vals val)) 
(else (scan (cdr vars) (cdr vals))))) 
(scan (frame-variables frame) 


(frame-values frame) ) ) ) 


这 里 所 描述 的 方法 ， 只 不 过 是 表示 环境 的 许多 可 能 方法 之 一 。 由 于 前 面 采 用 了 数据 抽象 
技术 ， 将 求 值 器 的 其 他 部 分 与 这 些 表示 细节 隔离 开 ， 如 果 需 要 的 话 ， 我 们 也 完全 可 以 修改 环 
境 的 表示 ( 见 练 习 4.11)。 在 产品 质量 的 Lisp 系 统 里 ， 求 值 器 中 环境 操作 的 速度 一 一 特别 是 查 
找 变量 的 速度 一 一 对 系统 的 性 能 有 着 重要 的 影响 。 这 里 所 描述 的 表示 方式 虽然 在 概念 上 非常 
简单 ， 但 其 工作 效率 却 很 低 ， 通 常 不 会 被 用 在 产品 系统 里 *”。 

练习 4.11 ”我 们 完全 可 以 不 把 框架 表示 为 表 的 序 对 ， 而 是 表示 为 约束 的 表 ， 其 中 的 每 个 
约束 是 一 个 名 字 一 值 序 对 。 请 重 写 有 关 的 环境 过 程 ， 采 用 这 种 新 的 表示 方式 。 

练习 4.12 ”过程 set-variable-value!、define-variable! 和 ]ookup- 
variable-value 可 以 基于 更 抽象 的 遍历 环境 结构 的 过 程 描 述 。 请 定义 有 关 的 抽象 ， 使 之 能 
够 抓 住 其 中 的 公共 模式 ， 而 后 基于 这 些 抽象 重新 定义 上 述 的 三 个 过 程 。 


2 这 种 表示 (包括 练习 4.11 提 出 的 变形 ) 的 缺点 是 ， 求 值 器 为 了 找到 一 个 给 定 变量 的 约束 ， 可 能 需要 搜索 许多 
个 框架 。 这 样 一 种 方式 称 为 深 约 束 。 避 免 这 一 低 效 性 的 方法 是 采用 一 种 称 为 语法 作用 域 的 策略 ，5.5.6 节 将 讨 
论 这 种 策略 。 
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练习 4.13 ” Scheme 允许 我 们 通过 define 为 变量 创建 新 的 约束 ， 但 却 没有 提供 消除 约束 的 
方式 。 请 为 求 值 器 实现 一 个 特殊 形式 make-unbound!， 它 能 从 make-unbound! 表 达 式 求 
值 的 哪个 环境 中 删除 给 定 符号 的 约束 。 这 一 问题 并 没有 完全 刻画 清楚 。 例 如 ， 我 们 应 该 只 删 
除 环境 中 第 一 个 框架 里 的 约束 吗 ? 请 完成 有 关 的 规范 ， 并 说 明 你 所 做 选择 的 合理 性 。 


4.1.4 作为 程序 运行 求 值 器 


有 了 一 个 求 值 器 ， 我 们 手头 上 就 有 了 一 个 有 关 Lisp 表 达 式 如 何 求 值 的 描述 〈 也 是 用 Lisp 拉 
述 的 ) 。 将 求 值 器 描述 为 程序 的 一 个 优点 是 我 们 可 以 运行 这 个 程序 ， 这 样 就 给 了 我 们 一 个 能 够 
在 Lisp 里 运行 的 ， 有 关 Lisp 本 身 如 何 完成 表达 式 求 值 的 工作 模型 。 这 一 模型 可 以 作为 一 个 工作 
框架 ， 使 人 能 够 去 试验 各 种 求 值 规则 。 这 也 是 我 们 在 本 章 后 面部 分 将 要 去 做 的 事情 。 

我 们 的 求 值 器 程序 最 终 将 把 表达 式 归 约 到 基本 过 程 的 应 用 。 因 此 ， 为 了 能 够 运行 这 一 求 
值 器 ， 现 在 需要 做 的 全 部 事情 就 是 创建 一 种 机 制 ， 通 过 它 能 够 去 调用 基础 Lisp 系 统 的 功能 ， 
去 模拟 那些 基本 过 程 的 应 用 。 

每 个 基本 过 程 名 必须 有 一 个 约束 ， 以 便当 eval 求 值 一 个 应 用 基本 过 程 的 运算 符 时 ， 可 以 
找到 相应 的 对 象 ， 并 将 这 个 对 象 传 给 apply。 为 此 我 们 必须 创建 起 一 个 初始 环境 ， 在 其 中 建 
立 起 基本 过 程 的 名 字 与 一 个 唯一 对 象 的 关联 ， 在 求 值 表达 式 的 过 程 中 可 能 遇 到 这 些 名 字 。 这 
一 全 局 环境 里 还 要 包含 符号 true 和 false 的 约束 ， 这 就 使 它们 也 可 以 作为 变量 用 在 被 求 值 的 
表达 式 里 。 

(define (setup-environment) 

(let ((initial-env 
(extend-environment (primitive-procedure-names) 
(primitive-procedure-objects) 
the-empty-environment))) 
(define-variable! ‘true true initial-env) 


(define-variable! ’false false initial-env) 


initial-env) ) 

(define the-global-environment (setup-environment) ) 

基本 过 程 对 象 的 具体 表示 形式 并 不 重要 ， 只 要 apply 能 识别 它们 ， 并 能 通过 过 程 
primitive-procedure? 和 apply-primitive-procedure 去 应 用 它们 。 我 们 所 选择 的 
方式 ， 是 将 基本 过 程 都 表示 为 以 符号 primitive 开 头 的 表 ， 在 其 中 包含 着 基础 Lisp 系 统 里 实 
现 这 一 基本 过 程 的 那个 过 程 。 

(define (primitive-procedure? proc) 

(tagged-list? proc ’primitive) ) 
(define (primitive-implementation proc) (cadr proc) ) 
setup-environment 4} )\— 4a EPI SE AE et FEY BF AA Lt Pe? 


(define primitive-procedures 


220 在 基础 Lisp 里 定义 的 所 有 过 程 ， 都 可 以 用 作 这 个 元 循环 求 值 器 的 基本 过 程 。 在 求 值 器 里 设置 的 名 字 不 必 与 它 
们 在 基础 Lisp 系 统 里 的 名 字 相 同 ， 这 里 采用 同样 的 名 字 是 因为 这 个 元 循环 求 值 器 实现 的 就 是 Scheme 本 身 。 举 
例 来 说 ， 我 们 完全 可 以 将 (list "first car) 或 者 (list ‘square (lambda (x) (* x x))) 放 进 
primitive-proceduresf# #, 
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(list (list ‘car car) 
(list “car ddr) 
(list “cons cons) 
(list ‘null? null?) 
< 其 他 基本 过 程 > 
ba) 


(define (primitive-procedure-names) 
(map car 
primitive-procedures) ) 


(define (primitive-procedure-objects) 
(map (lambda (proc) (list ’primitive (cadr proc) )) 


primitive-procedures) ) 
为 了 应 用 一 个 基本 过 程 ， 我 们 只 需要 简单 地 利用 基础 Lisp 系 统 ， 将 相应 的 实现 过 程 应 用 
于 实际 参数 
(define (apply-primitive-procedure proc args) 


(apply-in-underlying-scheme 
(primitive-implementation proc) args)) 


为 了 能 够 很 方便 地 运行 这 个 元 循环 求 值 器 ， 我 们 提供 了 一 个 驱动 循环 ， 它 模拟 基础 Lisp 
系统 里 的 读 入 一 求 值 一 打印 循环 。 这 个 循环 打印 出 一 个 提示 符 ， 读 入 输入 表达 式 ， 在 全 局 环 
境 里 求 值 这 个 表达 式 ， 而 后 打印 出 得 到 的 结果 。 我 们 在 每 个 对 应 结果 前 面 放 一 个 输出 提示 ， 
以 使 这 些 表达 式 的 值 有 别 于 其 他 输出 一 。 


(define input-prompt ";;; M-Eval input:") 
(define output-prompt ";;; M-Eval value:") 


(define (driver-loop) 
(prompt-for-input input-prompt) 
(let ((input (read) ) ) 
(let ((output (eval input the-global-environment) ) ) 
(announce-output output-prompt) 
(user-print output) ) ) 


(driver-loop) ) 


(define (prompt-for-input string) 
(newline) (newline) (display string) (newline) ) 


(define (announce-output string) 
(newline) (display string) (newline) ) 


2 这 里 的 apply-in-underlying-scheme 也 就 是 我 们 在 前 面 章节 里 已 经 使 用 过 的 apply 过 程 。 元 循环 求 值 
器 里 的 app1Yy 过 程 ( 见 4.1.1 节 ) 模拟 的 就 是 这 一 过 程 的 工作 。 采 用 两 个 不 同 的 而 名 字 又 同 为 apply 的 东西 ， 
将 会 在 元 循环 求 值 器 的 运行 中 产生 一 个 技术 问题 ， 因 为 元 循环 求 值 器 的 apply 定 义 会 掩盖 相应 基本 过 程 的 定 
义 。 线 过 这 一 问题 的 一 种 方式 是 重 命名 元 循环 求 值 器 里 的 apply， 以 避免 与 基本 过 程 的 名 字 冲 突 。 我 们 假定 
采用 另 一 方式 ， 在 定义 元 循环 的 apply 之 前 ， 已 经 先 用 下 面 方式 保存 了 基础 apply 的 一 个 引用 : 

(define apply-in-underlying-scheme apply) 
这 就 使 我 们 可 以 以 另 一 个 不 同 的 名 字 访 问 apply 的 原来 版 本 了 。 

m 基本 过 程 xead 将 一 直 等 待 用 户 的 输入 ， 并 返回 键入 的 下 一 个 完整 表达 式 。 举 例 来 说 ， 如 果 用 户 的 输入 是 
(+ 23 x)，read 将 返回 一 个 包含 三 个 元 素 的 表 ,， 其 中 包含 符号 + 、 数 23 以 及 符号 x。 如 果 用 户 键 人 的 是 `x， 
返回 的 将 是 一 个 包含 两 个 元 素 的 表 ， 其 中 包含 了 符号 quote 和 符号 x。 
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这 里 使 用 了 一 个 特殊 的 打印 过 程 user-print， 以 避免 打印 出 复合 过 程 的 环境 部 分 ， 因 为 它 
可 能 是 一 个 非常 长 的 表 (而 且 还 可 能 包含 循环 )。 
(define (user-print object) 
(if (compound-procedure? object) 
(display (list ’compound-procedure 
(procedure-parameters object) 
(procedure-body object) 
’ <procedure-env>) ) 
(display object) )) 
为 了 运行 这 个 求 值 器 ， 现 在 我 们 需要 着 的 全 部 事情 就 是 初始 化 这 个 全 局 环境 ， 并 启动 上 
述 的 驱动 循环 。 下 面 是 一 个 交互 过 程 实例 : 
(define the-global-environment (setup-environment) ) 


(driver-loop) 


;;; M-Eval input: 
(define (append x y) 
(ae (oull? x) 
¥ 
(cons (car x) 
(append (cdr x) y)))) 

i777 M-Eval value: 
ok 


¡iy M-Eval input: 

(append "(a b c) ‘(de £)) 
;;; M-Eval value: 
(abcde f) 


练习 4.14 Eva Lu Ator 和 Louis Reasoner 各 自 实 现 了 这 里 的 元 循环 求 值 器 。Eva 键 入 了 map 
的 定义 ， 并 运行 了 一 些 使 用 它 的 测试 程序 ， 它 们 都 工作 得 很 好 。 而 Louis 则 是 将 系统 的 map 版 
本 作为 基本 过 程 安装 到 自己 的 元 循环 求 值 器 中 。 当 他 去 试验 这 个 过 程 时 ， 却 出 现 了 严重 的 错 
误 。 请 解释 ， 为 什么 Eva 的 map 能 够 工作 而 Louis 的 map 却 失败 了 。 


4.1.5 将 数据 作为 程序 


在 思考 求 值 Lisp 表 达 式 的 Lisp 程 序 时 ， 有 一 个 类 比 可 能 很 有 帮助 。 关 于 程序 意义 的 一 种 操 
作 式 观点 ， 就 是 将 程序 看 成 一 种 抽象 的 (可 能 无 穷 大 的 ) 机 器 的 一 个 描述 。 例 如 ， 考 虑 下 面 
这 个 我 们 已 经 非常 熟悉 的 求 阶乘 程序 : 
(define (factorial n) 
(Ee (=) mh a) 
A) 
(* (factorial (= n1)) n))) 


我 们 可 以 将 这 一 程序 看 成 一 部 机 器 的 描述 ， 这 部 机 器 包含 的 部 分 有 减 量 、 乘 和 相等 测试 ， 还 
有 一 个 两 位 置 的 开关 和 另 一 部 阶乘 机 器 〈 这 样 ， 阶 乘机 器 就 是 无 穷 的 ， 因 为 其 中 包含 着 另 一 
部 阶乘 机 器 ) 。 图 4-2 是 这 部 阶乘 机 器 的 流程 图 ， 说 明了 有 关 的 部 分 如 何 连接 在 一 起 。 

按照 类 似 的 方式 ， 我 们 也 可 以 把 求 值 器 看 作 一 部 非常 特殊 的 机 器 ， 它 要 求 以 一 部 机 器 的 
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描述 作为 输入 。 给 定 了 一 个 输入 之 后 ， 求 值 器 就 能 够 规划 自己 的 行为 ， 模 拟 被 描述 机 器 的 执 
行 过 程 。 举 例 来 说 ， 如 果 我 们 将 Eactorial 的 定义 馈 和 人 求 值 器 ， 如 图 4-3 所 示 ， 求 值 器 就 能 
够 计算 阶乘 。 


factorial 


(define (factorial n) 
(i£ (= n 1) 
1 
(* (factorial (- n 1)) n))) 





图 4-3 模拟 一 部 阶乘 机 器 的 求 值 器 


按照 这 一 观点 ， 我 们 的 求 值 器 可 以 看 作 一 种 通用 机 器 。 它 能 够 模拟 其 他 的 任何 机 器 ， 只 
要 它们 已 经 被 描述 为 Lisp 程 序 空 。 这 是 非常 惊人 的 。 请 想 想 如 何 为 电子 电路 设想 一 种 类 似 的 求 
值 器 。 这 将 会 是 一 种 电路 ， 它 能 以 另 一 个 电路 (例如 某 个 过 滤器 ) 的 信号 编码 方案 作为 输入 。 


23 有 关 将 机 器 描述 为 Lisp 程 序 的 事情 其 实 并 不 是 最 根本 的 。 如 果 我 们 送 给 自己 的 求 值 器 一 个 Lisp 程 序 ， 其 行为 
是 另 一 种 语言 (例如 C 语 言 ) 的 求 值 器 ， 那 么 这 个 Lisp 求 值 器 就 能 模拟 该 C 求 值 器 ， 进 而 能 够 模拟 任何 用 C 
程序 的 形式 描述 的 机 器 。 同 样 ， 在 C 里 写 出 一 个 Lisp 求 值 器 也 将 产生 出 一 个 能 够 执行 所 有 Lisp 程 序 的 C 程 序 。 
这 里 的 深刻 思想 是 ， 任 一 求 值 器 都 能 模拟 其 他 的 求 值 器 。 这 样 ， 有 关 “ 原 则 上 说 什么 可 以 计算 ”( 忽 略 掉 有 
关 所 需 时 间 和 空间 的 实践 性 问题 ) 的 概念 就 是 与 语言 或 者 计算 机 无 关 的 了 ， 它 反映 的 是 一 个 有 关 可 计算 性 
的 基本 概念 。 这 一 思想 第 一 次 是 由 图 灵 (Alan M. Turing, 1912-1954) 以 如 此 清晰 的 方式 阐述 的 ， 图 灵 
1936 年 的 论文 为 计算 机 科学 理论 奠定 了 基础 。 在 这 篇 论文 里 ， 图 灵 给 出 了 一 种 简单 的 计算 模型 一 一 现在 被 称 
为 图 灵机 一 一 并 声称 ,任何 “ 有 效 过 程 ” 都 可 以 描述 为 这 种 机 器 的 一 个 程序 (这 一 论断 就 是 著名 的 库 奇 一 图 
灵 论 题 )。 图 灵 而 后 实现 了 一 台 通 用 机 器 ， 即 一 人 台 图 灵机 ， 其 行为 就 像 是 所 有 图 灵机 程序 的 求 值 器 。 他 还 用 
这 一 理论 框架 证 明了 ， 存 在 着 能 够 清晰 地 提出 的 问题 ， 而 这 种 问题 是 图 灵机 不 能 计算 的 ( 见 练 习 4.15)。 图 
灵 也 为 实践 性 的 计算 机 科学 做 出 了 奠基 性 的 贡献 。 例 如 ， 他 发 明了 采用 通用 子 程序 的 结构 化 程序 的 思想 。 
有 关 图 灵 的 生平 参见 Hodges 1983, 
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CER LEK BT AZ Jen, 1 E RR A tt ak A X FR RE AY ek HE at De PET A o 
Ne te ee 值得 提出 的 是 ， 程 序 的 求 值 器 还 是 一 个 相当 
简单 的 程序 2 。 

求 值 器 的 另 一 惊人 方面 ， 在 于 它 就 像 是 在 我 们 的 程序 设计 语言 所 操作 的 数据 对 象 和 这 个 
程序 设计 语言 本 身 之 间 的 一 座 桥梁 。 现 在 设想 这 个 求 值 程序 (用 Lisp 实 现 ) 正在 运行 ， 一 个 
用 户 正 在 输入 表达 式 并 观察 所 得 到 的 结果 。 从 用 户 的 观点 看 ， 他 所 输入 的 形 如 (* x x) 的 
表达 式 是 程序 设计 语言 里 的 一 个 表达 式 ， 是 求 值 器 将 要 执行 的 东西 。 而 从 求 值 器 的 观点 看 ， 
这 一 表达 式 不 过 是 一 个 表 (在 目前 情况 下 ， 是 三 个 符号 *、x 和 x 的 表 )， 它 所 要 去 做 的 ， 也 就 
是 按照 一 套 良 好 定义 的 规则 去 操作 这 个 表 。 

这 种 用 户 程 序 也 就 是 求 值 器 的 数据 的 情况 ， 未 必 会 成 为 产生 混乱 的 源泉 。 事 实 上 ， 有 时 
简单 地 忽略 这 种 差异 ， 为 用 户 提供 显 式 地 将 数据 对 象 当 作 Lisp 表 达 式 求 值 的 能 力 ， 允 许 他 们 
在 程序 里 直接 使 用 eval， 其 至 可 能 带 来 许多 方便 。 在 许多 Lisp 方 言 里 ， 都 提供 了 一 个 基本 的 
eval 过 程 , 这 个 过 程 以 一 个 表达 式 和 一 个 环境 作为 参数 , 在 这 一 环境 中 求 出 该 表达 式 的 值 ””。 
例如 : 


(eval °(* 5 5) user-initial-environment) 


和 


(eval (cons ** (list 5 5)) user-initial-environment) 
都 将 返回 252x。 

练习 4.15 ”给 定 一 个 单 参数 的 过 程 p 和 一 个 对 象 a， 称 P 对 a“ 终 止 " ， 如 果 对 于 表达 式 (p 
a) 的 求 值 能 返回 一 个 什 (与 得 到 一 个 错误 信息 而 终止 或 者 永远 运行 下 去 相对 应 ) 。 请 证 明 ， 
我 们 不 可 能 写 出 一 个 过 程 halts?， 使 它 能 正确 地 对 任何 过 程 p 和 对 象 a 判 定 是 否 P 对 a 终 止 。 
请 采用 如 下 推理 过 程 : 如 果 你 能 有 这 样 一 个 过 程 ， 你 就 可 以 实现 下 述 程序 : 


(define (run-forever) (run-forever) ) 


(define (try p) 
(if (halts? p p) 
(run-forever) 

*halted) ) 


现在 考虑 求 值 表达 式 (try try)， 并 说 明 任何 可 能 的 结果 (无 论 终 止 或 者 永远 运行 下 去 ) 
都 将 违背 所 确定 的 halts? 的 行为 ”。 


有 人 觉得 这 样 的 求 值 器 是 违反 直觉 的 ， 因 为 它 由 一 个 相对 简单 的 过 程 实现 ， 却 能 去 模拟 可 能 比 求 值 器 本 身 还 
要 复杂 的 各 种 程序 。 通 用 求 值 器 的 存在 是 计算 的 一 种 深刻 而 美妙 的 性 质 。 递 归 论 是 数理 逻辑 的 一 个 分 支 ， 这 
一 理论 研究 计算 的 逻辑 限制 。Douglas Hofstadter 的 美妙 著作 《Goidel，Escher，Bach》(1979) 里 探索 了 其 中 
的 一 些 思想 。 

25 警告 : 这 一 eval 基 本 过 程 并 不 等 同 于 我 们 在 4.1.1 节 实现 的 eval 过 程 。 因 为 它 使 用 的 是 实际 的 Scheme 环境 ， 
而 不 是 我 们 自己 在 4.1.3 节 里 构造 的 简单 环境 结构 。 这 些 实际 环境 不 能 由 用 户 作为 常规 的 表 去 操作 ， 而 只 能 通 
过 eval 和 其 他 特殊 操作 去 访问 。 与 此 类 似 ， 我们 前 面 已 经 看 到 ， 基 本 过 程 apply 也 不 等 同 于 元 循环 求 值 器 
里 的 apply， 因 为 它 使 用 也 是 实际 的 Scheme 过 程 ， 而 不 是 我 们 在 4.1.3 节 和 4.1.4 节 构造 的 过 程 对 象 。 

226 在 MIT 的 Scheme 实 现 中 包含 有 eval， 还 有 一 个 符号 user-initial-environment， 它 约束 到 用 户 输入 表 
达 式 的 求 值 所 用 的 那个 初始 环境 。 

27 虽然 我 们 规定 了 送 给 halts? 的 是 一 个 过 程 对 象 ， 但 也 请 注意 ， 这 一 推理 同样 适用 于 halts? 能 够 访问 过 程 
的 正文 或 者 它 的 运行 环境 的 情况 。 这 就 是 图 灵 伟 大 的 停机 定理 ， 是 清晰 给 出 的 第 一 个 不 可 计算 的 问题 ， 也 就 
是 说 ， 是 一 个 良好 刻画 的 工作 ， 但 却 不 能 由 一 个 计算 过 程 完 成 。 
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4.1.6 内 部 定义 


我 们 的 求 值 和 元 循环 求 值 器 的 环境 模型 将 按 顺 序 执行 给 它 的 定义 ， 一 次 在 环境 框架 
充 一 个 定义 。 对 于 交互 式 的 程序 开发 ， 这 样 做 是 特别 方便 的 ， 因 为 程序 员 需 要 自由 地 混合 
程 应 用 和 新 过 程 的 定义 。 然 而 ， 如 果 我 们 仔细 想 一 想 用 于 实现 块 结构 的 内 部 定义 eee 
介绍 ) ， 就 会 发 现 ， 这 种 一 次 一 个 名 字 的 环境 扩充 方式 可 能 不 是 定义 局 部 变量 的 最 好 方式 。 

考虑 一 个 带 有 内 部 定义 的 过 程 ， 例 如 : 

(define (f x) 

(define (even? n) 
(if (= n 0) 
true 
(odd? (- n 1)))) 
(define (odd? n) 
(if (= n 0) 
false 
(even? (- nm 2)))) 
<f 体 的 其 余部 分 >) 
我 们 在 这 里 的 意图 是 ， 在 过 程 even? 的 体 里 的 名 字 odqd? 应 该 引用 过 程 o04d?， 而 它 是 在 
even? 之 后 定义 的 。 名 字 odd? 的 作用 域 是 £ 的 整个 体 ， 而 不 仅 是 £ 的 体 里 从 出 现 oda? 的 
define 点 开始 的 那个 部 分 。 确 实 ， 在 我 们 考虑 odd? 本 身 也 是 基于 even? 定 义 的 时 候 一 一 所 
以 even? 和 odd? 是 相互 递归 定义 的 过 程 一 -就 可 以 看 到 ， 有 关 这 两 个 def ine 的 最 令 人 满意 
的 解释 ， 应 该 是 认为 两 个 名 字 even? 和 odq? 被 同时 加 入 环境 中 。 更 一 般 地 说 ， 在 块 结构 里 ， 
一 个 局 部 名 字 的 作用 域 ， 应 该 是 相应 aefine 的 求 值 所 在 的 整个 过 程 体 。 

在 出 现 这 种 情况 时 ， 我 们 的 解释 器 将 能 正确 求 值 对 f 的 调用 ， 但 却 是 由 于 一 种 “非常 偶然 
的 ”原因 : 由 于 内 部 过 程 的 定义 出 现在 前 ， 而 在 所 有 这 些 东西 都 定义 好 之 前 不 会 对 这 些 过 程 
的 调用 求 值 。 因 此 ， 在 even? 被 执行 时 odd? 已 经 定义 好 了 。 事 实 上 ， 只 要 过 程 里 的 内 部 定 
义 出 现在 体 和 用 于 定义 变量 的 值 表达 式 的 求 值 之 前 ， 而 这 些 值 表达 式 又 不 实际 使 用 任何 被 定 
义 的 变量 ,我们 的 顺序 求 值 机 制 给 出 的 结果 就 与 直接 实现 同时 定义 完全 一 样 。( 作 为 不 满足 这 
些 限制 的 一 个 例子 ， 因 此 顺序 定义 将 不 等 价 于 同时 定义 ， 请 参见 练习 4.19。) 778 

不 过 ， 确 实 存 在 一 种 处 理 这 些 定义 的 方法 ， 可 以 使 内 部 名 字 的 定义 真正 具有 同样 的 作用 
域 。 为 此 只 需 在 求 值 任何 值 表达 式 之 前 ， 在 当前 环境 里 建立 起 所 有 的 局 部 变量 。 完 成 这 一 工 
作 的 一 种 方式 时 通过 1ambda 表 达 式 的 语法 变换 。 在 求 值 ]ambda 表 达 式 的 体 之 前 ， 首 先 扫 描 
并 且 删 除 掉 这 个 过 程 体 里 的 所 有 内 部 定义 ， 并 用 一 个 let 创 建 这 些 内 部 定义 的 变量 ， 而 后 通 
过 赋值 设置 它们 的 值 。 举 个 例子 ， 过 程 

(lambda <vars> 


(define u <e/>) 


(define v <e2>) 


228 希望 一 个 程序 不 依赖 于 这 种 求 值 机 制 ， 就 是 第 1 章 中 脚注 28 里 提出 “管理 并 非 一 种 责任 ”的 原因 。 强 调 了 内 
部 定义 应 该 出 现在 前 ， 在 这 些 定义 被 求 值 期 间 不 使 用 它们 ，IEEE 的 Scheme 标准 在 关于 求 值 这 种 定义 所 用 的 
机 制 方面 将 选择 权 留 给 了 实现 者 。 在 这 里 选择 某 种 求 值 方式 而 不 是 另 一 种 ， 看 起 来 像 是 一 个 小 问题 ， 只 会 影 
响 到 那些 “形式 不 好 的 ”程序 的 解释 。 然 而 ， 在 5.5.6 节 我 们 将 会 看 到 ， 转 变 到 内 部 定义 的 同时 作用 域 ， 将 能 
避免 一 些 很 环 手 的 难题 ， 如 果 不 这 样 ， 这 些 问 题 就 会 出 现在 编译 器 的 实现 中 。 
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<e3>) 
将 被 翻译 为 
(lambda <vars> 
(let ((u **unassigned*) 
(v ’*unassigned*) ) 
(set! u <el>) 
(set! v <e2>) 
<e3>) ) 
这 里 的 *unassignedx 是 一 个 特殊 符号 ， 在 查找 一 个 变量 ， 企 图 去 使 用 一 个 尚未 赋值 的 变量 
的 值 时 ， 它 将 导致 发 出 一 个 错误 信号。 
扫描 出 所 有 内 部 定义 的 另 一 种 策略 在 练习 4.18 中 给 出 。 与 上 面 的 变换 方式 不 同 ， 它 将 强加 
一 种 限制 ， 要 求 被 定义 变量 的 值 能 在 不 用 其 他 变量 的 值 的 情况 下 进行 求 值 ”。 
练习 4.16 ”在 这 一 练习 里 ， 我 们 要 实现 刚刚 介绍 的 解释 内 部 定义 的 方式 。 现 在 假定 求 值 
器 已 经 支持 let (练习 4.6)。 
a) 请 修改 lookup-variable-value (第 4.1.3 节 )， 使 它 在 发 现 的 值 是 符号 *unassigned* 
时 发 出 一 个 出 错 信 号 。 
b) 请 写 出 一 个 过 程 scan-out-defines， 它 以 一 个 过 程 体 为 参数 ， 返 回 一 个 不 包括 内 
部 定义 的 等 价 表达 式 ， 完 成 上 面 描述 的 变换 。 
c) 请 将 scan-out-defines 安 装 到 解释 器 里 ， 或 者 将 其 安 到 make-procedure 里 , 或 
者 安 到 procedure-body 里 ( 见 4.1.3 节 )。 安 装 在 哪个 位 置 更 好 些 ? 为 什么 ? 
练习 4.17 请 画 出 一 个 图 形 ， 说 明 在 求 值 正文 中 过 程 里 的 表达 式 <e3> 时 有 关 环 境 的 作用 。 
请 构造 出 在 按照 顺序 方式 解释 定义 时 的 情况 ， 以 及 如 果 将 内 部 定义 像 上 面 所 说 的 那样 扫描 出 
来 时 的 环境 情况 ， 对 它们 做 一 些 比较 。 为 什么 对 于 变换 之 后 的 程序 多 出 了 一 个 框架 ? 请 解释 
为 什么 环境 结构 的 这 种 差异 不 会 造 出 正确 程序 的 不 同行 为 方式 。 请 设计 一 种 方式 ， 使 解释 器 
能 实现 内 部 定义 的 “同时 性 ”作用 域 规则 ， 而 又 不 需要 构造 额外 的 框架 。 
练习 4.18 考虑 下 面 的 另 一 种 扫描 出 定义 的 方式 ， 它 将 正文 里 的 例子 变换 为 : 
(lambda <vars> 
(let ((u ’*unassigned*) 
(v ’*unassigned*) ) 
(let ((a <el>) 
(b <e2>) ) 
(set! u a) 
(set! v b)) 
<e3>) ) 
这 里 的 a 和 b 表 示 的 是 新 变量 名 字 ， 它 们 由 解释 器 建立 ， 不 会 出 现在 用 户 程序 里 。 考 虑 取 自 
3.5.4 节 的 solve 过 程 : 
(define (solve f yO dt) 
(define y (integral (delay dy) y0 dt)) 


”3 IEEE 的 Scheme 标 准 允许 采取 不 同 的 实现 策略 ， 其 中 要 求 程序 员 遵 守 这 样 的 限制 ， 而 不 是 要 求实 现 去 强制 要 
求 它 。 有 些 Scheme 实 现 ， 包 括 MIT 的 Scheme， 采 用 了 上 面 所 说 的 变换 。 这 样 ， 一 些 并 不 违反 这 一 限制 的 程序 
将 能 够 在 这 种 实现 上 运行 。 
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(define dy (stream-map f y)) 
y) 
如 果 采 用 本 练习 所 示 的 扫描 出 内 部 定义 的 方式 ， 这 一 过 程 还 能 工作 吗 ? 如 果 采 用 正文 中 给 
的 扫描 方式 呢 ? 请 给 出 解释 。 
练习 4.19 Ben Bitdiddle, Alyssa P. Hacker 和 Eva Lu Ator 在 关于 下 面 表达 式 的 期 望 求 值 
结果 上 有 和 争论 : 


{let ((a 1y) 

(define (f x) 
(define b (+ a x)) 
(define a 5) 

(+ a b)) 

(上 10)) 


Ben 断 言 使 用 aefine 的 顺序 规则 将 能 得 到 结果 ， 那 时 b 被 定义 为 11， 而 后 a 定 义 为 5， 所 以 最 
后 的 结果 是 16。Alyssa 反 对 说 ， 相 互 递 归 要 求 内 部 过 程 定义 的 同时 性 作用 域 规则 ， 将 过 程 名 
字 看 作 与 其 他 名 字 不 同 是 不 合理 的 。 因 此 她 为 练习 4.16 提 出 的 机 制 辩 护 ， 这 将 导致 在 需要 计 
算 b 值 的 时 候 a 还 设 有 赋值 。 按 照 Alyssa 的 观点 ， 这 个 过 程 产生 一 个 错误 。Eva 持 第 三 种 观点 ， 
她 说 如 果 a 的 b 的 定义 真正 是 同时 的 ， 那 么 a 的 值 5 应 该 能 用 在 b 的 求 什 中。 这样， 按照 Eva 的 观 
点 ，a 应 该 是 5，b 应 该 是 15， 而 最 终结 果 应 该 是 20。 你 支持 哪 种 观点 ?你 能 设计 出 一 种 实现 
内 部 定义 的 方案 ， 使 之 具有 Eva 所 喜欢 的 行为 吗 ? 2 
练习 4.20 ”由 于 内 部 定义 表面 上 看 是 顺序 的 ， 实 际 上 却 是 同时 性 的 ， 有 些 人 就 希望 完全 
避免 它们 ， 采 用 另 一 种 特殊 形式 1etrec。1letzrec 看 起 来 像 Let ， 因 此 毫 不 奇怪 ， 它 的 变量 
约束 都 是 同时 建立 的 ， 各 个 变量 都 具有 同样 的 作用 域 。 与 上 面 一 样 的 过 程 上 现在 可 以 写成 没有 
内 部 定义 的 形式 ， 但 却 具 有 相同 的 意义 : 
(define (f x) 
(letrec ( (even? 
(lambda (n) 
(if (= n 0) 
true 
(odd? (- n 1))))) 
(odd? 
(lambda (n) 
(22 (= p 0) 
false 
(even? (- n 1)))))) 
<f 体 的 其 余部 分 >) ) 
letrec 表 达 式 具有 如 下 形式 
(letrec ((<vari> <expi>) ... (<var,> <exp,>) ) 


<body>) 


它 是 let 的 一 种 变形 ， 其 中 的 表达 式 <expi> 为 变量 <vani> 提 供 内 部 值 ， 这 些 表达 式 的 求 值 是 在 


20 MIT 的 Scheme 实现 支持 Alyssa， 基 于 如 下 基础 : 从 原则 上 说 Eva 是 正确 的 一 一 定义 应 该 认为 是 同时 的 。 都 是 看 
起 来 很 难 有 一 种 一 般 性 的 有 效 机 制 实现 Eva 的 需求 。 既 然 缺乏 这 样 一 种 机 制 ， 那 么 最 好 就 是 在 遇 到 困难 的 同 
时 定义 时 产生 一 个 错误 (Alyssa 的 观点 ) ， 而 不 是 产生 一 个 不 正确 的 结果 (Ben 所 希望 的 ) 。 
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一 个 包含 了 所 有 letrec 约 束 的 环境 里 完成 的 。 这 样 也 就 允许 了 约束 中 的 递归 ， 例 如 上 面 例子 
里 even? 和 odq? 的 相互 递归 ， 或 者 采用 下 面 方式 求 10 的 阶乘 : 
(letrec ((fact 
(lambda (n) 
(25 (=m. 2) 
zi 
(* ma (Fact (= m wy))7))) 
(fact 10) 


a) 请 将 1etzec 实 现 为 一 种 派生 表达 式 ， 将 这 种 表达 式 变换 为 如 上 面 正文 中 所 描述 的 ， 或 
者 如 练习 4.18 所 述 的 Let 表 达 式 。 也 就 是 说 ， 用 一 个 Let 创建 的 Iletzrec 变 量 ， 而 后 用 set ! 给 
它们 赋值 。 

b) Louis Reasoner 对 于 所 有 这 些 有 关内 部 定义 的 大 惊 小 怪 感 到 很 困惑 。 他 看 这 些 问题 的 方 
式 是 ， 如 果 你 不 喜欢 在 一 个 过 程 里 用 define， 你 就 可 以 只 用 let。 请 画 出 一 个 环境 图 ， 说明 
在 求 值 表达 式 (£ 5) 的 过 程 中 ， 求 值 到 <rest of body of £> 时 的 环境 情况 ， 以 此 说 明 为 什么 
Louis 的 推理 是 不 严谨 的 。 这 里 的 f 如 本 练习 中 的 定义 。 再 为 同一 个 求 值 画 出 一 个 环境 图 ， 将 f£ 
定义 中 的 letrec 换 成 let。 

练习 4.21 非常 有 趣 ，Louis 在 练习 4.20 里 的 直觉 是 正确 的 。 确 实 有 可 能 不 用 letrec 而 描 
述 出 递归 过 程 (其 至 也 不 需要 用 define)， 虽然 完成 此 事 的 方式 远 比 Louis 的 设想 微妙 得 多 。 
下 面 表 达 式 能 通过 应 用 一 个 递归 的 阶乘 过 程 计 算出 10 的 阶乘 231， 

((lambda (n) 

((lambda (fact) 
(fact fact n)) 
(lambda (ft k) 
(if (= k 1) 
于 


(se (ft fe (= F170) 
10) 
a) 请 仔细 检查 (通过 求 值 这 个 表达 式 )， 以 确定 这 个 表达 式 确实 能 算出 阶乘 。 设 计 一 个 计 
算 斐 波 纳 契 数 的 类 似 表达 式 。 
b) 考虑 下 面 过 程 ， 其 中 包含 相互 递归 的 内 部 定义 : 
(define (f x) 
(define (even? n) 
(if t= ñ 0) 
true 
(odd? (= a 1)))) 
(define (odd? n) 
CLE (= mi 0) 
false 
(even? (- n 1)))) 


(even? x) ) 


a 这 个 例子 说 明了 一 种 不 用 aefine 构 造 递归 过 程 的 程序 设计 诡计 。 这 类 诡计 中 最 一 般 的 是 Y 运 算 符 ， 可 以 用 它 
给 出 递归 的 一 个 “ 纯 4 演 算 ” 实 现 。( 参 见 Stoy 1977 有 关 lambda 演 算 的 细节 ， 以 及 Gabriel 1988 有 关 在 Scheme 
里 Y 运 算 符 的 展示 。) 
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请 填充 下 面 £ 的 定义 中 空缺 的 表达 式 ， 完 成 它 ， 其 中 不 使 用 内 部 定义 也 不 用 letrec: 
(define (f x) 
((lambda (even? odd?) 
(even? even? odd? x)) 


” (lambda (ev? od? n) 


(if (= n 0) true (od? <??> <??> <??>))) 
(lambda (ev? od? n) 
(if (= n 0) false (ev? <??> <??> <??>))))) 


4.1.7 将 语法 分 析 与 执行 分 离 


上 面 实现 的 求 值 器 确实 很 简单 ， 但 却 也 非常 低 效 ， 因 为 有 关 表 达 式 的 语法 分 析 与 它们 的 
执行 交织 在 一 起 。 如 果 一 个 程序 要 执行 许多 次 ， 对 于 它 的 语法 分 析 也 就 需要 做 许多 次 。 举 例 
来 说 ， 考 虑 采用 下 面 的 factorial 定 义 求 值 (factorial 4): 


(define (factorial n) 
(2E (= 五 1) 
3 


(+ (factorial (- n 1)) n))) 


在 每 次 调用 factorial 时 ， 求 值 器 就 需要 确定 它 的 体 是 一 个 if 表达 式 ， 而 后 提取 出 其 中 
的 谓词 。 只 有 到 了 此 时 ， 它 才能 去 求 值 这 个 谓词 并 基于 它 的 值 完 成 分 派 。 每 次 去 求 值 表达 式 
(* (factorial (- n 1)) n), 或 者 子 表达 式 (factorial (- n 1)) #1 (- n 1) 时 ， 
求 值 器 都 必须 执行 eval 里 的 分 情况 分 析 ， 以 便 确 定 相 应 的 表达 式 是 过 程 应 用 ， 而 且 必 须 提取 
出 有 关 的 运算 符 和 运算 对 象 。 这 种 分 析 是 代价 高 昂 的 ， 反 复 执行 它们 是 一 种 浪费 。 

我 们 可 以 对 这 个 求 值 右 做 一 些 变换 ， 使 它 的 效率 大 大 提高 ， 采 用 的 方法 就 是 重新 安排 其 
中 的 工作 ， 使 有 关 的 语法 分 析 只 进行 一 次 ”*。 我 们 要 将 以 一 个 表达 式 和 一 个 环境 为 参数 的 
eval 分 割 为 两 个 部 分 。 过 程 analyze 只 取 表 达 式 作为 参数 ， 它 执行 语法 分 析 ， 并 返回 一 个 
新 的 过 程 ， 执 行 过 程 ， 其 中 封装 起 在 分 析 表 达 式 的 过 程 中 已 经 完成 的 工作 。 这 个 执行 过 程 以 
一 个 环境 作为 参数 ， 并 完成 实际 的 求 值 工作 。 这 样 就 会 节省 需要 做 的 工作 ， 因 为 对 一 个 表达 
式 只 需要 调用 一 次 analyze， 而 执行 过 程 却 可 能 被 调用 许多 次 。 

将 语法 分 析 和 执行 分 开 之 后 ，eval 现 在 就 变 成 了 

(define (eval exp env) 


((analyze exp) env)) 


调用 analyze 的 结果 得 到 了 一 个 执行 过 程 ， 而 后 将 它 应 用 于 环境 。analyze 过 程 完成 像 
4.1.1 节 里 原来 eval 那 样 的 分 情况 分 析 ， 除 了 其 中 的 分 派 过 程 只 执行 分 析 工 作 ， 不 进行 完全 的 
求 值 之 外 : 

(define (analyze exp) 

(cond ((self-evaluating? exp) 
(analyze-self-evaluating exp)) 
((quoted? exp) (analyze-quoted exp) ) 


22 这 一 技术 是 编译 过 程 中 的 一 个 内 在 组 成 部 分 ， 有 关 编 译 的 问题 将 在 第 5 章 讨论 。Jonathan Rees 为 T 项 目 写 了 一 
个 类 似 这 里 的 Scheme 编译 器 (Rees and Adams 1982), Marc Feeley (1986) ( 见 Feeley and Lapalme 1987) 
在 其 硕士 论文 里 独立 地 发 明了 这 一 技术 。 
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((variable? exp) (analyze-variable exp) ) 
((assignment? exp) (analyze-assignment exp) ) 
((definition? exp) (analyze-definition exp) ) 

( (if? exp) (analyze-if exp) ) 

((lambda? exp) (analyze-lambda exp) ) 

( (begin? exp) (analyze-sequence (begin-actions exp) ) ) 
( (cond? exp) (analyze (cond->if exp) )) 

((application? exp) (analyze-application exp) ) 

(else 


(error "Unknown expression type -- ANALYZE" exp) ))) 


下 面 是 一 个 处 理 自 求 值 表达 式 的 简单 分 析 过 程 ， 它 返回 一 个 忽略 环境 参数 的 执行 过 程 ， 
直接 返回 相应 的 表达 式 : 


(define (analyze-self-evaluating exp) 
(lambda (env) exp) ) 


对 于 引号 表达 式 ， 我 们 可 以 通过 在 分 析 时 提取 出 被 引 表 达 式 ， 而 不 是 在 执行 中 去 做 的 方 
式 ， 使 这 项 工作 只 需要 做 一 次 ， 从 而 提高 一 点 效率 。 


(define (analyze-quoted exp) 
(let ((qval (text-of-quotation exp) ) ) 
(lambda (env) qval))) 


查看 变量 的 值 仍然 需要 在 执行 过 程 中 做 ， 因 为 这 个 值 依赖 于 所 用 的 环境 ”。 


(define (analyze-variable exp) 


(lambda (env) (lookup-variable-value exp env))) 


analyze-assignment 也 必须 推迟 到 执行 时 才能 去 实际 设置 变量 的 值 ， 因 为 那 时 才 提 
供 了 操作 的 环境 。 然 而 ， 在 分 析 阶 段 已 经 (递归 地 ) 完成 了 对 assignment -value 表 达 式 
的 分 析 ， 这 一 事实 还 是 可 以 大 大 提高 效率 ， 因 为 现在 对 assignment-value 表 达 式 的 分 析 
只 需要 进行 一 次 。 这 种 说 法 对 于 定义 也 是 对 的 。 


(define (analyze-assignment exp) 
(let ((var (assignment-variable exp) ) 
(vproc (analyze (assignment-value exp) ))) 
(lambda (env) 
(set-variable-value! var (vproc env) env) 
"ok) ) ) 


(define (analyze-definition exp) 
(let ((var (definition-variable exp) ) 
(vproc (analyze (definition-value exp) ))) 
(lambda (env) 
(define-variable! var (vproc env) env) 
"ok) ) ) 


对 于 ii 表达 式 ， 我 们 在 分 析 过 程 中 提取 并 分 析 其 谓词 、 推 理 和 替代 部 分 。 


(define (analyze-if exp) 
(let ((pproc (analyze (if-predicate exp) )) 


233 然而 ， 变 量 搜索 中 的 很 大 一 部 分 工作 也 可 以 在 语法 分 析 阶 段 完成 。 正 如 将 在 5.5.6 节 看 到 的 ， 我 们 可 以 在 环境 
结构 中 确定 能 找到 变量 的 值 的 位 置 ， 这 样 就 免除 了 查找 整个 环境 去 确定 变量 匹配 的 需要 。 
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(cproc (analyze (if-consequent exp) ) ) 
(aproc (analyze (if-alternative exp)))) 
(lambda (env) 
(if (true? (pproc env) ) 
(cproc env) 


(aproc env))))) 


分 析 1ambda 表 达 式 也 能 得 到 很 大 的 效率 收获 ， 因 为 只 要 分 析 1ambdaa 体 一 次 ， 即 使 作为 
这 一 lambda 的 求 值 结果 的 过 程 可 能 应 用 许多 次 。 
(define (analyze-lambda exp) 
(let ((vars (lambda-parameters exp)) 
(bproc (analyze-sequence (lambda-body exp)))) 
(lambda (env) (make-procedure vars bproc env)))) 


对 于 表达 式 序列 的 分 析 (如 一 个 begin 或 者 一 个 lambda 表 达 式 的 体 ) 是 更 加 深入 的 ?34。 
序列 中 的 每 个 表达 式 都 将 被 分 析 ， 产 生出 一 个 执行 过 程 。 这 些 执行 过 程 被 组 合 起 来 形成 一 个 
执行 过 程 ， 该 执行 过 程 以 一 个 环境 为 参数 。 它 以 这 个 环境 作为 参数 ， 顺 序 地 调用 各 个 独立 的 
执行 过 程 。 

(define (analyze-sequence exps) 

(define (sequentially procl proc2) 
(lambda (env) (procl env) (proc2 env))) 
(define (loop first-proc rest-procs) 
(if (null? rest-procs) 
first-proc 
(loop (sequentially first-proc (car rest-procs) ) 
(cdr rest-procs) ))) 
(let ((procs (map analyze exps)) ) 
(if (null? procs) 
(error "Empty sequence -- ANALYZE") ) 
(loop (car procs) (cdr procs) ))) 


为 了 分 析 一 个 过 程 应 用 ， 我 们 就 需要 分 析 其 中 的 运算 符 和 运算 对 象 ， 并 构造 出 一 个 执行 
过 程 ， 它 能 调用 运算 符 的 执行 过 程 (获得 实际 需要 应 用 的 哪个 过 程 ) 和 运算 对 象 的 执行 过 程 
(获得 实际 参数 )。 而 后 我 们 将 这 些 送 给 execute-application， 这 一 过 程 与 4.1.1 节 的 
apply 类 似 。execute-application 与 apply 的 不 同 之 处 ， 在 于 这 里 作为 复合 过 程 的 过 
程 体 已 经 过 分 析 ， 因 此 不 再 需要 做 进一步 的 分 析 了。 此 时 只 需要 在 扩充 的 环境 里 调用 过 程 体 
的 执行 过 程 。 

(define (analyze-application exp) 

(let ((fproc (analyze (operator exp))) 
(aprocs (map analyze (operands exp) ))) 
(lambda (env) 
(execute-application (fproc env) 


(map (lambda (aproc) (aproc env) ) 
aprocs) )))) 


(define (execute-application proc args) 


(cond ((primitive-procedure? proc) 


24 参见 练习 4.23 有 关 序 列 处 理 的 某 些 见解 。 
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(apply-primitive-procedure proc args) ) 
((compound-procedure? proc) 
( (procedure-body proc) 
(extend-environment (procedure-parameters proc) 
args 
(procedure-environment proc) ))) 
(else 
(error 
"Unknown procedure type -- EXECUTE-APPLICATION" 
proc)))) 
我 们 的 新 求 值 器 所 使 用 的 数据 结构 、 语 法 过 程 和 运行 支持 过 程 与 4.1.2 市 、4.1.3 市 和 4.1.4 
节 中 的 完全 一 样 。 
练习 4.22 请 扩充 本 市 的 求 值 器 ， 使 之 能 支持 特殊 形式 let (参见 练习 4.6)。 
练习 4.23 Alyssa P. Hacker 不 能 理解 为 什么 analyze-sequence 需 要 如 此 复杂 ， 而 所 有 
其 他 的 分 析 过 程 都 是 4.1.1 节 里 的 对 应 求 值 过 程 (或 者 eval 子 句 ) 的 直接 变换 。 她 所 想象 的 
analyze-sequence 大 致 有 具有 下 面 的 样子 : 
(define (analyze-sequence exps) 
(define (execute-sequence procs env) 
(cond ((null? (cdr procs)) ((car procs) env) ) 
(else ((car procs) env) 
(execute-sequence (cdr procs) env)))) 
(let ((procs (map analyze exps) ) ) 
(if (null? procs) 
(error "Empty sequence -- ANALYZE") ) 


(lambda (env) (execute-sequence procs env) ))) 


Eva Lu Ator 给 Alyssa 解 释 说 ， 正 文中 给 出 的 版 本 在 分 析 阶 段 完 成 了 序列 求 值 中 更 多 的 工作 。 
Alyssa 的 序列 求 值 过 程 并 没有 去 调用 内 部 建立 的 各 个 求 值 过 程 ， 而 是 循环 地 通过 一 个 过 程 去 调 
用 它们 。 从 效果 看 ， 虽 然 序列 中 各 个 表达 式 都 经 过 了 分 析 ， 但 整个 序列 本 身 却 没有 分 析 。 

请 对 这 两 个 analyze-sequence 版 本 做 一 个 比较 。 例 如 ， 考 虑 一 种 常见 的 情况 (典型 
的 过 程 体 ) ， 其 中 的 序列 只 有 一 个 表达 式 。 由 Alyssa 的 程序 产生 的 执行 过 程 将 会 做 些 什么 ?由 
上 面 正 文中 的 程序 产生 的 执行 过 程 又 怎么 样 呢 ? 两 个 版 本 在 一 个 包含 两 个 表达 式 的 序列 上 的 
工作 比较 如 何 ? 

练习 4.24 ”请 设计 并 完成 一 些 试验 ， 比 较 原来 的 元 循环 求 值 器 和 本 节 的 这 个 版 本 的 速度 。 
用 你 的 结果 评估 各 种 过 程 在 分 析 阶 段 和 执行 阶段 所 花费 的 时 间 的 比例 。 


4.2 Scheme 的 变形 一 一 惰性 求 值 


有 了 一 个 以 Lisp 程 序 形式 描述 的 求 值 器 ， 我 们 现在 就 可 以 通过 简单 地 修改 这 一 求 值 织 ， 
试验 一 些 语言 设计 的 选择 和 变化 。 确 实 ， 发 明 新 的 语言 ， 常 常 就 是 先 用 一 种 现 有 的 高 级 程序 
设计 语言 写 出 一 个 伐 入 了 这 个 新 语言 的 求 值 器 。 举 例 来 说 ， 如 果 我 们 希望 与 Lisp 社 团 的 其 他 
成 员 讨 论 对 Lisp 提 出 的 某 些 修改 ， 那 么 就 可 以 提供 一 个 体现 了 这 些 修改 的 求 值 右 。 接 收 者 可 
以 用 这 个 新 求 值 器 做 一 些 试验 ， 而 后 送 回 一 些 评论 意见 供 进一步 修改 。 高 层次 的 实现 基础 不 
仅 使 我 们 更 容易 测试 求 值 器 ， 排 除 其 中 的 错误 ， 进 一 步 说 ， 这 种 戏 入 也 使 设计 者 能 从 基础 语 
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言 抄录 2 一 些 特征 ， 就 像 我 们 的 嵌入 式 Lisp 求 值 器 中 使 用 了 取 自 基础 Lisp 的 基本 过 程 和 控制 结 
构 那样 。 只 有 到 了 后 来 《如果 需 要 的 话 ) ， 设 计 者 才 需 要 进一步 去 面 对 在 某 个 低级 语言 或 者 硬 
件 中 做 出 一 个 完整 实现 的 麻烦 事情 。 在 本 节 和 后 面 几 节 里 ， 我 们 将 探究 Scheme 的 几 种 变形 ， 
它们 都 提供 了 明显 的 额外 描述 能 力 。 


4.2.1 正则 序 和 应 用 序 


在 1.1 节 里 开始 讨论 求 值 模型 时 ， 我 们 就 说 Scheme 是 一 个 采用 应 用 序 的 语言 ， 也 就 是 说 ， 
在 过 程 应 用 的 时 候 ， 提 供给 Scheme 过 程 的 所 有 参数 都 需要 完成 求 值 。 与 此 相反 ， 采 用 正则 
序 的 语言 将 把 对 过 程 参数 的 求 值 延 后 到 需要 这 些 实际 参数 的 值 的 时 候 。 将 过 程 参数 的 求 值 拖 
延 到 最 后 的 可 能 时 刻 (也 就 是 说 ， 直 至 某 些 基本 操作 实际 需要 它们 的 时 刻 ) 也 被 称 为 情 性 求 
值 ”%。 考 虑 过 程 : 
(define (try a b) 
(if (= a0) 1 by) 
对 于 (try 0 (/ 1 0)) 的 求 值 将 在 Scheme 里 产生 一 个 错误 ， 而 对 于 惰性 求 值 就 不 会 出 错 。 
在 那里 对 这 个 表达 式 求 值 将 返回 1， 因 为 参数 (/ 1 0) 根本 不 会 被 求 值 。 
下 面 过 程 unless 的 定义 是 另 一 个 利用 惰性 求 值 的 例子 : 
(define (unless condition usual-value exceptional-value) 
(if condition exceptional-value usual-value) ) 


它 可 以 用 在 下 面 这 样 的 表达 式 里 : 
(unless (= b 0) 
(/ a b) 
(begin (display "exception: returning 0") 
0) ) 
在 采用 应 用 序 的 语言 里 ， 这 样 做 就 不 行 了 ， 因 为 在 unless 被 调用 之 前 ， 这 里 的 正常 值 和 有 异 
常 值 都 会 被 求 值 ( 请 与 练习 1.6 比 较 一 下 )。 惰 性 求 值 的 一 个 优点 就 是 使 某 些 过 程 (例如 
unless) 能 够 完成 有 用 的 计算 ， 即 使 对 它们 的 某 些 参数 的 求 值 将 产生 错误 甚至 根本 不 能 终 
JE 
如 果 在 某 个 参数 还 没有 完成 求 值 之 前 就 进入 一 个 过 程 的 体 ， 我 们 就 说 这 一 过 程 相 对 于 该 
参数 是 非 严 格 的 。 如 果 在 进入 过 程 体 之 前 某 个 参数 已 经 完成 求 值 ， 我 们 就 说 该 过 程 相对 于 这 
个 参数 为 严格 的 ””。 在 一 个 纯 的 应 用 序 语言 里 ， 所 有 的 过 程 相 对 于 每 个 参数 都 是 严格 的 。 而 
在 一 个 纯 的 正则 序 语言 里 ， 所 有 的 复合 过 程 对 每 个 参数 都 是 非 严格 的 ， 而 基本 过 程 可 以 是 严 
格 的 ， 也 可 以 是 非 严 格 的 。 也 存在 一 些 语言 (参见 练习 4.31)， 它 们 允许 程序 员 对 自己 定义 的 


35 抄录 :“ 抄 取 ， 特 别 是 对 很 大 的 文档 或 者 材料 ， 目 的 就 是 使 用 它 ， 无 论 是 得 到 或 者 没有 得 到 其 拥有 者 的 允许 。 
摘录 :“ 抄 录 ， 有 时 还 包含 着 吸收 、 处 理 的 理解 之 意 。”( 这 些 定义 抄录 自 Steele et al. 1983， 也 见 Raymond 
1993, ) 

34 术语 “ 情 性 ”和 “正则 序 ” 之 间 的 差异 有 时 会 使 人 感到 有 些 困 惑 。 一 般 说 ,“ 情 性 ” 指 的 是 特定 求 值 器 里 的 
有 关机 制 ， 而 “正则 序 ” 指 的 是 语言 的 语义 ， 与 特定 的 求 值 策略 无 关 。 当 然 ， 这 并 不 是 黑白 分 明 的 划分 ， 两 
种 说 法 也 常常 被 相互 替代 地 使 用 。 

37 “严格 ”和 “ 非 严格 ”的 术语 基本 上 表示 了 与 “应 用 序 ” 和 “正则 序 ” 同 样 的 意思 ， 但 是 它们 针对 的 是 个 别 
的 过 程 和 参数 ， 而 不 是 针对 整个 语言 。 在 一 个 有 关 程 序 设计 语言 的 会 议 上 ， 你 可 能 会 听 到 某 人 说 , “正则 序 
语言 Hassle 包 含 了 一 些 严格 的 基本 过 程 。 其 他 过 程 以 情 性 求 值 的 方式 处 理 其 参数 。 
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过 程 的 严格 性 做 细节 的 控制 。 

将 过 程 做 成 非 严格 的 也 可 能 很 有 用 ， 一 个 特别 使 人 印象 深刻 的 例子 就 是 cons (或 者 一 般 
地 说 ， 任 何 数据 结构 的 构造 函数 )。 这 样 ， 我 们 就 可 以 在 其 至 还 不 知道 元 素 的 值 的 情况 下 ， 就 
去 完成 一 些 有 用 的 计算 ， 将 元 素 组 合 起 来 形成 数据 结构 ， 并 对 得 到 的 数据 结构 做 各 种 操作 。 
这 确实 非常 有 意义 。 举 例 来 说 ， 这 样 就 可 以 在 不 知道 一 个 表 里 的 元 素 值 的 情况 下 计算 表 的 长 
度 。 我 们 将 在 4.2.3 节 利用 这 一 思想 ， 把 第 3 章 的 流 实现 为 由 非 严 格 的 cons 序 对 构成 的 表 。 

练习 4.25 ”假定 (在 常规 的 应 用 序 的 Scheme 里 ) 定义 了 如 上 所 示 的 unless， 而 后 基于 
unless 将 factorial 定 义 为 : 


(define (factorial n) 
(unless (= n 1) 
(* n (factorial t= va 1))) 
1)) 


在 企图 计算 (factorial 5) 时 会 出 现 什么 问题 ?上 述 定义 在 正则 序 语言 里 能 够 工作 
吗 ? 

练习 4.26 Ben Bitdiddle 和 Alyssa P. Hacker 对 于 在 实现 诸如 unless 一 类 东西 中 惰性 求 值 
的 重要 性 有 不 同意 见 。Ben 指 出 ， 有 可 能 在 应 用 序 语言 里 将 unless 实 现 为 一 个 特殊 形式 。 
Alyssa 则 反对 这 一 说 法 ， 认 为 如 果真 的 那样 做 ，unless 就 将 只 是 一 种 语法 形式 而 不 是 一 个 过 
程 了 ， 因 而 就 不 能 与 高 阶 过 程 结合 在 一 起 工作 。 请 为 这 两 种 论述 填充 一 些 细节 : 证 明 可 以 如 
何 将 unless 实 现 为 一 种 派生 表达 式 (就 像 cond 或 者 1et) ; 再 给 出 一 种 情况 作为 实例 ， 说 
明 如 果 unless 可 以 用 作 一 个 过 程 而 不 是 特殊 形式 ， 在 这 一 情况 里 就 可 以 使 用 。 


4.2.2 一 个 采用 惰性 求 值 的 解释 器 


在 这 一 节 里 ， 我 们 将 要 实现 一 种 正则 序 语 言 ， 它 与 Scheme 完全 相同 ， 但 是 其 中 的 复合 过 
程 对 任何 参数 都 是 非 严 格 的 。 基 本 过 程 将 仍然 是 严格 的 。 修 改 4.1.1 贡 的 求 值 器 ， 使 它 能 按照 
这 种 方式 解释 程序 ， 这 一 工作 并 不 困难 。 需 要 完成 的 所 有 修改 都 围绕 着 过 程 应 用 。 

这 里 的 基本 想法 就 是 ， 在 应 用 一 个 过 程 时 ， 解 释 器 必须 确定 哪些 参数 需要 求 值 ， 哪 些 应 
该 延 时 求 值 。 对 于 这 些 延 时 的 参数 都 不 进行 求 值 ， 相 反 ， 这 里 将 它们 变换 为 一 种 称 为 模 
(thunk) 的 对 象 。 在 槽 里 必须 包含 着 为 了 产生 这 一 参数 的 值 (在 需要 这 个 值 的 时 候 ) 所 需 
要 的 全 部 信息 ， 就 像 它 已 经 在 应 用 时 求 出 值 一 样 。 为 此 ， 槽 中 就 必须 包括 参数 表达 式 ， 以 及 
这 一 过 程 应 用 的 求 值 所 在 的 那个 环境 。 

对 槽 中 的 表达 式 求 值 的 过 程 称 为 强迫””。 一 般 而 言 ， 只 有 在 需要 一 个 槽 的 值 时 才 会 去 强 
迫 它 ， 这 包括 : 在 将 它 送 给 一 个 基本 过 程 ， 而 基本 过 程 需要 用 这 个 值 时 ， 当 它 是 某 个 条 件 表 
达 式 的 谓词 的 值 时 ， 当 它 是 某 个 运算 符 的 值 ， 而 现在 需要 将 它 作 为 一 个 过 程 去 应 用 时 。 现 在 
要 处 理 的 一 个 选择 是 采用 或 者 不 采用 记忆 性 的 槽 ， 就 像 前 面 在 3.5.1 节 对 延 时 对 象 所 做 的 那样 。 
有 了 记忆 之 后 ,一 旦 某 个 槽 第 一 次 被 强迫 ， 它 就 保存 起 计算 出 的 值 。 随 后 的 强迫 只 需要 简单 


38 术语 楼 是 一 个 非 正式 的 工作 组 在 讨论 Algol 60 中 命名 调用 机 制 的 实现 时 发 明 的 。 他 们 看 到 ， 有 关 表 达 式 的 大 
部 分 分 析 (“思考 ”) 都 能 在 编译 时 完成 ， 这 样 到 运行 时 ， 表 达 式 已 经 被 上 槽 了 (Ingerman et al. 1960), 

29 这 与 对 于 延 时 对 象 的 force 的 用 法 类 似 ， 第 3 章 引 进 了 这 种 对 象 ， 用 于 表示 流 。 我 们 在 这 里 所 做 的 与 在 第 3 章 
所 做 的 之 间 的 根本 差异 ， 就 在 于 现在 是 要 把 延 时 和 强迫 构筑 到 求 值 器 里 ， 这 将 使 我 们 能 在 整个 语言 里 统一 地 
使 用 这 些 机 制 。 
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地 返回 其 中 保存 的 值 ， 不 必 重 复 去 做 计算 。 我 们 将 把 这 个 解释 器 做 出 带 记 忆 的 ， 因 为 对 于 大 
部 分 应 用 而 言 ， 这 种 方式 更 加 高 效 。 当 然 ， 这 里 也 存在 着 一 些 很 难处 理 的 问题 *。 


修改 求 值 器 

惰性 求 值 器 与 4.1.1 节 中 的 求 值 器 之 间 的 最 重要 不 同 点 ， 就 在 于 eval 和 apply 里 对 过 程 应 
用 的 处 理 。 

eval 里 的 application? 子 句 现 在 变 成 了 


((application? exp) 

(apply (actual-value (operator exp) env) 
(operands exp) 
env) ) 


这 几乎 与 4.1.1 节 里 eval 的 application? 子 句 一 模 一 样 。 不 过 ， 对 于 惰性 求 值 ， 我 们 是 用 
运算 对 象 表 达 式 去 调用 apply， 而 不 是 用 对 它们 求 值 产 生出 的 实际 参数 。 因 为 现在 参数 求 值 
已 经 延 时 进行 了 ， 而 且 构 造 模 的 时 候 需 要 用 到 环境 ， 因 此 也 必须 传递 它 。 这 里 还 是 要 对 运算 
符 求 值 ， 因 为 apply 需 要 被 实际 应 用 的 那个 过 程 ， 以 便 根 据 其 类 型 去 分 派 并 应 用 它 。 

无 论 何 时 ， 只 要 我 们 需要 某 个 表达 式 的 实际 值 ， 就 用 

(define (actual-value exp env) 

(force-it (eval exp env))) 

而 不 能 只 用 eval ， 这 样 ， 如 果 这 个 表达 式 的 值 是 一 个 槽 ， 它 就 会 被 强迫 求 出 值 来 。 

我 们 新 版 本 的 apply 也 几乎 与 4.1.1 节 里 的 一 样 。 不 同 之 处 在 于 送 给 eval 的 是 未 经 求 值 的 
运算 对 象 表达 式 : 对 于 基本 过 程 (它们 是 严格 的 )， 我 们 需要 在 应 用 这 些 过 程 之 前 求 值 有 关 的 
参数 ， 对 于 复合 过 程 (它们 非 严格 )， 就 在 应 用 这 些 过 程 时 拖延 对 所 有 参数 的 求 值 。 

(define (apply procedure arguments env) 

(cond ((primitive-procedure? procedure) 
(apply-primitive-procedure 
procedure 
(list-of-arg-values arguments env))) ; changed 
((compound-procedure? procedure) 
(eval-sequence 
(procedure-body procedure) 
(extend-environment 
(procedure-parameters procedure) 
(list-of-delayed-args arguments env) ; changed 
(procedure-environment procedure) )) ) 
(else 
(error 


"Unknown procedure type -- APPLY" procedure) ))) 


处 理 参 数 的 过 程 就 像 4.1.1 节 里 的 list-of-values, {Hlist-of-delayed-argsth Ent 
有 关 的 参数 而 不 是 求 值 它们 ， 而 且 1ist-of-arg-values 用 的 是 actual-value 而 不 是 


”惰性 求 值 与 记忆 性 的 组 合 有 时 被 称 为 按 需 调用 的 参数 传递 ， 与 按 名 调用 相对 应 ( 按 名 调用 由 Algol 60 引 进 ， 
类 似 于 不 带 记 忆 的 惰性 求 值 )。 作 为 语言 设计 者 ， 我 们 可 以 构造 自己 的 求 值 器 ， 使 之 带 有 记忆 ， 或 者 不 带 记 
IT, 或 者 将 这 一 问题 留 给 程序 员 (练习 4.31)。 正 如 你 根据 第 3 章 可 以 想到 的 ， 如 果 在 这 里 出 现 赋值 ， 这 些 选 
择 将 会 引出 一 些微 妙 而 且 迷 惑 人 的 问题 (参见 练习 4.27 和 4.29) 。 有 一 篇 极 好 的 文章 (Clinger 1982) 曾 试图 
澄清 这 里 产生 的 混乱 ， 理 出 其 中 的 头绪 。 
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eval: 


(define (list-of-arg-values exps env) 
(if (no-operands? exps) 
"H 
(cons (actual-value (first-operand exps) env) 
(list-of-arg-values (rest-operands exps) 
env)))) 
(define (list-of-delayed-args exps env) 
(if (no-operands? exps) 
E. 
(cons (delay-it (first-operand exps) env) 
(list-of-delayed-args (rest-operands exps) 


env) ))) 


求 值 器 里 另 一 个 必须 修改 的 地 方 是 对 if 的 处 理 ， 在 这 里 我 们 必须 用 actual-value 取 代 
eval， 以 便 在 测试 真 或 者 假 之 前 取得 谓词 表达 式 的 值 : 
(define (eval-if exp env) 
(if (true? (actual-value (if-predicate exp) env)) 
(eval (if-consequent exp) env) 


(eval (if-alternative exp) env))) 


最 后 ， 我 们 还 必须 修改 4river-loop 过 程 ( 见 4.1.4 节 )， 在 其 中 用 actual-value 代 赫 
eval， 这 就 使 得 当 延 时 的 值 传播 回 到 读 入 一 求 值 一 打印 循环 时 ， 在 打印 之 前 将 强迫 对 它们 求 
值 。 我 们 还 修改 了 提示 符 ， 以 表明 这 是 一 个 惰性 求 值 器 : 

(define input-prompt ";;; L-Eval input:") 

(define output-prompt ";;; L-Eval value:") 

(define (driver-loop) 

(prompt-for-input input-prompt) 
(let ((input (read) ) ) 
(let ( (output 
(actual-value input the-global-environment) ) ) 
(announce-output output-prompt) 


(user-print output) ) ) 
(driver-loop) ) 


做 完了 这 些 修改 之 后 ， 就 可 以 启动 这 个 求 值 器 并 测试 它 了 。 对 4.2.1 节 里 讨论 的 try 表 达 
式 的 成 功 求 值 表明 这 个 解释 器 确实 是 在 做 惰性 求 值 : 

(define the-global-environment (setup-environment)) 

(driver-loop) 

F) -Eval input: 

(define (try a b) 

(LE (= a 0) 1, 5}) 

;;; L-Eval value: 

ok 

i7; L-Eval input: 

(Exy a 从 2 6)) 
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j77 L-Eval value: 
Hi 


HIRT 
FAT) i Se HS Hh A RE a EHE, E REE Hcl ey TB OE A AH 
并 能 在 以 后 强迫 这 些 模 的 求 值 。 一 个 槽 必须 包装 起 一 个 表达 式 和 一 个 环境 ， 以 便 在 后 来 可 以 
生成 相应 的 实际 参数 。 在 强迫 一 个 槽 求 值 时 ， 只 需 简 单 从 槽 中 提取 出 表达 式 和 环境 ， 并 在 此 
环境 里 对 表达 式 求 值 。 这 里 也 应 该 用 actual-value 而 不 是 eval ， 如 果 表 达 式 的 值 本 身 仍 
然 是 一 个 槽 ， 那 么 就 还 需要 强迫 它 ， 并 这 样 继续 下 去 ， 直 到 得 到 某 个 不 是 槽 的 东西 为 止 : 
(define (force-it obj) 
(if (thunk? obj) 
(actual-value (thunk-exp obj) (thunk-env obj) ) 
obj) ) 
包装 起 一 个 表达 式 和 一 个 环境 的 最 简单 方式 是 做 出 一 个 表 ， 其 中 包含 着 这 个 表达 式 和 对 
应 的 环境 。 这 样 ， 我 们 可 以 用 如 下 方式 创建 槽 : 
(define (delay-it exp env) 


(list ‘thunk exp env) ) 


(define (thunk? obj) 
(tagged-list? obj ‘thunk)) 


(define (thunk-exp thunk) (cadr thunk) ) 


(define (thunk-env thunk) (caddr thunk) ) 


Khe, BATS CA ARE as BT I AN tb ee, TEAM IIL. “4 ER 
迫 求 值 时 ， 我 们 就 将 它 转 变 为 一 个 已 求 值 的 槽 ， 将 其 中 的 表达 式 用 相应 的 值 取代 ， 并 改变 其 
thunk 标 志 ， 以 便 能 识别 出 它 是 已 经 求 过 值 的 所 : 

(define (evaluated-thunk? obj) 

(tagged-list? obj ‘evaluated-thunk) ) 


(define (thunk-value evaluated-thunk) (cadr evaluated-thunk) ) 


(define (force-it obj) 
(cond ((thunk? obj) 
(let ((result (actual-value 
(thunk-exp obj) 
(thunk-env obj) ))) 
(set-car! obj ‘’evaluated-thunk) 


(set-car! (cdr obj) result) ; replace exp with its value 
(set-cdr! (cdr obj) *()) ; forget unneeded env 
result) ) 


((evaluated-thunk? obj) 


“ER: 一 旦 在 一 个 槽 里 的 表达 式 已 经 计算 过 ， 在 这 里 就 从 该 槽 中 删除 snv。 这 样 做 对 于 由 解释 器 返回 的 值 没 
有 任何 影响 ， 只 是 有 助 于 节约 空间 ， 因 为 从 槽 中 删除 对 env 的 引用 ， 一 旦 这 一 对 象 不 再 需要 ， 有 关 的 结构 就 
可 以 被 废料 收集 ， 其 空间 就 能 回收 ， 如 我 们 在 5.3 节 将 要 讨论 的 。 

与 此 类 似 ， 在 3.5.1 节 里 ， 也 可 以 对 记忆 了 的 延 时 对 象 中 不 再 需要 用 的 环境 做 废料 收集 ， 方 法 就 是 让 
memo-proc 在 保存 了 自己 的 值 之 后 ， 做 某 种 像 (set! proc “0) 一 类 的 事情 ， 抛 弃 其 中 的 过 程 proc lE 
包含 了 一 个 环境 ， 以 便 aelay 在 那里 求 值 ) 。 
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(thunk-value obj) ) 
(else obj))) 


请 注意 ， 同 一 个 delay-it 过 程 对 于 有 记忆 或 者 没有 记忆 的 情况 都 能 工作 。 
练习 4.27 ”假定 我 们 将 下 面 定 义 送 给 惰性 求 值 器 : 

(define count 0) 

(define (id x) 


(set! count (+ count 1)) 


x) 


请 给 出 下 面 交互 序列 中 空缺 的 值 ， 并 解释 你 的 回答 2。 
(define w (id (id 10))) 


i77 L-Eval input: 
count 

777 L-Eval value: 
<response> 

i777 L-Eval input: 
w 

;;; L-Eval value: 
<response> 

;;; L-Eval input: 
count 

;;; L-Eval value: 


<response> 

练习 4.28 eval 在 把 运算 符 送 给 apply 之 前 ， 是 采用 actual-value 而 不 是 eval 去 求 
值 它 ， 以 便 强迫 得 到 运算 符 的 值 。 请 给 出 一 个 例子 ， 说 明 在 这 里 必须 这 样 强迫 求 值 。 

练习 4.29 请 展示 一 个 程序 ， 按 照 你 的 预期 ， 如 果 没 有 记忆 功能 ， 它 的 运行 会 比 有 记忆 功 
能 时 慢 得 多 。 此 外 ， 请 考虑 下 面 的 交互 ， 其 中 的 id 过 程 在 练习 4.27 里 定义 ，count 从 0 开始 : 

(define (square x) 

(* x x)) 

TE L-Eval input: 

(square (id 10)) 

377 L-Eval value: 

<response> 

777 L-Eval. input: 

count 

i777 L-Eval value: 

<response> 
请 给 出 在 有 或 者 没有 记忆 功能 时 求 值 器 的 反应 。 

练习 4.30 Cy D. Fect 以 前 是 个 C 程 序 员 ， 他 担心 程序 的 某 些 副作用 根本 就 不 能 实现 ， 因 
为 惰性 求 值 器 并 不 强迫 一 个 序列 里 的 某 些 表达 式 求 值 。 这 是 因为 在 一 个 序列 里 ， 除 了 最 后 一 


2 这 个 练习 说 明 ， 在 惰性 求 值 和 副作用 之 间 的 相互 作用 是 非常 迷惑 人 的 。 这 也 应 该 是 你 根据 第 3 章 的 讨论 可 以 
想到 的 情况 。 
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个 表达 式 之 外 ， 其 他 表达 式 的 值 都 没有 用 到 (这 些 表达 式 仅仅 提供 自己 的 效果 ， 例 如 给 某 个 
变量 赋值 或 者 打印 输出 )， 随 后 也 完全 可 能 因为 不 会 用 到 这 些 值 ( 例 如， 将 它们 用 作 某 个 基本 
过 程 的 参数 ) 而 不 会 强迫 对 它们 求 值 。 因 此 Cy 就 想 ， 在 求 值 一 个 序列 时 ， 我 们 必须 强迫 序列 
中 除了 最 后 表达 式 之 外 的 所 有 表达 式 求 值 。 他 为 此 提议 修改 取 自 4.1.1 节 的 eval-sequence， 
其 中 采用 actual -value 而 不 是 eval : 


(define (eval-sequence exps env) 
(cond ((last-exp? exps) (eval (first-exp exps) env) ) 
(else (actual-value (first-exp exps) env) 
(eval-sequence (rest-exps exps) env)))) 


a) Ben Bitdiddle 认 为 Cy 的 看 法 不 对 。 他 给 Cy 演示 了 2.23 节 中 描述 的 for-each 过 程 ， 这 
是 一 个 重要 的 带 有 副作用 的 序列 的 例子 : 
(define (for-each proc items) 
(if (null? items) 
‘done 
(begin (proc (car items)) 
(for-each proc (cdr items))))) 


他 断言 说 ， 本 节 正 文中 的 求 值 器 (采用 原来 的 eval-sequence) 能 够 正确 处 理 : 


;;; L-Eval input: 

(for-each (lambda (x) (newline) (display x) ) 
(list 57 321 88)) 

57 

321 

88 

;;; L-Eval value: 


done 
请 解释 为 什么 Ben 关 于 for-each 行 为 的 说 法 是 正确 的 。 

b) Cy 同意 Ben 关 于 for-each 实 例 的 看 法 ,但 是 他 说 ， 这 并 不 是 他 在 提议 修改 eval - 
sedquence 时 所 考虑 的 那 一 类 程序 。 他 在 情 性 求 值 器 里 定义 了 下 面 两 个 过 程 : 


(define (pl x) 
(set! x (cons x *(2))) 
x) 


(define (p2 x) 
(define (p e) 

e 

x) 


(p (set! x (cons x '(2))))) 


对 于 原来 的 eval -sequence，(P1 1) 和 (p2 1) 的 值 将 会 是 什么 ”对 于 按照 Cy 的 建议 修 
改 后 的 eval-sequence， 这 两 个 表达 式 的 值 又 会 是 什么 ? 

c) Cy 还 指出 ， 在 像 他 建议 的 那样 修改 了 eval-sequence 之 后 ， 对 于 a 中 那 种 实例 的 行 
为 不 会 有 影响 。 请 解释 为 什么 这 一 说 法 是 正确 的 。 

d) 你 认为 在 惰性 求 值 器 里 应 该 如 何 处 理 序列 的 问题 ?你 喜欢 Cy 的 方法 ， 还 是 喜欢 正文 中 
的 方法 ， 或 者 其 他 什么 方法 ? 

练习 4.31 ”本 节 所 采取 的 途径 有 些 令 人 不 快 ， 因 为 它 对 Scheme 做 了 一 种 不 兼容 的 修改 。 
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将 惰性 求 值 实现 为 一 种 向 上 兼容 的 扩充 可 能 更 好 一 些 ， 也 就 是 说 ， 使 常规 的 Scheme 还 能 像 原 
来 一 样 工作 。 我 们 可 以 通过 扩充 过 程 定义 的 语法 的 方式 达到 这 种 目的 ， 使 用 户 可 以 控制 是 否 
让 参数 延 时 。 在 考虑 这 种 做 法 时 ， 我 们 还 可 以 进一步 允许 用 户 在 延 时 参数 是 否 记 忆 方 面 做 出 
选择 。 举 例 来 说 ， 定 义 : 


(define (f a (b lazy) c (d lazy-memo) ) 
wat 


将 f 定 义 为 一 个 包含 4 个 参数 的 过 程 ， 其 中 的 第 一 个 和 第 三 个 参数 在 过 程 调用 时 求 值 ， 第 二 个 
参数 延 时 求 值 ， 第 四 个 参数 延 时 并 记忆 。 这 样 ， 常 规 的 过 程 定义 将 产生 与 常规 Scheme 完 全 一 
样 的 行为 ， 而 如 果 给 每 个 复合 过 程 的 各 个 参数 都 加 上 1lazy-memo 声 明 ， 就 能 产生 出 与 本 市 定 
义 的 惰性 求 值 器 一 样 的 行为 。 请 设计 并 实现 上 述 修 改 ， 做 出 一 个 这 样 的 Scheme 扩 充 。 你 将 需 
要 去 实现 新 的 语法 过 程 ， 以 处 理 define 的 新 语法 形式 。 你 还 必须 重新 安排 eval 或 者 apply， 
以 确定 什么 时 候 和 参数 是 被 延 时 的 ， 并 根据 情况 强迫 或 者 延 时 有 关 的 参数 。 你 也 必须 对 记忆 与 
否 做 出 适当 的 安排 。 


4.2.3 将 流 作为 情 性 的 表 


在 3.5.1 节 里 ,我们 说 明了 如 何 将 流 实现 为 一 种 延 时 的 表 。 当 时 引进 了 特殊 形式 delay 和 
cons-stream， 它 们 能 用 于 构造 出 一 个 能 用 于 计算 流 的 car 的 “允诺 ”， 在 实际 需要 之 前 不 
必 去 落实 这 种 允诺 。 如 果 我 们 需要 对 求 值 过 程 的 更 多 控制 ， 那 么 就 可 以 利用 这 种 引进 特殊 形 
式 的 一 般 性 技术 ， 但 这 种 做 法 并 不 令 人 满意 。 从 一 个 方面 看 ， 特 殊 形式 并 不 像 过 程 ， 它 们 不 
是 一 阶 的 对 象 ， 因 此 我 们 无 法 将 它们 与 高 阶 过 程 一 起 使 用 *”。 此 外 ， 我 们 还 不 得 不 把 流 创建 
为 一 类 新 的 对 象 ， 与 表 类 似 但 又 不 一 样 ， 这 也 就 要 求 我 们 去 重新 实现 许多 常规 的 表 操作 (如 
map、append 等 等 )， 以 便 能 将 它们 用 于 流 。 

有 了 惰性 求 值 之 后 ， 流 和 表 就 完全 一 样 了 ， 所 以 也 就 不 再 需要 任何 特殊 形式 ， 也 不 再 需 
要 区 分 表 操 作 和 流 操作 。 我 们 需要 做 的 全 部 事情 就 是 做 好 一 些 安排 ， 设 法 使 cons 成 为 非 严格 
的 。 完 成 这 件 事 的 一 种 方式 是 扩充 惰性 求 值 器 ， 人 允许 非 严 格 的 基本 过 程 ， 将 cons 实 现 为 它们 
中 的 一 个 。 另 一 更 简单 的 方式 是 回忆 前 面 讨 论 过 的 一 个 事实 〈 见 2.1.3 节 ) ， 完 全 可 以 不 把 
cons 实 现 为 基本 过 程 。 换 种 方式 ， 我 们 可 以 把 序 对 表示 为 过 程 ”: 

(define (cons x y) 

(lambda (m) (m x y))) 

(define (car z) 

(z (lambda (p q) p))) 


(define (cdr z) 
(z (lambda (p q) q))) 


利用 这 些 基本 操作 ， 各 种 表 操 作 的 标准 定义 也 将 同样 适用 于 无 穷 的 表 〈 流 ) ， 就 像 它 们 可 
以 用 于 有 穷 的 表 一 样 。 流 操作 也 都 可 以 实现 为 表 操 作 。 下 面 是 一 些 例子 : 


3 这 也 就 是 练习 4.26 里 unless 过 程 的 问题 。 

”4 这 正 是 练习 2.4 中 所 描述 的 过 程 性 表示 。 从 本 质 上 说 ， 任 何 过 程 性 表示 都 可 以 用 (例如 ， 消 息 传递 实现 ) 。 请 
注意 ， 我 们 可 以 简单 地 把 这 些 定义 放 进 驱动 循环 里 ， 以 此 将 它们 安装 到 情 性 求 值 器 里 。 如 果 原 来 已 将 cons、 
car 和 cdr 作 为 全 局 环境 里 的 基本 过 程 ， 这 样 就 重新 定义 了 它们 ( 另 见 练习 4.33 和 练习 4.34)。 
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(define (list-ref items n) 
(if (= n 0) 
(car items) 
(list-ref (cdr items) (= n 1)))) 


(define (map proc items) 
(if (null? items) 
"E 
(cons (proc (car items)) 
(map proc (cdr items))))) 


(define (scale-list items factor) 
(map (lambda (x) (* x factor)) 
items) ) 


(define (add-lists list1 list2) 
(cond ((null? list1) list2) 
((null? list2) list1) 
(else (cons (+ (car listl) (car list2) ) 
(add-lists (cdr list1l) (cdr list2)))))) 


(define ones (cons 1 ones) ) 
(define integers (cons 1 (add-lists ones integers) ) ) 


i L-Eval input: 

(list-ref integers 17) 

;;; L-Eval value: 

18 

请 注意 ， 这 种 情 性 的 表 甚 至 比 第 3 章 里 的 流 更 加 情 性 : 这 种 表 里 的 car 也 是 延 时 的 ， 与 其 
cdr 一 样 ”。 事 实 上 ， 其 至 在 访问 一 个 惰性 序 对 的 car 或 者 cdr 时 ， 也 不 会 去 强迫 得 出 表 元 素 
的 值 。 只 有 在 真正 需要 的 时 候 才 会 强迫 得 到 它们 一 一 也 就 是 说 ， 在 被 用 作 基 本 过 程 的 参数 ， 
或 者 需要 作为 结果 打印 时 。 

惰性 序 对 对 于 3.5.4 市 中 由 于 流 而 引起 的 问题 也 很 有 帮助 ， 在 那里 我 们 看 到 ， 当 需要 用 一 
个 循环 做 出 系统 的 流 模型 时 ， 除 了 使 用 由 cons -stream 提 供 的 delay 操 作 外 ， 我 们 还 不 得 
不 在 程序 中 某 些 地 方 点 缀 一 些 显 式 的 delay 操 作 。 有 了 惰性 求 值 之 后 ， 所 有 的 过 程 参 数 就 无 
一 例外 都 是 延 时 的 了 。 举 例 说 ， 我 们 现在 可 以 按 3.5.4 节 原来 所 希望 的 方式 去 做 表 的 积分 ， 去 
求解 微分 方程 : 

(define (integral integrand initial-value dt) 

(define int 
(cons initial-value 
(add-lists (scale-list integrand dt) 


int))) 
int) 
(define (solve f yO dt) 
(define y (integral dy y0 dt)) 
(define dy (map f y)) 
y) 


1S 这 将 使 我 们 能 够 创建 更 具 一 般 性 的 表 结构 的 延 时 版 本 ， 而 不 仅仅 是 序列 。Hughes 1990 中 讨论 了 “ 情 性 树 ” 
的 某 些 应 用 。 
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;;; L-Eval input: 

(list-ref (solve (lambda (x) x) 1 0.001) 1000) 
;;; L-Eval value: 

2.716924 


练习 4.32 ”请 给 出 一 些 例 子 ， 显 示 在 第 3 章 的 流 与 本 节 描 述 的 “更 惰性 ”的 惰性 表 之 间 的 
不 同 。 你 可 能 怎样 利用 这 种 多 出 来 的 惰性 ? 

练习 4.33 Ben Bitdiddle 用 下 面 的 表达 式 测试 了 上 面 给 出 的 惰性 表 实现 : 

(car (la b c)) 

令 他 吃惊 的 是 ， 这 却 产生 出 一 个 错误 。 经 过 一 些 思考 之 后 ， 他 认识 到 ， 由 读 入 一 个 引号 
表达 式 而 得 到 的 “ 表 ” 与 cons 、car 和 cdr 的 新 定义 操作 的 那 种 表 是 不 同 的 。 请 修改 求 值 器 
里 对 引号 表达 式 的 处 理 ， 使 得 驱动 循环 读 入 的 加 引号 的 表 能 够 产生 出 惰性 表 。 

练习 4.34 ”请 修改 求 值 器 的 驱动 循环 ， 使 得 惰性 序 对 和 表 能 以 某 种 合理 的 形式 打印 出 来 。 
(你 将 如 何 对 付 无 穷 表 ? ) 你 可 能 还 需要 修改 惰性 序 对 的 表示 ， 使 求 值 器 能 够 识别 它们 ， 以 便 
完成 打印 工作 。 


4.3 Scheme 的 变形 





非 确定 性 计算 


在 这 一 节 里 ， 我 们 将 扩展 Scheme 求 值 器 ， 以 便 支 持 另 一 种 称 为 非 确定 性 计算 的 程序 设计 
范 型 。 这 里 采用 的 方式 是 将 一 种 支持 自动 搜索 的 功能 做 进 求 值 器 里 。 与 4.2 节 引进 情 性 求 值 相 
比 ， 对 语言 的 这 种 修改 的 意义 更 加 深远 。 

非 确 定性 计算 与 流 处 理 类 似 ， 对 于 “生成 和 检测 式 ” 的 应 用 特别 有 价值 。 作 为 开始 ， 现 
在 考虑 下 面 工作 : 有 一 对 正 整 数 的 表 ， 我 们 要 从 中 造 出 一 对 整数 一 一 其 中 一 个 取 自 第 一 个 表 ， 
另 一 个 取 自 第 二 个 表 一 一 它们 之 和 是 素数 。 在 2.2.3 节 里 我 们 已 经 看 过 如 何 通 过 有 限 序列 操作 
的 方式 解决 这 一 问题 ， 在 3.5.3 节 看 过 如 何 用 无 穷 流 。 所 采用 的 方式 都 是 生成 所 有 可 能 的 数 对 ， 
而 后 过 滤 出 那些 和 为 素数 的 数 对 。 无 论 我 们 是 像 在 第 2 章 里 那样 首先 实际 生成 出 数 对 的 序列 ， 
还 是 像 第 3 章 那 样 换 一 种 方式 ， 交 错 式 地 生成 和 过 滤 ， 对 于 如 何 组 织 这 一 计算 过 程 的 基本 图 景 
都 没有 产生 任何 影响 。 

非 确 定性 的 方式 则 召唤 着 另 一 种 图 景 。 简 单 设想 我 们 需要 (按照 某 种 方式 ) 从 第 一 个 表 
中 取 一 个 数 ， 并 (采用 同样 方式 ) 从 第 二 个 表 里 取 一 个 数 ， 使 它们 之 和 是 素数 。 这 件 事 可 以 
采用 下 面 过 程 描 述 : 

(define (prime-sum-pair listl1 list2) 

(let ((a (an-element-of list1)) 
(b (an-element-of list2))) 


(require (prime? (+ a b))) 
(list a b))) 


看 起 来 这 个 过 程 就 像 是 问题 的 另 一 个 重新 陈述 ， 而 没有 描述 出 一 种 解决 它 的 方法 。 但 无 论 如 
何 ， 这 就 是 一 个 合法 的 非 确定 性 程序 ”“。 


”我们 假定 已 定义 了 过 程 prime?， 它 能 检测 一 个 数 是 否 为 素数 。 即 使 有 了 prime? 的 定义 ，prime-sum- 
pair 过 程 看 起 来 也 非常 可 疑 ， 就 像 是 用 毫 无 帮助 的 “ 伪 Lisp” 企 图 去 定义 平方 根 过 程 ， 如 我 们 在 1.1.7 节 开 
始 时 所 说 的 那样 。 事 实 上 ， 求 平方 根 的 过 程 也 可 以 按照 这 条 路 线 ， 实 际 描述 为 一 个 非 确定 性 的 程序 。 通 过 将 
某 种 搜索 机 制 结合 进 求 值 器 里 ， 我 们 将 逐步 侵蚀 位 于 纯 的 说 明 性 描述 ， 和 有 关 计 算 机 将 如 何 给 出 回答 的 过 程 
性 描述 之 间 的 清晰 界限 。 在 4.4 节 里 ， 我 们 将 在 这 个 方向 上 深入 讨论 。 
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这 里 的 关键 想法 是 ， 在 一 个 非 确 定性 语言 里 ， 表 达 式 可 以 有 多 于 一 个 可 能 的 值 。 例 如 ， 
an-element-of 可 能 返回 一 个 给 定 表 里 的 任何 一 个 元 素 。 我 们 的 非 确定 性 程序 求 值 器 将 进 
行 有 关 的 工作 ， 从 中 自动 选 出 一 个 可 能 的 值 ， 并 维持 有 关 选 择 的 轨迹 。 如 果 随 后 的 要 求 无 法 
满足 ， 求 值 器 就 会 尝试 另 一 种 不 同 的 选择 ， 而 且 它 会 不 断 地 做 出 新 的 选择 ， 直 至 求 值 成 功 ， 
或 者 已 经 用 光 了 所 有 的 选择 。 正 如 情 性 求 值 器 可 以 使 程序 员 摆脱 有 关 值 如 何 延 时 或 者 强迫 的 
细节 一 样 ， 非 确定 性 的 求 值 器 将 使 程序 员 摆 脱 如 何 做 出 这 些 选择 的 细节 。 

有 一 件 很 有 教 益 的 事情 ， 那 就 是 将 非 确定 性 求 值 和 流 处 理 中 引起 的 不 同时 间 图 景 做 一 个 
比较 。 流 处 理 中 利用 了 惰性 求 值 ， 设 法 去 松弛 装配 出 可 能 回答 的 流 的 时 间 与 实际 的 流 元 素 产 
生出 来 的 时 间 之 间 的 关系 。 这 种 求 值 器 支持 这 样 一 种 错觉 ， 好 像 所 有 可 能 的 结果 都 以 一 种 无 
时 间 顺 序 的 方式 摆 在 我 们 面前 。 对 于 非 确定 性 的 求 值 ， 一 个 表达 式 表 示 的 是 对 于 一 集 可 能 世 
界 的 探索 ， 其 中 的 每 一 个 都 由 一 集 选择 所 确定 。 某 些 可 能 世界 将 走 入 死胡同 ， 而 另 一 些 里 则 
保存 着 有 用 的 值 。 非 确定 性 程序 求 值 器 支持 另 一 种 假象 时间 是 有 分 支 的， 而 我 们 的 程序 里 
保存 着 所 有 可 能 的 不 同 执行 历史 。 在 遇 到 一 个 死胡同 时 ， 我 们 总 可 以 回 到 以 前 的 某 个 选择 点 ， 
并 沿 着 另 一 个 分 支 继续 下 去 。 

下 面 将 要 实现 的 非 确定 性 程序 求 值 器 称 为 amb 求 值 器 ， 因 为 它 基 于 一 个 称 为 amb 的 新 特殊 
形式 。 我 们 可 以 将 上 面 那样 的 prime-sum-pair 定 义 送 给 这 一 求 值 器 的 驱动 循环 (还 需要 送 
上 prime?、an-element -of 和 require 的 定义 )， 并 得 到 下 面 这 样 的 过 程 运行 : 

;;; Amb-Eval input: 

(prime-sum-pair *(1 3 5 8) "(20 35 110)) 

+77 Starting a new problem 


777 Amb-Eval value: 
(3 20) 


能 够 得 到 这 里 的 返回 值 ， 是 由 于 求 值 器 将 会 反复 地 从 两 个 表 里 选 出 一 对 一 对 元 素 ， 直 至 做 出 
了 一 次 成 功 的 选择 。 

4.3.1 节 将 介绍 amb， 并 解释 它 如 何 通过 求 值 器 的 自动 搜索 机 制 支持 非 确定 性 。4.3.2 节 给 
出 了 一 个 非 确定 性 程序 的 例子 ，4.3.3 节 给 出 了 如 何 通过 修改 常规 的 Scheme 求 值 器 ， 实 现 amb 
求 值 器 的 细节 。 


4.3.1 amb 和 搜索 


为 了 扩充 Scheme 以 支持 非 确定 性 ， 我 们 要 引进 一 种 称 为 amb 的 新 特殊 形式 六 。 表 达 式 
(amb <e> <e> … <e>) “有 歧义 性 地 ”返回 "个 表达 式 <e> 之 一 的 值 。 举 例 说 ， 表 达 式 
(list (amb 1 2 3) (amb ’a ’b)) 
可 以 有 如 下 六 个 可 能 的 值 : 
(1 a) (1 b) (2 a) (2 b) (3 a) (3 b) 
只 有 一 个 选择 的 amb 将 产生 常规 的 (一 个 ) 值 。 
没有 选择 的 amb 一 一 表达 式 (amb) 一 一 是 一 个 没有 可 接受 值 的 表达 式 。 按 照 操 作 的 观点 ， 


247 实现 非 确定 性 程序 设计 的 amb 思 想 是 John McCarthy 在 1961 年 第 一 次 提出 的 (McCarthy 1967), 
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我 们 可 以 认为 (amb) 就 是 这 样 的 一 个 表达 式 ， 对 它 的 求 值 将 导致 计算 “失败 ”: 这 一 计算 将 
会 流产 ， 而 且 不 会 产生 任何 值 。 利 用 这 一 思想 ， 我 们 可 以 将 某 个 特定 谓词 必须 为 真 的 要 求 表 
述 为 下 面 的 定义 : 

(define (require p) 

(if (not p) (amb))) 


有 了 amb 和 redquire， 我 们 就 可 以 实现 上 面 的 an-element -of 过 程 了 : 
(define (an-element-of items) 
(require (not (null? items) )) 


(amb (car items) (an-element-of (cdr items) ))) 


当 表 为 空 时 an-element -of 失败 ， 否 则 它 就 会 (具有 歧义 性 地 ) 或 者 返回 表 里 的 第 一 个 元 
素 ， 或 者 返回 选 自 表 中 其 余部 分 的 某 个 元 素 。 

我 们 还 可 以 表述 无 穷 的 选择 。 下 面 过 程 可 能 返回 任何 一 个 大 于 或 者 等 于 某 个 给 定 的 n 值 的 
整数 : 


(define (an-integer-starting-from n) 


(amb n (an-integer-starting-from (+ n 1)))) 


这 就 像 是 在 3.5.2 节 里 描述 的 流 过 程 integers-stazting-fzrom， 但 这 里 有 一 点 重要 不 
同 : 流 过 程 返 回 的 是 一 个 对 象 ， 它 表示 的 是 从 n 开 始 的 所 有 整数 的 序列 ， 而 amb 过 程 返回 的 就 
是 一 个 整数 ””。 

抽象 地 看 ， 我 们 可 以 认为 ， 求 值 一 个 amb 表 达 式 将 导致 时 间 分 裂 为 不 同 的 分 支 ， 而 计算 
将 在 每 一 个 分 支 ( 其 中 取 定 了 该 表达 式 的 一 个 值 ) 里 进行 。 我 们 说 一 个 amb 表 示 了 一 个 非 确 
定性 的 选择 点 。 如 果 有 一 台 机 器 ， 它 有 足够 多 的 可 以 动态 分 配 的 处 理 器 ， 我 们 就 能 以 一 种 直 
截 了 当 的 方式 实现 这 种 搜索 。 这 里 的 执行 就 像 在 一 台 顺 序 机 器 上 那样 进行 ， 直 至 遇 到 了 一 个 
amb 表 达 式 。 在 这 个 点 上 ， 需 要 分 配 并 初始 化 更 多 的 处 理 器 ， 并 继续 进行 这 一 选择 所 列 含 的 
所 有 并 行 执行 。 每 个 处 理 器 又 将 顺序 地 进行 下 去 ， 就 像 它 只 有 一 种 选择 那样 ， 直 至 或 者 因为 
遇 到 失败 而 结束 ， 或 者 需要 进一步 分 支 ， 或 者 成 功 结束 次 。 

男 一 方面 ， 如 果 我 们 有 一 台 机 器 ， 它 只 能 执行 一 个 进程 (或 者 若干 个 并 发 的 进程 )， 我 
们 就 必须 换 一 种 实现 顺序 性 的 方式 。 我 们 可 以 设想 去 修改 求 值 器 ， 使 之 在 遇 到 一 个 选择 点 
时 随机 地 选取 一 个 分 支 走 下 去 。 当 然 ， 随 机 选取 很 可 能 导向 失败 的 值 。 这 样 就 需要 一 次 次 
重新 运行 求 值 器 ， 再 做 随机 选择 ， 以 期 找到 一 个 不 失败 的 值 。 一 种 更 好 的 方式 是 系统 化 地 
搜索 所 有 可 能 的 执行 路 径 。 我 们 将 要 开发 的 ， 并 在 本 节 中 使 用 的 amb 求 值 器 实现 了 如 下 的 
一 种 系统 化 搜索 方式 : 当 这 个 求 值 器 遇 到 一 个 amb 应 用 时 ， 它 一 开始 总 是 选择 第 一 个 可 能 
性 。 这 一 选择 又 可 能 导致 随后 的 选择 。 在 每 个 选择 点 ， 这 一 求 值 器 在 开始 时 总 是 选择 第 一 


”实际 上 ， 在 非 确定 性 地 返回 一 个 选择 与 返回 所 有 选择 之 间 的 差异 ， 在 某 种 意义 上 看 ， 依 赖 于 我 们 的 看 法 。 从 
使 用 有 关 值 的 代码 的 角度 看 ， 非 确定 性 选择 返回 的 是 一 个 值 。 从 设计 代码 的 程序 员 的 角度 看 ， 非 确定 性 选择 
是 潜在 地 返回 了 所 有 可 能 的 值 ， 而 计算 是 分 支 的 ， 所 以 各 个 值 将 被 分 别 探查 。 

”有 人 可 能 反对 这 种 极端 无 效 的 机 制 ， 它 可 能 需要 数 以 百 万 计 的 处 理 器 去 求解 某 个 以 这 种 方式 可 以 简单 陈述 的 
问题 ， 而 且 在 其 中 大 部 分 的 时 间 里 ， 大 部 分 处 理 器 都 在 闲置 着 。 对 于 这 种 反对 意见 ， 我 们 应 该 在 历史 的 环境 
中 去 分 析 。 过 去 ， 存 储 器 曾 被 认为 是 一 种 及 其 昂贵 的 设备 。 在 1964 年 ， 一 兆 容量 的 RAM 贵 到 400 000 美 元 。 
而 现在 每 台 个 人 计算 机 都 有 许多 兆 的 RAM， 而 其 中 的 大 部 分 RAM 都 没有 使 用 。 我 们 决 不 应 该 低估 电子 学 的 
大 规模 生产 的 价值 。 
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个 可 能 性 。 如 何 选 择 的 结果 导致 失败 ， 那 么 这 个 求 值 器 就 自动 魔法 般 地 33" 回溯 到 最 近 的 选 
择 点 ， 并 去 试验 下 一 个 可 能 性 。 如 果 它 在 任何 选择 点 用 完了 所 有 的 可 能 性 ， 该 求 值 器 就 将 
退回 到 前 一 选择 点 ， 并 从 那里 继续 下 去 。 这 个 过 程 产生 的 是 一 种 称 为 深度 优先 的 搜索 策略 , 
或 称 为 按照 历史 回溯 1!。 


驱动 循环 

amb 求 值 器 的 驱动 循环 有 一 些 很 不 寻常 的 性 质 。 它 读 入 一 个 表达 式 ， 并 且 打 印 出 第 一 个 
不 失败 的 执行 得 到 的 值 ， 就 像 在 上 面 的 prime-sum-pair 例 子 里 所 示 的 那样 。 如 果 我 们 希望 
看 到 下 一 个 成 功 执行 的 值 ， 那 就 可 以 要 求解 释 器 回溯 ， 让 它 试 着 去 产生 第 二 个 没有 失败 的 运 
行 。 我 们 可 以 通过 键入 符号 try-again 的 方式 发 出 这 一 信号 。 如 果 给 的 是 除了 try-again 
之 外 的 任何 表达 式 ， 解 释 器 都 会 开始 一 个 新 问题 ,丢掉 前 面 问题 中 尚未 探索 的 那些 可 能 性 。 
下 面 是 一 个 交互 执行 示例 : 

;;; Amb-Eval input: 

(prime-sum-pair ’(1 3 5 8) °(20 35 110)) 

;;; Starting a new problem 


;;; Amb-Eval value: 


(3 20) 


;;; Amb-Eval input: 
try-again 

777 Amb-Eval value: 
(3 110) 


;;; Amb-Eval input: 
try-again 

;;; Amb-Eval value: 
(8 35) 


;;; Amb-Eval input: 
try-again 
;;; There are no more values of 


250 自动 魔法 般 地 :“ 自 动 地 ， 但 是 以 一 种 由 于 某 些 原因 (典型 的 情况 是 它 太 复 杂 ， 或 者 太 丑 陋 ， 或 者 甚至 太 简 
单 )， 而 使 说 话 者 并 不 喜欢 去 解释 的 方式 。” (Steele 1983, Raymond 1993) 

5 将 自动 搜索 策略 结合 到 程序 设计 语言 的 历史 曲折 而 复杂 。Robert Floyd (1967) 第 一 次 提出 可 能 通过 搜索 和 
自动 回 斋 ， 把 非 确定 性 算法 很 优雅 地 做 进程 序 设 计 语 言 里 。Carl Hewitt (1969) 发 明了 称 为 Planner 的 程序 
设计 语言 ， 它 显 式 地 支持 自动 按 历史 回 湖 ， 提 供 了 内 部 的 深度 优先 搜索 策略 。Sussman、Winograd 和 
Charniak (1971) 实现 了 这 一 语言 的 一 个 子 集 ， 称 为 MicroPlanner， 用 于 支持 问题 求解 和 机 器 人 规划 工作 。 
类 似 的 想法 也 出 现在 逻辑 和 定理 证 明 的 领域 里 ， 导 致 优美 的 Prolog 语 言 在 爱丁堡 和 马赛 诞生 (我 们 将 在 4.4 
节 讨 论 它 )。 在 自动 搜索 遇 到 极 大 的 挫折 之 后 ，McDermott and Sussman (1972) 开发 出 一 种 名 为 Conniver 
的 语言 ， 它 包含 了 程序 员 的 控制 下 搜索 策略 的 安排 机 制 。 然 而 这 种 方式 被 证 明 是 非常 难 使 用 的 。 后 来 ， 
Sussman 和 Stallman (1975) 在 研究 电子 线路 的 符号 分 析 的 过 程 中 创建 了 一 种 更 容易 控制 的 方法 ， 他 们 开发 
出 一 种 基于 相互 关联 的 事实 之 间 的 依赖 关系 的 非 历史 的 回 湖 模 式 ， 这 种 技术 现在 已 经 被 称 为 依赖 导向 的 回 
湖 。 虽 然 他 们 的 方法 比较 复杂 ， 但 却 能 产生 出 具有 合理 效率 的 程序 ， 因 为 工作 中 很 少 做 多 余 的 搜索 。Doyle 
(1979) 和 McAllester (1978, 1980) 推广 并 进一步 澄清 了 Stallman 和 Sussman 的 方法 ， 开 发 了 一 种 新 的 构造 
搜索 的 形式 ， 现 在 被 称 为 真 值 保 持 。 新 型 问题 求解 系统 都 用 了 某 种 形式 的 真 值 保 持 ， 作 为 其 中 的 一 种 基本 
技术 。 参 看 Forbus 和 deKleer 1993 关 于 构造 真 值 保持 系统 方法 的 讨论 。Zabih、McAllester 和 Chapman 1987 
描述 了 Scheme 的 一 种 基于 amb 的 非 确 定性 扩充 ， 与 本 节 所 描述 的 解释 器 很 类 似 ， 但 是 更 复杂 一 些 ， 因 为 其 
中 使 用 的 是 依赖 导向 的 回溯 ， 而 不 是 历史 回 滴 。Winston 1992 介 绍 了 这 两 种 回 济 。 
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(prime-sum-pair (quote (1 3 5 8)) (quote (20 35 110)) 


;7; Amb-Eval input: 

(prime-sum-pair °(19 27 30) ’(11 36 '58) ) 
;;; Starting a new problem 

;;; Amb-Eval value: 

(30 11) 


练习 4.35 ”请 写 出 一 个 过 程 an-integer-between， 它 返回 两 个 界限 之 间 的 一 个 整数 。 
它 可 以 用 于 实现 一 种 寻找 毕 达 哥 拉 斯 三 元 组 的 过 程 ， 也 就 是 说 ， 找 出 在 给 定 界限 内 (例如 ) 
(define (a-pythagorean-triple-between low high) 
(let ((i (an-integer-between low high))) 
(let ((j (an-integer-between i high))) 
(let ((k (an-integer-between j high) )) 
(require (= (+ (+ 2 i) (* 7 3)) (* k KY) 
(List 4 9 fey) 
练习 4.36 练习 3.69 讨 论 了 如 何 产 生出 所 有 和 毕 达 哥 拉 斯 三 元 组 的 流 ， 对 于 搜索 的 整数 大 小 
没有 上 界 。 请 解释 为 什么 简单 地 用 an-integer-starting-from 代 替 练 习 4.35 中 的 过 程 
an-integez-between， 并 不 是 生成 任意 毕 达 哥 拉 斯 三 元 组 的 合适 办 法 。 请 写 出 一 个 确实 
能 完成 这 一 工作 的 过 程 。( 也 就 是 说 ， 写 出 一 个 过 程 ， 对 它 反 复 键入 try-again， 原 则 上 ， 
将 能 最 终生 成 出 所 有 的 毕 达 哥 拉 斯 三 元 组 。) 
练习 4.37 Ben Bitdiddle 断 言 下 面 生 成 毕 达 哥 拉 斯 三 元 组 的 方法 比 练习 4.35 中 的 方法 效率 
更 高 。 他 说 得 对 吗 ? (提示 ， 请 考虑 几 个 必须 研究 的 可 能 性 。) 


(define (a-pythagorean-triple-between low high) 


(let ((i (an-integer-between low high) ) 
(hsq (* high high) )) 
(let ((j (an-integer-between i high) )) 


(let ((keq (+ (* i 3) ¢* ï J93) 
(require (>= hsq ksq)) 
(let ((k (sqrt ksq))) 
(require (integer? k)) 
aise a, 3 KI 0} 


4.3.2 非 确定 性 程序 的 实例 


4.3.3 节 里 将 要 描述 amb 求 值 器 的 实现 ， 我 们 在 这 里 先 给 出 几 个 可 能 怎样 使 用 它 的 例子 。 
非 确定 性 程序 设计 的 优点 ， 就 在 于 使 我 们 可 以 忽略 有 关 搜 索 将 如 何 进 行 的 细节 ， 因 此 就 可 以 
在 更 高 的 层次 上 表述 所 需要 的 程序 。 

逻辑 谜 题 

下 面 的 谜 题 ( 取 自 Dinesman 1968) 是 一 大 类 简单 逻辑 迹 题 的 典型 代表 : 

Wd. FEA, FRR. RATA ETE TREAD RWI A TA, UGE AE 

在 顶层 ， 库 伯 不 住 在 底层 ， 弗 莱 舍 不 住 在 顶层 也 不 住 在 底层 。 米 勒 住 的 比 库 伯 高 一 

层 ， 斯 麦 尔 不 住 在 弗 莱 舍 相 邻 的 层 ， 弗 莱 多 不 住 在 库 伯 相 邻 的 层 。 请 问 他 们 各 住 在 

哪 层 。 
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我 们 可 以 通过 简单 地 枚 举 出 所 有 可 能 性 ， 并 加 上 给 定 约束 条 件 的 方式 ， 来 确定 这 几 个 人 
居住 的 楼 层 *”; 
(define (multiple-dwelling) 
(let ((baker (amb 1 2 3 4 5)) 
(cooper (amb 1 2 3 4 5)) 
(fletcher (amb 1 2 3 4 5)) 
(miller (amb 1 2 3 4 5)) 
(smith (amb 1 2 3 4 5))) 
(require 
(distinct? (list baker cooper fletcher miller smith))) 
(require (not (= baker 5))) 
(require (not (= cooper 1))) 
(require (not (= fletcher 5))) 
(require (not (= fletcher 1))) 
(require (> miller cooper)) 
(require (not (= (abs (- smith fletcher)) 1))) 
(require (not (= (abs (- fletcher cooper)) 1))) 
(list (list “baker baker) 
(list ‘cooper cooper) 
(list "fletcher fletcher) 
(list ‘miller miller) 
(list ‘smith smith) ))) 


求 值 表达 式 (multiple-dwelling) 将 产生 下 面 结果 : 

((baker 3) (cooper 2) (fletcher 4) (miller 5) (smith 1)) 
虽然 这 个 简单 过 程 能 工作 ,但 它 却 非 常 慢 。 练 习 4.39 和 4.40 讨 论 了 一 些 改进 。 

练习 4.38 ”请 修改 上 述 多 层 住宅 过 程 ， 增 加 斯 麦 尔 和 弗 莱 舍 不 住 相 邻 层 的 要 求 。 这 个 新 
谜 题 有 多 少 个 解 ? 

练习 4.39 “在 上 述 多 层 住宅 过 程 中 ， 约 束 条 件 的 顺序 会 影响 答案 吗 ? 它 会 影响 找到 答案 
的 时 间 吗 ? 如 果 你 认为 会 ， 那 么 请 通过 重新 排列 上 面 定义 中 约束 条 件 的 顺序 ， 展 示 出 你 得 到 
的 更 快 的 程序 。 如 果 你 认为 没关系 ， 请 论证 你 的 观点 。 

练习 4.40 ”在 上 述 多 层 住 宅 问 题 里 ,在 各 种 需求 和 楼 层 指派 必须 完成 的 不 同 检查 之 前 和 
之 后 ， 存 在 着 多 少 给 人 指定 楼 层 的 指派 集合 ? 首先 生成 出 所 有 的 人 到 楼 层 的 指派 ， 而 后 通过 
回溯 删除 它们 是 很 低 效 的 方法 。 举 例 来 说 ， 大 部 分 约束 条 件 都 只 依赖 于 一 个 或 者 两 个 个 人 -楼 
层 变 量 ， 因 此 可 以 在 为 所 有 人 选择 楼 层 之 前 安排 好 。 请 为 解决 这 一 问题 写 出 一 个 更 加 高 效 得 
多 的 非 确定 性 过 程 ， 其 中 只 产生 出 通过 限制 排除 了 不 可 能 情况 之 后 的 那些 可 能 性 ， 并 请 用 试 
证 明 你 的 方案 有 效 。( 提 示 : 这 将 需要 写 出 垦 套 的 let 表 达 式 。) 


282 我 们 的 程序 用 下 面 过 程 确 定 一 个 表 里 的 各 个 元 素 是 否 互 不 相同 : 
(define (distinct? items) 
(cond ((null? items) true) 
((mull? (cdr items)) true) 
((member (car items) (cdr items)) false) 


(else (distinct? (cdr items))))) 


member 与 memq 类 似 ， 只 是 用 equal? 做 相等 判断 ， 而 不 是 用 eq?。 
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练习 4.41 请 写 出 一 个 常规 的 Scheme 程序 ， 解 决 这 一 多 楼 层 问 题 。 

练习 4.42 ”请 解决 下 面 的 “说 谎 者 ” 谜 题 ( 取 自 Phillips 1934) ， 五 个 女生 参加 一 个 考试 ， 
她 们 的 家 长 对 考试 结果 过 分 关注 。 为 此 她 们 约定 ， 在 给 家 里 写 信 谈 到 考试 时 ， 每 个 姑娘 都 要 
写 一 句 真 话 和 一 句 假 话 。 下 面 是 从 她 们 的 信里 摘出 的 句子 : 

N: MRRP, RRT.” 

SOBER: “PRATER ST BG TB, TR” 

琼 :“ 我 考 第 三 ， 可 人 怜 的 艾 赛 尔 考 得 最 差 。 

E: RE, BWR TEU,” 

玛丽 :“ 我 是 第 四 ， 贝 蒂 的 成 绩 最 高 。 

这 五 个 姑娘 实际 的 排名 是 什么 ? 

练习 4.43 请 用 求 值 器 解决 下 面 文 题 *”. 

Mary Ann Moore 的 父亲 有 一 条 游艇 ， 他 的 四 个 朋友 Colonel Downing, Mr. Hall, Sir 
Barnacle Hood 和 Dr. Parker 也 各 有 一 条 。 这 五 个 人 各 有 一 个 女儿 ， 每 个 人 都 用 另 一 个 人 的 女儿 
的 名 字 为 自己 的 游艇 命名 。Sir Barnacle 的 游艇 叫 Gabrielle ，MIT. Moore 拥 有 Lorna，Mr. Hall 的 
是 Rosalind，Melissa 属 于 Colonel Downing ( 取 自 Sir Barnacle 的 女儿 的 名 字 )，Gabrielle 的 父亲 
的 游艇 取 的 是 Dr. Parker 的 女儿 的 名 字 。 请 问 谁 是 Lorna 的 父亲 。 

请 设法 写 出 一 个 能 高 效 运行 的 程序 (参见 练习 4.40) 。 另 请 设法 确定 ， 如 果 没 有 告诉 我 们 
Mary Ann 姓 Moore， 那 么 将 会 有 多 少 个 解 。 

练习 4.44 ”练习 2.42 描 述 了 “ 八 旺 后 谈 题 ”， 将 八 个 旺 后 安放 到 国际 象 槛 盘 上 使 她 们 相互 
都 不 攻击 。 请 写 出 一 个 非 确 定性 的 程序 求解 这 一 谜 题 。 

自然 语言 的 语法 分 析 

接受 自然 语言 作为 输入 的 程序 ， 通常 都 以 对 输入 的 语法 分 析 开 始 ， 也 就 是 说 ， 设 法 将 输 
入 与 一 些 语法 结构 匹配 。 举 例 说 ， 我 们 可 能 试图 去 识别 由 一 个 冠 词 ， 后 跟 一 个 名 词 和 一 个 动 
词 的 简单 句子 ， 比 如 说 “The cat eats" 。 为 了 完成 这 种 分 析 ， 我 们 必须 能 辩 明 各 个 单词 的 词类 ， 
这 可 以 从 下 面 这 种 对 各 种 单词 的 分 类 表 开 始 ”: 

(define nouns ‘(noun student professor cat class)) 

(define verbs ‘(verb studies lectures eats sleeps)) 

(define articles ’(article the a)) 

我 们 还 需要 一 个 语法 ， 即 一 组 描述 如 何 从 更 简单 的 元 素 组 合 产生 语法 元 素 的 规则 。 一 个 非常 
简单 的 语法 ， 可 能 就 是 规定 每 个 句子 都 由 两 个 部 分 组 成 一 一 一 个 名 词 短语 后 面 跟 着 一 个 动词 ， 
而 名 字 短 语 是 由 一 个 冠 词 后跟 一 个 名 词组 成 。 根 据 这 个 语法 句子“The cat eats” 就 可 以 分 
析 为 : 


(sentence (noun-phrase (article the) (noun cat)) 





(verb eats)) 


我 们 可 以 用 一 个 简单 的 程序 生成 这 样 的 分 析 ， 其 中 对 应 于 每 条 语法 规则 有 一 个 独立 的 过 


23 这 个 迹 题 取 自 一 本 名 为 《Problematical Recreations》( 问 题 娱 乐 ) 的 小 册子 ，1960 年 代 由 Litton Industries 出 版 ， 
上 面 标明 作者 为 Kansas State Engineer ( 肯 萨 斯 州 工程 师 协会 )。 
这 里 我 们 采用 了 一 个 约定 ， 用 每 个 表 的 第 一 个 元 素 指 明了 表 中 其 他 单词 的 词类 。 
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程 。 为 了 分 析 一 个 句子 ， 我 们 需要 辩 明 它 的 两 个 组 成 部 分 ， 并 返回 一 个 两 元 素 的 表 ， 用 符号 
sentence 作 为 标记 : 


(define (parse-sentence) 
(list ‘sentence 
(parse-noun-phrase) 
(parse-word verbs) ) ) 


名 词 短 语 的 情况 与 此 类 似 ， 对 它 的 分 析 就 是 要 找 出 其 中 的 冠 词 和 名 词 ; 
(define (parse-noun-phrase) 
(list ‘“noun-phrase 
(parse-word articles) 


(parse-word nouns) ) ) 


在 最 下 面 一 层 ， 分 析 过 程 被 归结 到 反复 检查 下 一 个 尚未 分 析 的 单词 ， 看 它 是 不 是 某 个 对 
应 于 所 需 词类 的 单词 表 的 成 员 。 为 了 实现 这 一 工作 ， 我 们 要 维护 一 个 全 局 变量 *unparsed*， 
其 中 包含 着 尚未 分 析 的 输入 。 每 当 程序 去 检查 一 个 单词 时 ， 我 们 都 要 求 *unparsed* 必 须 不 
空 ， 而 且 它 应 该 以 指定 的 表 里 的 单词 开始 。 如 果真 是 这 样 ， 我 们 就 从 *unparsed* 里 删除 这 
第 一 个 单词 ， 并 返回 这 个 单词 和 它 的 词类 (这 可 以 从 该 表 的 头 部 找 出 ) 2°: 
(define (parse-word word-list) 
(require (not (null? *unparsed*))) 
(require (memq (car *unparsed*) (cdr word-list))) 
{let ((found-word (car *unparsed*) ) ) 
(set! *unparsed* (cdr *unparsed*) ) 


(list (car word-list) found-word) ) ) 


为 了 能 开始 做 语法 分 析 ， 我 们 需要 的 就 是 将 *unparsedx* 设 置 为 整个 输入 ， 试 着 去 分 析 
出 一 个 句子 来 ， 最 后 还 要 检查 没有 剩 下 任何 东西 
(define *unparsed* °()) 
(define (parse input) 
(set! *unparsed* input) 
(let ((sent (parse-sentence) ) ) 
(require (null? *unparsed*) ) 
sent) ) 


现在 我 们 可 以 试验 这 个 分 析 器 ， 检 查 它 是 否 能 处 理 简单 的 测试 句子 : 
;;; Amb-Eval input: 

(parse ‘(the cat eats) ) 

;;; Starting a new problem 

;;; Amb-Eval value: 


(sentence (noun-phrase (article the) (noun cat)) (verb eats) ) 

amb 求 值 器 在 这 里 很 有 用 ， 因 为 它 使 我 们 可 以 通过 require 的 帮助 ， 很 方便 地 描述 分 析 
中 的 种 种 约束 条 件 。 当 然 ， 如 果 进 一 步 考 虑 更 复杂 的 语法 ， 其 中 存在 有 关 某 些 单元 如 何 分 解 
的 选择 时 ， 自 动 搜 索 和 回 漳 也 将 发 挥 重 要 作用 。 

现在 让 我 们 在 语法 中 增加 一 个 介词 表 : 


55 请 注意 ，parse-word 用 set 1! 修改 了 未 分 析 的 输入 表 。 为 使 这 种 做 法 能 够 工作 ， 我 们 的 amb 求 值 器 就 必须 
在 回溯 时 撤销 set ! 的 作用 。 
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(define prepositions ‘(prep for to in by with) ) 


并 将 介词 短语 (lán, “for the cat”) 定义 为 一 个 介词 后 跟 一 个 名 词 短语 : 


(define (parse-prepositional-phrase) 
(list ‘prep-phrase 
(parse-word prepositions) 


(parse-noun-phrase))) 
现在 我 们 可 以 将 句子 定义 为 一 个 名 词 短语 后 跟 一 个 动词 短语 ， 其 中 的 动词 短语 可 以 是 一 个 动 
词 ， 也 可 以 是 一 个 动词 短语 加 上 一 个 介词 短语 *: 
(define (parse-sentence) 
(list ’sentence 


(parse-noun-phrase) 


(parse-verb-phrase) ) ) 


(define (parse-verb-phrase) 
(define (maybe-extend verb-phrase) 
(amb verb-phrase 
(maybe-extend (list ’verb-phrase 
verb-phrase 
(parse-prepositional-phrase) )))) 


(maybe-extend (parse-word verbs) ) ) 


有 了 这 些 之 后 ， 我 们 还 可 以 细 化 名 词 短语 的 定义 ， 允 许 诸如 “a cat in the class” 之 类 的 
形式 。 前 面 称 为 名 词 短语 的 片段 ， 现 在 将 被 称 为 简单 名 词 短语 ， 而 现在 的 名 词 短语 则 或 者 是 
一 个 简单 名 词 短语 ， 或 者 是 一 个 名 词 短语 后 跟 一 个 介词 短语 : 

(define (parse-simple-noun-phrase) 

(list *simple-noun-phrase 
(parse-word articles) 


(parse-word nouns) ) ) 


(define (parse-noun-phrase) 
(define (maybe-extend noun-phrase) 
(amb noun-phrase 
(maybe-extend (list ‘noun-phrase 
noun-phrase 
(parse-prepositional-phrase) )))) 


(maybe-extend (parse-simple-noun-phrase) ) ) 


现在 的 新 语法 使 得 程序 可 以 分 析 更 复杂 的 句子 了 。 例 如 : 


(parse ’(the student with the cat sleeps in the class) ) 


将 产生 出 : 


(sentence 
(noun-phrase 
(simple-noun-phrase (article the) (noun student)) 
(prep-phrase (prep with) 
(simple-noun-phrase 


(article the) (noun cat)))) 


”6 应 该 看 到 这 一 定义 是 递归 的 ， 动 词 之 后 可 以 有 任意 多 个 介词 短语 。 
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(verb-phrase 
(verb sleeps) 
(prep-phrase (prep in) 
(simple-noun-phrase 
(article the) (noun class))))) 


请 注意 ， 一 个 给 定 输入 可 能 存在 多 于 一 种 合法 的 分 析 结 果 。 对 于 句子 “The professor 
lectures to the student with the cat”， 可 以 理解 为 教授 带 着 猫 去 上 课 ， 也 可 以 理解 为 该 学 生 有 那 
只 猫 。 我 们 的 非 确 定性 程序 将 能 找 出 这 两 种 可 能 性 : 


(parse *(the professor lectures to the student with the cat)) 


将 产生 出 : 


(sentence 
(simple-noun-phrase (article the) (noun professor)) 
(verb-phrase 
(verb-phrase 
(verb lectures) 
(prep-phrase (prep to) 
(simple-noun-phrase 
(article the) (noun student)))) 
(prep-phrase (prep with) 
(simple-noun-phrase 
(article the) (noun cat))))) 
让 求 值 器 再 次 尝试 ， 将 会 产生 出 : 
(sentence 
(simple-noun-phrase (article the) (noun professor)) 
(verb-phrase 
(verb lectures) 
(prep-phrase (prep to) 
(noun-phrase 
(simple-noun-phrase 
(article the) (noun student) ) 
(prep-phrase (prep with) 
(simple-noun-phrase 
(article the) (noun cat))))))) 


练习 4.45 ”采用 上 面 给 出 的 语法 ， 下 面 的 句子 可 以 有 5 种 不 同 的 分 析 方 式 :“The professor 
lectures to the student in the class with the cat”。 请 给 出 这 5 种 分 析 ， 并 解释 这 些 分 析 之 间 的 微 
妙 差 异 。 

练习 4.46 4.1 节 和 4.2 节 的 求 值 器 并 没有 明确 规定 运算 对 象 的 求 值 顺序 。 我 们 将 看 到 amb 
求 值 器 从 左 到 右 进 行 求 值 。 请 解释 ， 如 果 运 算 对 象 采用 其 他 求 值 顺 序 ， 为 什么 我 们 的 分 析 程 
序 就 没有 办 法 工作 了 。 

练习 4.47 Louis Reasoner 建 议 说 ， 由 于 动词 短语 或 者 是 一 个 动词 ， 或 者 是 一 个 动词 短语 
后 跟 一 个 介词 短语 ， 直 接 用 下 面 方式 定义 一 个 parse-verb-phrase 过 程 将 更 加 方便 (对 于 
名 词 短 语 也 同样 可 以 这 样 做 ): 

(define (parse-verb-phrase) 

(amb (parse-word verbs) 
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(list ‘’verb-phrase 
(parse-verb-phrase) 
(parse-prepositional-phrase) ) ) ) 


这 样 做 能 行 吗 ?” 如 果 改变 了 amb 求 值 器 里 表达 式 的 顺序 ， 程 序 的 行为 也 会 改变 吗 ? 

练习 4.48 ”请 扩充 上 面 给 出 的 语法 ， 以 处 理 更 加 复杂 的 句子 。 例 如 ， 你 可 以 扩充 名 词 短 
语 和 动词 短语 ， 加 进 形容 词 和 副词 ， 或 者 可 以 设法 处 理 复合 句 ””。 

练习 4.49 Alyssa P. Hacker 更 感 兴趣 的 是 生成 有 趣 的 句子 而 不 是 分 析 它们 。 她 说 ， 简 单 修 
改过 程 parse-word， 使 它 忽 略 “ 输 入 的 句子 ”并 总 是 成 功 产生 出 适当 的 单词 ， 就 可 以 为 语 
法 分 析 程序 去 做 句子 生成 。 请 实现 Alyssa 的 想法 ， 并 给 出 这 个 程序 所 产生 的 前 十 来 个 句子 ””。 


4.3.3 实现 amb 求 值 器 


对 于 常规 Scheme 表达 式 的 求 值 可 能 返回 一 个 值 ， 也 可 能 永远 不 终止 ， 或 者 发 出 一 个 错误 
言 号 。 对 于 非 确 定性 的 Scheme， 表 达 式 的 求 值 还 可 能 过 到 死胡同 ， 在 这 种 情况 下 求 值 必须 回 
淹 到 前 面 的 选择 点 。 由 于 多 出 这 一 种 情况 ， 非 确定 性 Scheme 的 解释 将 变 得 更 复杂 。 

我 们 为 非 确定 性 的 Scheme 构造 amb 求 值 器 的 方法 ， 是 修改 4.1.7 节 的 分 析 式 求 值 器 光 。 就 
像 在 那个 分 析 求 值 器 里 一 样 ， 完 成 对 这 里 的 表达 式 求 值 ， 也 是 通过 调用 对 于 该 表达 式 的 分 析 
所 产生 出 的 执行 过 程 。 对 于 常规 Scheme 的 解释 和 对 非 确定 性 Scheme 的 解释 之 间 的 差异 完全 在 
于 有 关 的 执行 过 程 。 

执行 过 程 和 继续 

读者 应 记得 ， 在 常规 求 值 器 的 执行 过 程 里 有 一 个 参数 : 执行 环境 。 与 此 不 同 ，amb 求 值 
器 的 执行 过 程 将 取 三 个 参数 : 执行 环境 ， 和 两 个 称 为 继续 过 程 的 过 程 。 对 于 一 个 表达 式 的 求 
值 ， 结 束 时 就 会 调用 这 两 个 继续 过 程 之 一 : 如 果 该 求 值得 到 了 一 个 结果 ， 那 么 就 用 这 个 值 去 
调用 那个 成 功 继续 ， 如 果 结 果 是 遇 到 了 一 个 死胡同 ， 那 么 就 调用 那个 失败 继续 。 构 造 和 调用 
适当 的 继续 ， 就 是 这 个 非 确 定性 求 值 器 里 实现 回溯 的 机 制 。 

成 功 继续 过 程 的 工作 是 接受 一 个 值 并 将 计算 进行 下 去 。 与 这 个 值 一 起 ， 成 功 继续 过 程 还 
将 得 到 了 另 一 个 失败 继续 过 程 ， 如 果 在 使 用 这 个 值 时 遇 到 了 死胡同 ， 就 会 去 调用 它 。 

失败 继续 过 程 的 工作 是 试探 非 确定 性 过 程 中 的 另 一 分 支 。 非 确定 性 语言 的 最 关键 特征 ， 
就 在 于 表达 式 可 以 表示 在 不 同 可 能 性 之 间 的 选择 。 对 于 这 样 一 个 表达 式 的 求 值 ， 必 须 按 给 
的 可 能 选择 进行 下 去 ， 即 使 谁 也 不 知道 哪 一 个 选择 会 导向 可 以 接受 的 结果 。 为 了 处 理 好 这 件 
事 ， 求 值 器 取出 一 个 可 能 性 ， 并 将 其 值 送 给 成 功 继续 过 程 。 与 这 个 值 一 起 ， 求 值 器 还 构造 并 
送 去 一 个 失败 继续 过 程 ， 以 便 在 后 来 需要 另 一 不 同 选择 时 能 去 调用 它 。 


57 这 种 语法 可 以 变 得 任意 的 复杂 ， 但 如 果 考 虑 真实 的 语言 理解 问题 ， 这 些 仍然 只 是 一 种 玩具 。 要 用 计算 机 去 理 
解 真实 世界 中 的 自然 语言 ， 将 需要 语法 分 析 和 意义 解释 之 间 细 致 的 混合 作用 。 从 另 一 角度 看 ， 即 使 是 玩具 式 
的 语法 分 析 ， 对 于 支持 某 些 需要 比较 灵活 的 查询 语言 的 程序 也 非常 有 用 ， 例 如 那些 信息 检索 系统 。Winston 
1992 讨 论 了 真实 语言 理解 的 计算 途径 ， 也 讨论 了 简单 语法 在 命令 语言 方面 的 应 用 。 

2 虽然 Alyssa 的 想法 完全 可 行 (而 且 极 其 简单 )， 但 它 产生 出 的 句子 则 非常 无 聊 一 一 根本 不 能 以 某 种 很 有 价值 的 
方式 说 明 这 一 语言 中 的 句子 的 范例 。 事 实 上 ， 由 于 语法 在 许多 地 方 都 是 高 度 递 归 的 ，Alyssa 的 技术 将 会 落 入 
这 种 递归 并 陷 在 那里 。 参 看 练习 4.50 有 关 解决 这 个 问题 的 一 种 方法 。 

259 我 们 的 选择 是 通过 修改 4.1.1 节 的 元 循环 求 值 器 的 方式 实现 4.2 节 的 惰性 求 值 器 ， 这 次 却 要 基于 4.1.7 节 的 分 析 
求 值 器 实现 amb 求 值 器 。 这 是 因为 该 求 值 器 的 执行 过 程 为 实现 回溯 提供 了 一 种 方便 框架 。 
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在 求 值 过 程 中 ， 当 一 个 用 户 程序 明确 拒绝 了 当前 进攻 的 目标 (例如 ， 一 个 require 调 用 
里 最 终 可 能 执行 到 (amb) ， 这 是 一 个 永远 失败 的 表达 式 一 见 4.3.1 节 ) ， 就 将 触发 一 次 失败 
(也 就 是 说 ， 调 用 一 个 失败 继续 过 程 )。 在 这 一 点 ， 手 头 上 的 失败 继续 过 程 将 导致 在 最 近 的 先 
择 点 上 做 另 一 种 选择 。 如 果 在 被 考虑 的 选择 点 上 已 经 没有 更 多 的 选择 了 ， 那 么 就 会 触发 在 前 
一 选择 点 的 失败 ， 并 如 此 继续 下 去 。 驱 动 循环 也 可 能 直接 调用 失败 继续 过 程 ， 以 响应 一 个 
try-again 请 求 ， 去 找 出 表达 式 的 另 一 个 值 。 

此 外 ， 如 果 在 由 一 个 选择 导致 的 分 支 处 理 中 出 现 了 具有 副作用 的 操作 (例如 做 了 给 某 个 
变量 的 赋值 )， 在 这 种 情况 下 ， 当 处 理 过 程 遇 到 死胡同 时 ， 可 能 就 需要 在 做 出 新 选择 之 前 撤销 
这 一 副作用 。 完 成 这 一 工作 的 方式 ， 就 是 让 产生 副作用 的 操作 生成 一 个 能 够 撤销 其 副作用 并 
传播 这 一 失败 的 失败 继续 过 程 。 

总 结 一 下 ， 失 败 继续 过 程 的 构造 来 自 ， 

* amb 表 达 式 一 -提供 一 种 机 制 ， 以 便 在 amb 表 达 式 做 出 的 当前 选择 过 到 了 死胡同 时 ， 能 

够 做 另 一 种 选择 ， 

“ 最 高 层 驱动 循环 一 -提供 一 种 机 制 ， 在 选择 耗 尽 时 报告 失败 ， 

+ 赋值 -一 -拦截 失败 并 在 回溯 之 前 撤销 赋值 的 效果 。 

失败 的 初始 原因 就 是 遇 到 了 死胡同 ， 这 种 情况 出 现在 : 

. 用 户 程序 执行 (amb) 时 

“用 户 键入 try-again 给 最 高 层 驱 动 程序 时 。 

失败 继续 过 程 会 在 处 理 失败 的 过 程 中 被 调用 ， 

e 当 由 一 个 赋值 构造 出 的 失败 继续 过 程 完成 了 撤销 自己 副作用 的 工作 之 后 ， 它 将 调用 所 拉 

截 的 失败 继续 过 程 ， 以 便 将 这 一 失败 传播 到 导致 这 次 赋值 的 选择 点 ， 或 者 传 到 最 高 层 。 

* 当 某 个 amb 的 失败 继续 过 程 用 完了 所 有 选择 时 ， 它 将 调用 原来 给 这 个 amb 的 失败 继续 过 

程 ， 以 便 将 这 一 失败 传播 到 前 一 个 选择 点 ， 或 者 传播 到 最 高 层 。 

求 值 器 的 结构 

amb 求 值 器 的 语法 和 数据 表示 过 程 ， 以 及 基本 的 analyze 过 程 ， 都 与 4.1.7 节 的 求 值 器 里 
的 这 些 过 程 完全 一 样 ， 当 然 ， 我 们 还 需要 增加 几 个 语法 过 程 ， 以 便 识别 amb 特 殊 形 式 。 


(define (amb? exp) (tagged-list? exp ‘amb) ) 





(define (amb-choices exp) (cdr exp)) 
我 们 必须 在 analyze 里 增加 一 个 分 派 子 句 ， 识 别 这 一 特殊 形式 并 生成 一 个 适当 的 执行 过 程 : 
((amb? exp) (analyze-amb exp)) 
最 高 层 过 程 ambeval (与 在 4.1.7 市 里 给 出 的 eval 版 本 类 似 ) 分 析 给 定 的 表达 式 ， 并 将 
得 到 的 执行 过 程 应 用 到 给 定 的 环境 和 两 个 给 定 的 继续 过 程 上 : 


(define (ambeval exp env succeed fail) 


((analyze exp) env succeed fail)) 


成 功 继续 是 一 个 带 有 两 个 参数 的 过 程 : 刚刚 得 到 的 值 以 及 另 一 个 失败 过 程 ， 如 果 这 个 值 
随后 导致 失败 的 话 ， 它 就 去 调用 该 失败 继续 过 程 。 失 败 继续 是 一 个 无 参 过 程 。 因 此 ， 执 行 过 


20 我 们 假定 求 值 器 支持 let ( 见 练习 4.22) ， 因 为 在 非 确定 性 程序 里 需要 用 它 。 


= 第 4 章 ABTS 


程 的 一 般 形式 是 : 
(lambda (env succeed fail) 
;; succeed is (lambda (value fail) ...) 
7; fail is (lambda () ...) 
re 
举例 说 ， 执 行 
(ambeval <exp> 
the-global-environment 


(lambda (value fail) value) 
(lambda () *failed) ) 


将 企图 去 求 值 给 定 的 表达 式 ， 最 后 或 者 是 返回 表达 式 的 值 (如 果 这 一 求 值 成 功 ) ， 或 者 返回 符 
号 failed (如 果 求 值 失败 )。 在 下 面 所 示 的 驱动 循环 中 ， 对 于 ambeval 的 调用 里 使 用 了 更 复 
杂 的 继续 过 程 ， 它 们 继续 进行 循环 以 支持 try-again 请 求 。 

amb 求 值 器 中 最 复杂 的 问题 ， 也 就 是 那些 将 继续 过 程 在 相互 调用 的 执行 过 程 之 间 传 来 传 
去 的 机 制 。 在 阅读 下 面 给 出 的 代码 时 ， 你 应 该 将 每 一 个 执行 过 程 与 4.1.7 节 里 常规 求 值 器 中 相 
应 的 执行 过 程 比较 一 下 。 

简单 表达 式 

简单 表达 式 的 执行 过 程 与 常规 求 值 器 中 的 相应 过 程 基本 一 样 ， 只 是 它们 还 需要 管理 继续 
过 程 。 这 些 执行 过 程 以 有 关 表 达 式 的 值 直接 成 功 返 回 ， 同 时 传递 送 给 它们 的 失败 继续 过 程 : 

(define (analyze-self-evaluating exp) 


(lambda (env succeed fail) 


(succeed exp fail))) 


(define (analyze-quoted exp) 
(let ((qval (text-of-quotation exp) )) 
(lambda (env succeed fail) 
(succeed qval fail)))) 
(define (analyze-variable exp) 
(lambda (env succeed fail) 
(succeed (lookup-variable-value exp env) 
fail))) 
(define (analyze-lambda exp) 
(let ((vars (lambda-parameters exp) ) 
(bproc (analyze-sequence (lambda-body exp) ))) 
(lambda (env succeed fail) 


(succeed (make-procedure vars bproc env) 
fail)))) 


注意 ， 查 找 变量 值 总 是 “成 功 ”。 如 果 lookup-variable-value 无 法 找到 这 个 变量 ， 
它 像 平常 一 样 发 出 错误 信号 ， 这 种 “失败 ”表明 了 一 个 程序 错误 一 一 引用 了 无 约束 的 变量 ， 
而 并 不 表示 我 们 应 该 在 当前 所 试 的 选择 之 外 再 去 试探 另 一 个 非 确定 性 的 选择 。 

条 件 和 序列 

条 件 表达 式 的 处 理 方式 也 与 常规 求 值 器 中 类 似 。 由 analyze-if 生 成 的 执行 过 程 去 调用 


4.3 Scheme #3 E A —4t H E tt HH 299 





谓词 执行 过 程 pproc， 过 程 pproc 的 成 功 继续 过 程 检查 谓词 的 值 是 否 为 真 ， 并 根据 情况 去 执 
行 条 件 表达 式 的 推论 部 分 或 者 替代 部 分 。 如 果 pproc 的 执行 失败 ， 那 么 就 调用 这 个 if 表 达 式 
原来 的 失败 继续 过 程 : 


(define (analyze-if exp) 

(let ((pproc (analyze (if-predicate exp))) 
(cproc (analyze (if-consequent exp))) 
(aproc (analyze (if-alternative exp)))) 

(lambda (env succeed fail) 
(pproc env 

3; success continuation for evaluating the predicate 

3; to obtain pred-value 

(lambda (pred-value fail2) 

(if (true? pred-value) 

(cproc env succeed fail2) 
(aproc env succeed fail2))) 

;; failure continuation for evaluating the predicate 

fail)))) 


序列 也 按照 与 前 面 求 值 器 同样 的 方式 处 理 ， 除 了 子 过 程 sequentially 里 的 那些 机 制 外 。 
在 那里 需要 传递 继续 过 程 。 如 果 要 顺序 地 先 执行 a 而 后 执行 bp， 我 们 就 用 一 个 成 功 继续 过 程 调 
用 a， 而 这 个 成 功 继续 过 程 将 调用 b。 
(define (analyze-sequence exps) 
(define (sequentially a b) 
(lambda (env succeed fail) 
(a env 
; success continuation for calling a 
(lambda (a-value fail2) 
(b env succeed fail2)) 
z; failure continuation for calling a 
fail))) 
(define (loop first-proc rest-procs) 
(if (null? rest-procs) 
first-proc 
(loop (sequentially first-proc (car rest-procs) ) 
(cdr rest-procs)))) 
(let ((procs (map analyze exps) ) ) 
(if (null? procs) 
(error "Empty sequence -- ANALYZE") ) 


(loop (car procs) (cdr procs)))) 


定义 和 赋值 

在 对 定义 的 处 理 中 ， 继 续 过 程 的 管理 问题 比较 麻烦 ， 因 为 这 里 必须 在 实际 定义 新 变量 之 
前 对 定义 值 的 表达 式 求 值 。 为 了 完成 这 一 工作 ， 在 这 里 需要 用 当时 的 环境 、 一 个 成 功 继续 和 
一 个 失败 继续 过 程 作为 参数 ， 去 调用 定义 值 的 执行 过 程 Vvproc。 如 果 vproc 的 执行 成 功 ， 那 
么 就 得 到 了 定义 变量 所 需 的 值 val ， 这 时 就 定义 有 关 的 变量 并 传播 这 一 成 功 : 

(define (analyze-definition exp) 


(let ((var (definition-variable exp) ) 


(vproc (analyze (definition-value exp) ))) 
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(lambda (env succeed fail) 
(vproc env 
(lambda (val fail2) 
(define-variable! var val env) 
(succeed ‘ok fail2)) 
fail)))) 


赋值 的 情况 更 加 有 趣 。 这 是 我 们 实际 使 用 继续 过 程 的 第 一 个 地 方 ， 而 不 仅仅 是 将 它们 传 
来 传 去 。 针 对 赋值 的 执行 过 程 的 开始 部 分 与 定义 类 似 ， 首 先 企 图 求 得 需要 赋 给 变量 的 新 值 。 
如 果 对 vproc 的 求 值 失败 ， 这 个 赋值 也 就 失败 了 。 

如 果 vproc 成 功 ， 当 然 就 要 去 做 实际 的 赋值 。 但 在 这 时 必须 考虑 计算 的 这 一 分 支 以 后 出 
现 失 败 的 可 能 性 ， 而 到 那 时 就 需要 对 这 个 赋值 做 回 湖 了 。 如 果 要 完成 回 湖 ， 我 们 就 必须 把 撤 
销 这 个 赋值 的 工作 作为 回 漳 过 程 的 一 部 分 ”*!。 

完成 这 一 工作 的 方式 是 给 出 一 个 成 功 继续 过 程 (下 面 标 有 注释 “*1*” 的 部 分 )， 它 在 给 
这 个 变量 赋 新 值 之 前 保存 变量 原来 的 值 ， 而 后 才 实 际 做 赋值 。 与 这 一 赋值 的 值 一 起 传递 的 失 
败 继续 过 程 《下面 标 有 注释 “*2* ”的 部 分 ) 将 在 继续 传播 有 关 的 失败 之 前 恢复 变量 的 原 值 。 
这 样 ， 一 个 成 功 的 赋值 就 提供 了 一 个 失败 继续 过 程 ， 这 一 过 程 将 拦截 随后 的 失败 ， 无 论 出 现 
什么 失败 ， 只 要 其 原本 需要 调用 fai12， 现 在 都 会 转 来 调用 这 个 过 程 ， 在 实际 调用 fai12 之 
前 撤销 所 做 的 赋值 。 


(define (analyze-assignment exp) 
(let ((var (assignment-variable exp) ) 
(vproc (analyze (assignment-value exp) ))) 
(lambda (env succeed fail) 
(vproc env 
(lambda (val fail2) eae 
(let ((old-value 
(lookup-variable-value var env) )) 
(set-variable-value! var val env) 
(succeed ’ok 
(lambda () ; ¥2% 
(set-variable-value! var 
old-value 
env) 
(fail2))))) 
fail)))) 


过 程 应 用 

针对 应 用 的 执行 过 程 里 并 不 包含 什么 新 思想 ， 只 有 一 些 为 了 管理 各 种 继续 过 程 而 带 来 的 
复杂 情况 。 这 里 的 复杂 性 出 自 analyze-appPlication， 这 是 由 于 在 对 运算 对 象 的 求 值 过 程 
中 ， 需 要 维护 成 功 和 失败 继续 过 程 的 轨迹 。 我 们 用 一 个 过 程 get-args 去 求 值 运算 对 象 的 表 ， 
而 不 是 像 常规 求 值 器 中 那样 直接 使 用 map: 


(define (analyze-application exp) 
(let ((fproc (analyze (operator exp))) 
(aprocs (map analyze (operands exp)))) 


2 我 们 无 需 为 撤销 定义 费心 ， 因 为 可 以 假定 内 部 的 定义 都 已 经 扫描 出 来 了 〈 见 4.1.6 节 )。 
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(lambda (env succeed fail) 
(fproc env 
(lambda (proc fail2) 
(get-args aprocs 
env 
(lambda (args fail3) 
(execute-application 
proc args succeed fail3) ) 
fail2) ) 
fail)))) 


请 注意 在 get -args 里 ， 我 们 怎样 通过 cdr 穿 过 aproc 执 行 过 程 的 表 ， 并 用 cons 构 造 起 
args 的 结果 表 ， 其 中 用 一 个 成 功 继续 过 程 作为 参数 去 调用 表 里 的 各 个 aproc， 这 种 调用 里 中 
又 递归 地 调用 了 get -args。 这 里 对 于 get -args 的 每 个 递归 调用 都 有 一 个 成 功 继续 ， 其 值 
是 将 新 得 到 的 实际 参数 cons 到 已 经 积累 起 来 的 实际 参数 表 上 : 


(define (get-args aprocs env succeed fail) 


(if (null? aprocs) 
(succeed °() fail) 
((car aprocs) env 
3; success continuation for this aproc 
(lambda (arg fail2) 
(get-args (cdr aprocs) 
env 
;? success continuation for recursive 
; callto get-args 
(lambda (args fail3) 
(succeed (cons arg args) 
fail3)) 
fail2)) 
fail))) 


实际 过 程 应 用 由 execute-application 执 行 ， 它 完成 工作 的 方式 与 常规 求 值 器 一 样 ， 
除了 其 中 需要 管理 一 些 继续 过 程 之 外 : 


(define (execute-application proc args succeed fail) 


(cond ((primitive-procedure? proc) 
(succeed (apply-primitive-procedure proc args) 
fail)) 
((compound-procedure? proc) 
((procedure-body proc) 
(extend-environment (procedure-parameters proc) 
args 
(procedure-environment proc) ) 
succeed 
fail) ) 
(else 
(error 
"Unknown procedure type -- EXECUTE-APPLICATION" 
proc) ))) 


amb 表 达 式 的 求 值 
特殊 形式 amb 是 这 一 非 确定 性 语言 中 的 核心 元 素 。 我 们 可 以 从 这 里 看 到 解释 过 程 的 基本 
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情况 ， 以 及 维护 继续 过 程 轨迹 的 原因 。amb 的 执行 过 程 定义 了 一 个 循环 try-next， 它 周 而 
复 始 地 去 做 针对 表达 式 中 所 有 可 能 值 的 执行 过 程 。 对 于 每 个 执行 过 程 的 调用 都 带 有 一 个 失败 
继续 ， 这 一 失败 过 程 将 导致 我 们 去 试探 下 一 个 可 能 性 。 当 不 再 存在 更 多 可 试探 的 可 能 性 时 ， 
整个 amb 表 达 式 失败 。 
(define (analyze-amb exp) 
(let ((cprocs (map analyze (amb-choices exp) ))) 
(lambda (env succeed fail) 
(define (try-next choices) 
(if (null? choices) 
(fail) 
((car choices) env 
succeed 
(lambda () 
(try-next (cdr choices)))))) 


(try-next cprocs) ))) 


驱动 循环 

由 于 需要 有 人 允许 用 户 重 试 表达 式 求 值 (try-again) 的 机 制 ， 这 就 使 amb 求 值 器 的 驱动 
循环 变 得 非常 复杂 。 这 一 驱动 程序 里 用 了 一 个 称 为 jnternal-1loop 的 过 程 ， 该 过 程 以 过 程 
try-again 作 为 参数 ， 这 里 的 意图 就 是 ， 调 用 try-again 将 导致 在 非 确 定性 求 值 中 走 进 下 
一 个 未 经 试探 的 分 支 。 这 个 ijnternal-1loop 或 者 是 调用 try-again， 以 响应 用 户 在 驱动 循 
环 中 输入 的 try-again 请 求 ， 或 者 是 调用 ambeval 去 开始 一 次 新 的 求 值 。 

对 于 ambeval 调 用 的 失败 继续 过 程 将 通知 用 户 ， 现 在 已 经 没有 更 多 的 值 了 。 而 后 它 会 重 
新 调用 驱动 循环 。 

对 于 ambeval 调 用 的 成 功 继续 过 程 则 更 加 精细 而 微妙 。 它 将 打印 出 当时 得 到 的 值 ， 并 用 
一 个 try-again 过 程 去 再 次 调用 内 部 循环 ,以 便 去 试探 下 一 可 能 性 。 这 里 的 next - 
alternative 过 程 被 作为 第 二 个 参数 传递 给 相应 的 成 功 继续 过 程 。 按 照常 规 ， 我 们 应 该 认 
为 这 第 二 个 参数 是 一 个 失败 继续 过 程 ， 是 在 当前 的 求 值 分 支 在 后 面 失败 时 被 调用 的 。 而 在 目 
前 的 这 种 情况 里 ， 我 们 刚刚 完成 了 一 次 成 功 求 值 ， 所 以 应 该 调用 这 个 “失败 ”可 能 性 的 分 支 ， 
以 便 去 搜索 出 其 他 更 多 的 成 功 求 值 。 


(define input-prompt ";;; Amb-Eval input:") 
(define output-prompt ";;; Amb-Eval value:") 


(define (driver-loop) 
(define (internal-loop try-again) 
(prompt-for-input input-prompt) 
(let ((input (read) )) 
(if (eq? input ‘try-again) 
(try-again) 
(begin 
(newline) 
(display ";;; Starting a new problem ") 
(ambeval input 
the-global-environment 


; ambeval success 
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(lambda (val next-alternative) 
(announce-output output-prompt) 
(user-print val) 

(internal-loop next-alternative) ) 

;; ambeval failure 

(lambda () 

(announce-output 
":;; There are no more values of") 
(user-print input) 


(driver-loop))))))) 
(internal-loop 
(lambda () 
(newline) 
(display ";;; There is no current problem") 


(driver-loop) ))) 


对 internal-1loop 的 初始 调用 里 用 了 一 个 try-again 过 程 ， 它 将 抱怨 说 没有 当前 的 问题 ， 
并 重新 开始 驱动 循环 。 当 用 户 在 尚未 求 值 的 情况 下 输入 try-again 时 ， 就 会 出 现 这 种 情况 。 
练习 4.50 ”请 实现 一 种 新 的 特殊 形式 ramb， 它 应 该 与 amb 类 似 ， 但 是 以 一 种 随机 的 方式 
搜索 各 种 可 能 性 ， 而 不 是 严格 地 从 左 到 右 。 请 说 明 这 一 机 制 可 能 怎样 对 练习 4.49 中 Alyssa 遇 到 
的 问题 有 所 帮助 。 
练习 4.51 请 实现 一 种 新 的 赋值 permanent-set!, 在 遇 到 失败 时 ， 这 种 赋值 并 不 撤销 。 
举例 来 说 ， 我 们 可 能 需要 从 一 个 表 里 选 出 两 个 不 同 元 素 ， 并 统计 在 完成 一 个 成 功 选 择 的 过 程 
中 做 这 种 试验 的 次 数 ， 这 可 以 写成 : 
(define count 0) 
(let ((x (an-element-of ‘(a b c))) 
(y (an-element-of ‘(a b c)))) 
(permanent-set! count (+ count 1)) 
(require (not (eq? x y))) 
(list x y count) ) 
;;; Starting a new problem 


;;; Amb-Eval value: 
(a b 2) 


;;; Amb-Eval input: 
try-again 

;77 Amb-Eval value: 
(a e 3) 


如 果 在 这 里 用 的 是 set ! 而 不 是 Pezmanent-set!， 那 么 这 时 会 显示 出 什么 ? 
练习 4.52 ”请 实现 一 种 新 的 称 为 if -fail 的 结构 ， 它 允许 用 户 去 捕捉 一 个 表达 式 里 的 失 
败 。if-fail 有 两 个 参数 。 它 像 平 常 一 样 求 值 第 一 个 表达 式 ， 如 果 求 值 成 功 就 像 平常 一 样 返 
回 。 然 而 如 果 这 一 求 值 失败 ， 那 么 它 就 返回 第 二 个 表达 式 的 值 。 看 下 面 的 例子 : 
377 Amb-Eval input: 
(if-fail (let ((x (an-element-of ‘(1 3 5)))) 
(require (even? x) ) 


x) 
*all-odd) 


304 PIF AGS HR 





;; Starting a new problem 
;;; Amb-Eval value: 
all-odd 
777 Amb-Eval input: 
(if-fail (let ((x (an-element-of *(1 3 5 8)))) 
(require (even? x) ) 
x) 
*all-odd) 
;; Starting a new problem 
777 Amb-Eval value: 
8 


练习 4.53 如果 采 用 了 练习 4.51 的 permanent-set1! 和 练习 4.52 的 1-f-fail， 下 面 求 值 
的 结果 是 什么 ? 
(let ((pairs *())) 
(if-fail (let ((p (prime-sum-pair ’(1 3 5 8) ’(20 35 110)))) 
(permanent-set! pairs (cons p pairs) ) 
(amb) ) 
pairs) ) 
练习 4.54 ”如 果 我 们 原来 没有 认识 到 require 可 以 用 amb 实 现 为 一 个 常规 过 程 ， 可 以 由 
用 户 作为 非 确 定性 程序 的 一 部 分 来 定义 ， 那 么 ， 我 们 可 能 就 不 得 不 将 它 实 现 为 一 个 特殊 形式 .。 
这 可 能 需要 下 面 的 语法 过 程 : 
(define (require? exp) (tagged-list? exp 'require)) 


(define (require-predicate exp) (cadr exp) ) 


以 及 analyze 里 完成 分 派 的 一 个 新 子 句 : 
((require? exp) (analyze-require exp) ) 
还 要 用 过 程 analyze-require 去 处 理 表达 式 require。 请 完成 下 面 的 定义 analyze- 
require: 
(define (analyze-require exp) 
(let ((pproc (analyze (require-predicate exp)))) 
(lambda (env succeed fail) 
(pproc env 
(lambda (pred-value fail2) 
(21E €723 
<??> 
(succeed ’ok fail2))) 
fail)))) 


4.4 逻辑 程序 设计 
在 第 1 章 里 我 们 强调 说 ， 计 算 机 科学 处 理 的 是 命令 式 (怎样 做 ) 的 知识 ， 而 数学 处 理 的 是 
说 明 式 (是 什么 ) 的 知识 。 确 实 是 这 样 ， 程 序 设计 语言 要 求 程序 员 以 一 种 形式 去 表述 有 关 的 


知识 ， 其 中 需要 指明 一 种 为 解决 某 一 特定 问题 的 一 步 一 步 的 方法 。 但 另 一 方面 ， 作 为 语言 实 
现 的 一 部 分 ， 高 级 语言 也 提供 了 很 大 量 的 方法 论 知识 ， 使 用 户 可 以 不 必 关 心 具 体 计算 如 何 
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进行 的 许多 细节 。 

大 部 分 程序 设计 语言 ， 包 括 Lisp， 都 是 围绕 着 数学 函数 值 的 计算 组 织 起 来 的 。 面 向 表达 
式 的 语言 (例如 Lisp、Fortran 和 Algol) 利用 了 表达 式 的 “一 语 双 关 ”;: 一 个 描述 了 某 个 函数 值 
的 表达 式 也 可 以 解释 为 一 种 计算 该 值 的 方法 。 正 由 于 此 ， 大 部 分 程序 设计 语言 都 强烈 地 倾向 
于 单一 方向 的 计算 (计算 中 有 着 定义 清晰 的 输入 和 输出 )。 然 而 ， 也 确实 存在 一 些 与 此 有 着 根 
本 性 不 同 的 程序 设计 语言 ， 其 中 减轻 了 这 种 倾向 性 。 在 3.3.5 节 里 我 们 已 经 看 到 过 一 个 这 方面 
的 例子 ， 那 里 的 计算 对 象 是 一 些 算术 约束 条 件 。 在 一 个 约束 系统 里 ， 计 算 的 方向 和 顺序 都 设 
有 明确 定义 ;在 执行 这 种 计算 的 过 程 中 ， 系 统 必 须 为 “怎样 做 ”提供 许多 细节 ， 比 常规 的 算 
术 计 算 更 多 一 些 。 当 然 ， 这 并 不 意味 着 用 户 可 以 完全 摆脱 提供 命令 式 知 识 的 责任 。 存 在 着 许 
多 能 够 实现 同一 集约 束 关系 的 约束 网 络 ， 用 户 必须 从 这 些 数学 上 等 价 的 网 络 中 ， 选 出 一 个 适 
合 于 某 一 特定 计算 的 网 络 。 

4.3 节 展示 的 非 确定 性 程序 求 值 器 也 偏离 了 常规 的 观点 ， 即 那 种 认为 程序 设计 就 是 关于 如 
何 构造 出 计算 单 向 函数 的 算法 的 观点 。 在 一 个 非 确定 性 的 语言 里 ， 表 达 式 可 以 有 多 个 值 ， 而 
作为 这 种 性 质 的 结果 ， 计 算 中 需要 处 理 的 就 是 关系 ， 而 不 是 单一 值 的 函数 。 逻 辑 程序 设计 扩 
展 了 这 一 思想 ， 提 出 了 一 种 程序 设计 的 关系 模型 ， 其 中 加 入 了 一 类 功能 强大 的 称 为 合 一 的 符 
号 模式 匹配 2 。 

在 这 一 方法 可 以 用 的 那些 地 方 ， 它 能 成 为 一 种 威力 强大 的 写 程序 方式 。 这 种 威力 部 分 来 
自 于 下 面 的 事实 : 一 个 有 关 “ 是 什么 ”的 事实 可 能 被 用 于 解决 多 个 不 同 的 问题 ， 其 中 可 能 包 
含 着 不 同 的 “怎样 做 ”部 分 。 作 为 一 个 例子 ， 下 面 考虑 简单 的 append 操 作 ， 它 以 两 个 表 作为 
参数 ， 组 合 起 它们 的 元 素 ， 形 成 一 个 作为 结果 的 表 。 在 一 种 过 程 性 语言 里 ， 如 Lisp， 我 们 可 
以 基于 基本 的 表 构 造 函 数 cons 定 义 出 append， 正 如 前 面 2.2.1 市 所 做 的 那样 : 

(define (append x y) 

(if (mull? x) 


Y 
(cons (car x) (append (cdr x) y)))) 


这 个 过 程 可 以 看 作 是 把 下 面 的 两 条 规则 翻译 到 Lisp 语 言 里 ， 其 中 的 第 一 条 规则 涵盖 了 所 有 第 
一 个 表 为 空 的 情况 ， 而 第 二 条 处 理 非 空 表 的 情况 ， 这 种 表 是 两 个 部 分 的 cons: 
。 对 于 任何 一 个 表 y， 对 空 表 与 y 进 行 append 形 成 的 就 是 y。 


2 逻辑 程序 设计 是 从 有 关 自 动 定理 证 明 的 长 期 研究 中 产生 出 来 的 。 早 期 有 关 定 理 证 明 程序 的 建树 很 少 ， 因 为 它 
们 都 是 在 穷尽 地 搜索 可 能 证 明 的 空间 。 使 这 种 搜索 成 为 可 能 的 最 重要 突破 是 在 20 世 纪 60 年 代 前 期 被 发 现 的 合 
一 算法 和 归结 原理 (Robinson 1965)。 举 例 来 说 ， 归 结 被 Green 和 Raphael (1968) ( 另 见 Green 1969) 用 作 
他 们 的 演绎 式 问题 回答 系统 的 基础 。 在 此 期 间 ， 研 究 者 们 主要 关注 的 是 保证 能 找到 证 明 (如 果 存 在 的 话 ) 的 
算法 。 控 制 这 种 算法 ， 使 之 导向 一 个 证 明 是 很 困难 的 。Hewitt (1969) 认识 到 ， 我 们 有 可 能 将 程序 设计 语言 
的 控制 结构 和 完成 逻辑 操作 的 系统 中 的 运算 结合 起 来 ， 由 此 导致 了 4.3.1 节 提 到 的 自动 搜索 方面 的 工作 ( 见 脚 
注 251)。 在 这 同一 时 期 ，Colmerauer 在 马赛 为 处 理 自然 语言 而 开发 了 一 些 基于 规则 的 系统 ( 见 Colmerauer et 
al. 1973)。 为 了 表示 这 些 规则 ， 他 发 明了 一 种 称 为 Prolog 的 语言 。 在 爱丁堡 的 Kowalski (1973; 1979) 认识 到 ， 
Prolog 程 序 的 执行 过 程 可 以 解释 为 是 在 证 明定 理 (采用 的 是 一 种 称 为 线性 Horn 子 句 的 证 明 技 术 )。 后 面 这 两 
股 力 量 的 融合 最 后 产生 出 逻辑 程序 设计 运动 。 正 因为 这 样 ， 在 分 配 逻辑 程序 设计 开发 的 荣誉 时 ， 法 国人 可 以 
指出 Prolog 在 马赛 大 学 的 诞生 ， 而 英国 人 则 可 以 强调 爱丁堡 大 学 的 工作 。 而 根据 MIT 人 士 的 看 法 ， 人 逻 辑 程 序 
设计 的 开发 ， 不 过 是 这 些 研究 组 在 试图 弄 清 楚 Hewitt 在 其 才华 横 溢 而 又 深 不 可 测 的 博士 论文 中 到 底 说 了 些 什 
么 的 过 程 中 搞 出 来 的 。 有 关 逻 辑 程 序 设 计 的 历史 可 参见 Robinson 1983, 
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。 对 于 任何 的 u、v、y 和 z, 将 (cons u v) 与 y 做 append 将 形成 (cons u z)， 条 件 
是 V 与 y 的 append 形 成 z*%。 

利用 这 一 append 过 程 ， 我 们 可 以 回答 诸如 下 面 这 一 类 的 问题 : 

找 出 (a b) 和 (c d) happend, 

但 是 ， 同 样 的 两 条 规则 也 足以 回答 下 面 这 类 问题 ， 而 上 述 过 程 却 无 法 回答 : 

找 出 一 个 类 YY， HH (a 卫 )】 的 append 产 生出 (a bc d), 

找 出 所 有 的 Xx 和 y， 它 们 的 append 形 成 (a bc a), 

在 逻辑 式 程序 设计 语言 里 ,程序 员 写 append“ 过 程 ” 的 方式 也 就 是 陈述 出 上 面 给 出 的 有 
关 append 的 两 条 规则 。 相 应 的 “怎样 做 ”的 知识 由 解释 器 自动 提供 ， 这 将 使 这 一 对 规则 能 够 
回答 上 面 的 三 类 有 关 append 的 问题 *”。 

当代 的 逻辑 程序 设计 语言 (包括 我 们 在 这 里 将 要 实现 的 这 个 ) 都 有 一 些 实质 性 的 缺陷 ， 
它们 里 面 有 关 “ 怎 样 做 ”的 通用 方法 ， 有 可 能 使 它们 陷入 雇 误 性 的 无 穷 循环 或 者 其 他 并 非 我 
们 期 望 的 行为 之 中 。 逻 辑 程序 设计 是 计算 机 科学 研究 的 一 个 活跃 领域 *%。 

在 本 章 的 前 面部 分 里 ， 我 们 探索 了 一 些 实现 解释 器 的 技术 ， 也 描述 了 针对 类 Lisp 语 言 包 
解释 器 的 基本 元 素 (实际 上 ， 也 就 是 针对 任何 常规 语言 的 解释 器 ) 。 现 在 我 们 将 要 应 用 这 些 思 
想 ， 讨 论 一 个 逻辑 程序 设计 语言 的 解释 器 。 我 们 称 这 种 语言 为 查询 语言 ， 因 为 在 描述 提取 数 
据 库 信 息 的 查询 或 称 提问 时 ， 这 种 语言 非常 有 用 。 虽 然 这 种 查询 语言 与 Lisp 差 异 巨大 ， 但 我 
们 会 发 现 ， 基 于 前 面 一 直 在 使 用 的 一 般 性 框架 描述 这 个 语言 也 是 很 方便 的 : 一 组 基本 元 素 ，; 
加 上 一 些 组 合 手 段 ， 使 我 们 能 将 简单 元 素 组 合 起 来 构造 更 复杂 的 元 素 ; 还 有 抽象 的 手段 ， 使 
我 们 能 将 复杂 的 元 素 看 作 单 个 的 概念 单元 。 逻 辑 程 序 设 计 的 解释 器 比 像 Lisp 那 类 语言 的 解释 
器 复杂 许多 ， 然 而 ， 正 如 我 们 将 要 看 到 的 ， 这 个 查询 语言 解释 器 里 也 包含 了 许多 可 以 在 4.1.1 
节 的 解释 器 里 找到 的 同样 元 素 。 特 别 是 这 里 也 存在 着 一 个 “ 求 值 ”部 分 ， 它 基于 表达 式 类 型 
做 分 类 ， 还 有 一 个 “应 用 ”部 分 ， 实 现 语 言 里 的 抽象 机 制 (在 Lisp 里 是 过 程 ， 在 逻辑 程序 设 
计 中 是 规则 )。 还 有 ， 在 这 一 实现 中 扮演 着 核心 角色 的 是 一 种 框架 数据 结构 ， 它 确定 了 符号 与 
它们 的 关联 值 之 间 的 对 应 。 这 一 查询 语言 中 另 一 个 有 趣 的 地 方 是 我 们 实质 性 地 使 用 了 流 ， 那 
是 在 第 3 章 里 介绍 的 。 


4.4.1 演绎 信息 检索 
逻辑 程序 设计 特别 适合 为 数据 库 提 供 界面 ， 用 于 完成 各 种 信息 检索 。 我 们 在 本 章 将 要 实 


263 为 了 看 到 在 这 些 规则 与 过 程 之 间 的 对 应 ， 令 过 程 中 的 x (这 里 的 x 非 空 ) 对 应 于 规则 里 的 (cons u v), 这 
样 z 就 对 应 于 (cdr x) 和 Yy 的 append。 

264 这 当然 还 不 可 能 使 用 户 摆脱 有 关 如 何 计算 出 答案 的 所 有 问题 。 存 在 许多 数学 上 等 价 的 描述 appenda 关 系 的 不 
同 规则 集合 ， 其 中 只 有 一 些 可 以 转化 为 能 在 任意 方向 上 有 效 地 计算 的 设施 。 此 外 ， 有 时 “是 什么 ”的 信息 对 
于 并 没有 给 出 有 关 “ 怎 样 做 ”的 任何 线索 。 例 如 ， 请 考虑 下 面 问题 ,计算 出 y 使 得 y*=x。 

26 对 逻辑 程序 设计 的 兴趣 在 20 世 纪 80 年 代 前 期 达到 高 潮 ， 其 时 日 本 政府 开始 了 一 个 野心 勃勃 的 计划 ， 目 标 是 构 
造 出 一 种 能 够 优化 运行 逻辑 式 程序 设计 语言 的 超 高 速 计算 机 。 这 种 计算 机 的 速度 采用 LIPS (每 秒 完成 逻辑 推 
理 次 数 ，Logical Inferences Per Second) 来 衡量 ， 而 不 是 用 通常 的 FLOPS (每 秒 浮 点 运算 次 数 ，FLoating- 
point Operations Per Second) 。 虽然 这 一 项 目 中 成 功 地 开发 出 了 开始 计划 的 有 关 硬 件 和 软件 ， 但 国际 计算 机 
工业 却 走向 了 不 同 的 方向 。 参 见 Feigenbaum and Shrobe 1993 有 关 日 本 项 目的 综合 评价 。 逻 辑 程序 设计 社团 也 
转向 考虑 那些 不 是 基于 简单 模式 匹配 技术 的 关系 式 程序 设计 ， 例 如 处 理 数值 约束 的 能 力 ， 类 似 于 我 们 在 3.3.5 
节 展 示 的 约束 传播 系统 。 
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现 的 查询 语言 就 是 为 了 这 种 使 用 方式 而 设计 的 。 

为 了 说 明 一 个 查询 系统 能 够 做 些 什么 ,我 们 要 在 这 里 展示 一 下 如 何 将 它 用 于 管理 
Microshaft 公 司 的 人 事 记录 数据 库 ， 这 是 一 个 位 于 波士顿 地 区 的 成 功 的 高 科技 公司 。 我 们 的 语 
言 提供 了 模式 导向 的 人 事 信 息 访 问 ， 还 可 以 利用 一 般 性 规则 去 做 逻辑 推理 。 


一 个 实例 数据 库 

Microshaft 的 人 事 数据 库 里 包含 了 一 些 有 关公 司 人 事 的 断言 ， 这 里 是 有 关 Ben Bitdiddle 的 
言 息 ， 他 是 本 公司 里 的 计算 机 大 师 : 

(address (Bitdiddle Ben) (Slumerville (Ridge Road) 10)) 


(job (Bitdiddle Ben) (computer wizard) ) 
(salary (Bitdiddle Ben) 60000) 


每 个 断言 是 一 个 表 (这 里 是 个 三 元 组 ) ， 其 元 素 本 身 也 可 以 是 表 。 

作为 这 里 的 大 师 ，Ben 管 理 着 公司 的 计算 机 分 部 ， 他 的 属 下 有 两 个 程序 员 和 一 个 技师 。 下 
面 是 有 关 他 们 的 信息 : 

(address (Hacker Alyssa P) (Cambridge (Mass Ave) 78)) 

(job (Hacker Alyssa P) (computer programmer)) 


(salary (Hacker Alyssa P) 40000) 
(supervisor (Hacker Alyssa P) (Bitdiddle Ben) ) 


(address (Fect Cy D) (Cambridge (Ames Street) 3) ) 
(job (Fect Cy D) (computer programmer) ) 

(salary (Fect Cy D) 35000) 

(supervisor (Fect Cy D) (Bitdiddle Ben) ) 


(address (Tweakit Lem E) (Boston (Bay State Road) 22)) 
(job (Tweakit Lem E) (computer technician) ) 

(salary (Tweakit Lem E) 25000) 

(supervisor (Tweakit Lem E) (Bitdiddle Ben) ) 


在 这 里 还 有 一 个 实习 程序 员 ， 由 Alyssa 指 导 : 


(address (Reasoner Louis) (Slumerville (Pine Tree Road) 80)) 
(job (Reasoner Louis) (computer programmer trainee) ) 
(salary (Reasoner Louis) 30000) 


(supervisor (Reasoner Louis) (Hacker Alyssa P) ) 


所 有 这 些 人 都 属于 计算 机 分 部 ， 这 由 他 们 的 工作 描述 中 的 第 一 个 词 computer 表 明 。 
Ben 是 公司 的 高 级 雇员 ， 他 的 上 司 就 是 公司 的 大 老板 本 人 : 
(supervisor (Bitdiddle Ben) (Warbucks Oliver) ) 
(address (Warbucks Oliver) (Swellesley (Top Heap Road) ) ) 


(job (Warbucks Oliver) (administration big wheel) ) 
(salary (Warbucks Oliver) 150000) 


除了 计算 机 分 部 外 ， 这 个 公司 里 还 有 一 个 会 计 分 部 ， 由 一 位 主管 会 计 和 他 的 助手 组 成 : 
(address (Scrooge Eben) (Weston (Shady Lane) 10) ) 

(job (Scrooge Eben) (accounting chief accountant) ) 

(salary (Scrooge Eben) 75000) 

(supervisor (Scrooge Eben) (Warbucks Oliver) ) 
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(address (Cratchet Robert) (Allston (N Harvard Street) 16)) 
(job (Cratchet Robert) (accounting scrivener) ) 
(salary (Cratchet Robert) 18000) 


(supervisor (Cratchet Robert) (Scrooge Eben) ) 

大 老板 还 有 一 个 秘书 : 
(address (Aull DeWitt) (Slumerville (Onion Square) 5)) 
(job (Aull DeWitt) (administration secretary) ) 


(salary (Aull DeWitt) 25000) 
(supervisor (Aull DeWitt) (Warbucks Oliver) ) 


这 个 数据 库 里 还 包含 另外 一 些 断 言 ， 描 述 了 从 事 某 些 工 作 的 人 还 可 以 做 另外 一 些 种 类 的 
工作 。 比 如 说 ， 计 算 机 大 师 还 可 以 做 计算 机 程序 员 和 计算 机 技师 : 


(can-do-job (computer wizard) (computer programmer)) 
(can-do-job (computer wizard) (computer technician)) 


计算 机 程序 员 还 可 以 做 实习 程序 员 的 工作 : 


(can-do-job (computer programmer) 


(computer programmer trainee)) 


还 有 ， 就 像 我 们 都 知道 的 : 
(can-do-job (administration secretary) 


(administration big wheel) ) 


简单 查询 

这 一 查询 语言 允许 用 户 从 数据 库 里 检索 信息 ， 采 用 的 方式 就 是 在 响应 系统 的 提示 时 提出 
有 关 查 询 。 举 例 来 说 ， 为 了 找 出 所 有 的 计算 机 程序 员 ， 我 们 可 以 说 : 

777 Query input: 


(job ?x (computer programmer) ) 


系统 的 响应 将 会 是 下 面 几 项 : 
;;; Query results: 
(job (Hacker Alyssa P) (computer programmer) ) 
(job (Fect Cy D) (computer programmer) ) 


所 输入 的 查询 应 该 描述 出 我 们 需要 在 数据 库 里 查找 的 ， 能 与 一 个 特定 模式 匹配 的 那些 条 
目 。 在 这 个 例子 里 ， 描 述 条 目的 模式 由 三 个 项 组 成 ,其 中 的 第 一 项 是 文字 符号 job， 第 二 个 
项 可 以 是 任何 东西 ， 而 第 三 项 是 文字 的 表 (computer Programmer)。 在 描述 匹配 的 表 里 ， 
作为 第 二 项 的 “任何 东西 ”用 一 个 模式 变量 ?x 描述 。 模 式 变 量 的 一 般 形式 是 一 个 符号 ， 作 为 
变量 的 名 字 ， 在 它 的 最 前 面 字符 是 一 个 问号 。 下 面 我 们 将 看 到 ， 为 模式 变量 取 名 字 是 有 用 的 ， 
因此 这 里 没有 采用 在 模式 中 放 一 个 ?， 用 于 表示 “任何 东西 ”的 形式 。 系 统 对 简单 查询 的 响应 
就 是 显示 出 数据 库 里 所 有 的 能 与 给 定 模式 匹配 的 条 目 。 

模式 里 可 以 有 不 止 一 个 变量 。 例 如 查询 : 

(address ?x ?y) 

将 列 出 所 有 雇员 的 地 址 。 

模式 里 也 可 以 没有 变量 。 此 时 这 一 查询 就 只 是 去 确认 该 模式 是 否 就 是 数据 库 里 的 一 个 条 

目 。 如 果 是 的 话 ， 那 么 就 存在 一 个 匹配 ;否则 就 没有 匹配 。 


44 iAP IE GT 309 


同一 模式 变量 也 可 以 在 一 个 查询 里 出 现 多 次 ， 这 就 刻画 了 同一 个 “任何 东西 ”必须 出 现 
的 各 个 不 同位 置 。 这 也 是 为 什么 变量 需要 有 名 字 的 原因 。 举 例 说 ， 
(supervisor ?x ?x) 
将 找 出 所 有 的 人 ， 他 们 的 上 司 就 是 他 们 自己 (虽然 在 我 们 的 示例 数据 库 里 没有 这 种 断言 ) 。 
查询 : 
(job ?x (computer ?type)) 
与 所 有 这 样 的 工作 条 目 匹配 其 第 三 项 是 一 个 两 元 素 的 表 ， 其 中 的 第 一 项 是 computer”. 
(job (Bitdiddle Ben) (computer wizard)) 
(job (Hacker Alyssa P) (computer programmer)) 


(job (Fect Cy D) (computer programmer)) 
(job (Tweakit Lem E) (computer technician)) 


这 个 模式 不 会 与 下 面条 目 匹 配 : 

(job (Reasoner Louis) (computer programmer trainee)) 
因为 这 一 条 目 里 的 第 三 项 是 一 个 包含 三 个 元 素 的 表 ， 而 模式 里 的 第 三 项 清 清楚 楚 地 说 明 它 要 
求 只 有 两 个 元 素 。 如 果 我 们 希望 修改 上 面 模式 ， 使 被 匹配 的 条 目的 第 三 项 可 以 是 任何 一 个 由 
computetz 开 头 的 表 ， 那 么 就 可 以 采用 下 面 的 描述 : 

(job ?x (computer . ?type) ) 
例如 ， 


(computer . ?type) 


将 能 够 匹配 数据 


(computer programmer trainee) 


其 中 的 ?type 与 表 (programmer trainee) 匹配 。 这 个 模式 也 能 匹配 数据 


(computer programmer) 


其 中 的 ?type 匹 配 表 (programmer)。 还 能 匹配 数据 


(computer) 


其 中 的 ?type 匹 配 空 表 ()。 
我 们 可 以 把 对 于 这 一 查询 语言 中 简单 查询 的 处 理 描述 如 下 : 
“系统 将 找 出 使 得 查询 模式 中 变量 满足 这 一 模式 的 所 有 赋值 ， 也 就 是 说 ， 为 这 些 变量 找 出 
所 有 的 值 集 合 ， 使 得 如 果 将 这 些 模式 变量 用 这 样 的 一 组 值 实例 化 (取代 )， 得 到 的 结果 
就 在 这 个 数据 库 里 。 
。 系统 对 查询 的 响应 方式 ， 就 是 列 出 查询 模式 的 所 有 满足 要 求 的 实例 ， 这 些 实例 可 以 通过 
将 模式 中 的 变量 赋 为 满足 它 的 值 而 得 到 。 
请 注意 ， 如 果 模 式 中 没有 变量 ， 这 个 查询 就 简化 为 一 个 有 关 此 模式 是 否 出 现在 数据 库 里 
的 确认 了 。 如 果 确 实 如 此 ， 空 赋值 (不 为 任何 变量 赋值 ) 将 在 数据 库 里 满足 这 一 模式 。 
练习 4.55 请 给 出 在 上 述 数 据 库 里 检索 下 面 信息 的 简单 查询 : 
a) 所 有 被 Ben Bitdiddle 管 理 的 人 ， 


2% 采用 带 点 尾部 的 记 法 形式 在 2.20 节 介绍 。 
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b) 会 计 部 所 有 人 的 名 字 和 工作 ; 

c) 在 Slumerville 居 住 的 所 有 人 的 名 字 和 住址 。 

复合 查询 

简单 查询 形成 了 这 一 查询 语言 的 基本 操作 。 为 了 构造 复合 操作 ， 查 询 语言 提供 了 一 些 组 
合 手段 。 使 查询 语言 成 为 逻辑 程序 设计 语言 的 一 个 原因 是 ， 在 这 里 所 用 的 组 合 手段 模仿 了 构 
造 逻 辑 表达 式 的 组 合 手段 : and、or 和 not。( 这 里 所 说 的 and、or 和 not 并 不 是 Lisp 基 本 过 
程 ， 而 是 用 于 查询 语言 的 几 个 内 部 操作 。) 

我 们 可 以 利用 and， 用 下 面 查询 找 出 所 有 计算 机 程序 员 的 住址 : 


(and (job ?person (computer programmer) ) 
(address ?person ?where) ) 


输出 的 结果 是 
(and (job (Hacker Alyssa P) (computer programmer) ) 


(address (Hacker Alyssa P) (Cambridge (Mass Ave) 78) )) 


(and (job (Fect Cy D) (computer programmer) ) 
(address (Fect Cy D) (Cambridge (Ames Street) 3))) 


一 般 说 ， 

(and <queryi> <queryy»> ... <query,>) 
由 对 模式 变量 的 所 有 同时 满足 <query!> . . . <queryw> 的 值 集合 满足 。 

就 像 简单 查询 一 样 ， 系 统 处 理 复合 查询 的 方式 ， 也 是 找 出 对 模式 变量 的 所 有 满足 查询 的 
赋值 ， 而 后 显示 出 查询 对 于 这 些 值 的 实例 化 结果 。 

构成 复合 查询 的 另 一 个 手段 是 通过 or 。 例 如 : 


(or (supervisor ?x (Bitdiddle Ben)) 


(supervisor ?x (Hacker Alyssa P))) 


将 会 找 出 所 有 被 Ben Bitdiddle 或 者 Alyssa P. Hacker 管 理 的 人 员 : 


(or (supervisor (Hacker Alyssa P) (Bitdiddle Ben)) 
(supervisor (Hacker Alyssa P) (Hacker Alyssa P) ) ) 


(or (supervisor (Fect Cy D) (Bitdiddle Ben) ) 
(supervisor (Fect Cy D) (Hacker Alyssa P))) 


(or (supervisor (Tweakit Lem E) (Bitdiddle Ben) ) 
(supervisor (Tweakit Lem E) (Hacker Alyssa P))) 


(or (supervisor (Reasoner Louis) (Bitdiddle Ben) ) 
(supervisor (Reasoner Louis) (Hacker Alyssa P))) 
一 般 说 ， 
(or <queryi> <query> ... <query,>) 


由 对 模式 变量 的 所 有 满足 <query!> ... <query,> 中 至 少 一 个 查询 的 那些 值 集合 满足 。 
复合 查询 还 可 以 用 not 构 造 。 例 如 ， 


(and (supervisor ?x (Bitdiddle Ben) ) 


(not (job ?x (computer programmer) ) ) ) 


将 找 出 所 有 由 Ben Bitdiddle 领 导 的 不 是 计算 机 程序 员 的 人 。 一 般 而 言 ， 
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(not <query,>) 
被 所 有 的 对 于 模式 变量 的 不 满足 <query,> 的 赋值 满足 *。 

最 后 一 种 组 合 形式 称 为 1isp-value。 当 1isp-value 被 用 作 某 个 模式 的 第 一 个 元 素 时 ， 
就 说 明了 下 一 个 元 素 是 一 个 Lisp 的 谓词 ， 应 该 将 它 应 用 于 作为 其 参数 的 其 余 (实例 化 的 ) 元 
素 。 一 般 说 ， 

(lisp-value <predicate> <arg> ... <arg,>) 

将 被 那样 一 些 对 模式 变量 的 赋值 满足 ， 这 些 赋值 使 得 将 <predicate> 应 用 于 实例 化 后 的 <arg1> … 
<argo> 得 到 真 。 举 个 例子 ， 为 找 出 所 有 工资 高 于 30 000 美 元 的 人 ， 我 们 可 以 写 *”: 


(and (salary ?person ?amount) 


(lisp-value > ?amount 30000)) 


练习 4.56 请 给 出 检索 下 面 信息 的 复合 查询 : 

a) Ben Bitdiddle 的 所 有 下 属 的 名 字 ， 以 及 他 们 的 住址 ; 

b) 所 有 工资 少 于 Ben Bitdiddle 的 人 ， 以 及 他 们 的 工资 和 Ben Bitdiddle 的 工资 ， 
c) 所 有 不 是 由 计算 机 分 部 的 人 管理 的 人 ， 以 及 他 们 的 上 司 和 工作 。 


规则 
除了 基本 查询 和 复合 查询 之 外 ， 这 一 查询 语言 还 为 查询 的 抽象 提供 了 方法 。 这 通过 规则 
的 方式 给 出 。 规 则 : 
(rule (lives-near ?person-1 ?person-2) 
(and (address ?person-1 (?town . ?rest-1)) 
(address ?person-2 (?town . ?rest-2)) 


(not (same ?person-1 ?person-2)))) 


描述 的 是 如 果 两 个 人 住 在 同一 个 城镇 ， 就 认为 他 们 住 得 很 近 。 最 后 的 not 子 句 防止 这 一 规则 
说 所 有 的 人 自己 和 自己 住 得 近 。 这 一 关系 可 以 定义 为 一 条 极 简单 的 规则 ?2 : 

(rule (same ?x ?x)) 

下 面 规则 描述 了 某 人 是 一 个 组 织 里 的 “大 人 物 "， 条 件 是 他 管理 的 某 些 人 还 管理 其 他 人 : 


(rule (wheel ?person) 
(and (supervisor ?middle-manager ?person) 
(supervisor ?x ?middle-manager) ) ) 


规则 的 一 般 形 式 是 : 


(rule <conclusion> <body>) 


wW 实际 上 ， 有 关 not 的 描述 只 对 简单 情况 是 合法 的 。not 的 实际 行为 更 复杂 一 些 。 我 们 将 在 4.4.2 节 和 4.4.3 节 考 
察 not 的 特殊 性 质 。 

%8 ]isp-value 应 该 只 用 于 执行 查询 语言 里 没有 提供 的 操作 。 特 别 是 ， 不 应 该 用 它 去 做 相等 检查 (因为 这 实际 
上 就 是 查询 语言 中 的 匹配 所 要 做 的 事情 ) 或 者 不 等 检查 (因为 这 可 以 按 下 面 方式 用 同一 规则 完成 ) 。 

0 请 注意 ， 为 弄 清 两 个 东西 一 样 并 不 需要 same， 只 需要 为 它们 使 用 同样 的 模式 变量 一 一 从 效果 看 ， 这 就 是 说 有 
的 是 一 个 东西 而 不 是 两 个 。 例 如 1ives-near 规 则 里 的 ?town 和 下 面 whee1l 规 则 里 的 ?middle-manager。 
当 我 们 希望 强迫 要 求 两 个 东西 不 同时 same 才 有 用 ， 如 在 1ives-near 规 则 里 的 ?person-1 和 ?person-2。 
虽然 在 一 个 查询 里 的 两 个 部 分 使 用 同一 模式 变量 将 强迫 同样 的 值 出 现在 这 两 处 ， 采 用 不 同 模式 变量 却 不 能 强 
迫 它们 出 现 不 同 的 值 ( 赋 给 不 同 模式 变量 的 值 可 以 相同 也 可 以 不 同 )。 








Wl 


312 Z4% ASME 
其 中 的 <conclusion> 是 一 个 模式 ，<body> 可 以 是 任何 查询 *”。 我 们 可 以 认为 ， 一 个 规则 就 
像 是 表示 了 很 大 的 (其 至 是 无 穷 的 ) 一 组 断言 ， 也 就 是 相应 规则 的 结论 的 所 有 实例 ， 其 变量 
赋值 满足 规则 的 体 。 前 面 说 过 ， 在 描述 一 个 简单 查询 (模式) 时 ， 如 果 对 模式 中 的 变量 做 了 
一 个 赋值 ， 这 样 实例 化 后 的 模式 出 现在 数据 库 里 ， 我 们 就 说 该 赋值 满足 这 个 模式 。 其 实 模式 
并 不 必 显 式 地 作为 断言 出 现在 数据 库 里 ， 它 也 可 以 是 由 某 条 规则 所 总 含 的 隐 式 断言 。 例 如 ， 
查询 
(lives-near ?x (Bitdiddle Ben)) 
结果 得 到 


(lives-near (Reasoner Louis) (Bitdiddle Ben)) 
(lives-near (Aull DeWitt) (Bitdiddle Ben)) 


要 找 出 所 有 住 在 Ben Bitdiddle 附 近 的 计算 机 程序 员 ， 我 们 可 以 问 
(and (job ?x (computer programmer) ) 


(lives-near ?x (Bitdiddle Ben) ) ) 


就 像 复合 过 程 的 情况 一 样 ， 规 则 也 可 以 作为 其 他 规则 里 的 一 部 分 (就 像 我 们 在 上 面 1ives- 
neaz 规 则 中 已 经 看 到 的 那样 ) ， 或 者 甚至 可 以 递归 地 定义 。 举 个 例子 ， 规 则 


(rule (outranked-by ?staff-person ?boss) 
(or (supervisor ?staff-person ?boss) 
(and (supervisor ?staff-person ?middle-manager) 
(outranked-by ?middle-manager ?boss) ) ) ) 


说 一 个 职员 是 一 个 老板 的 下 级 ， 条 件 是 如 果 这 个 老板 就 是 他 的 主管 ， 或 者 (递归 的 ) 这 个 人 
的 主管 是 这 个 老板 的 下 级 。 

练习 4.57 ”请 定义 一 条 规则 ， 说 某 甲 可 以 代 赫 某 乙 ， 如 果 甲 所 做 工作 与 乙 相 同 ， 或 者 任 
何 能 做 甲 的 工作 的 人 都 能 做 乙 的 工作 ， 而 且 甲 与 乙 不 是 同一 个 人 。 使 用 你 的 规则 ， 给 出 找 出 
下 面 结果 的 查询 : 

a) 所 有 能 代替 Cy D. Fect 的 人 ， 

b) 所 有 能 代替 某 个 工资 比 自己 高 的 人 的 人 ， 以 及 这 两 个 人 的 工资 。 

练习 4.58 ”请 定义 一 条 规则 说 ， 一 个 人 是 某 部 门 里 的 “大 腕 "， 如 果 这 人 工作 在 该 部 门 ， 
但 在 这 一 部 门 里 没有 他 的 上 司 。 

练习 4.59 Ben Bitdiddle 经 常 开会 迟到 。 他 害怕 这 种 习惯 会 影响 他 的 职位 ， 因 此 决定 做 点 
有 关 的 事情 。 他 在 Microshaft 的 数据 库 里 增加 了 所 有 每 周 例会 的 信息 ， 写 成 如 下 断言 : 

(meeting accounting (Monday 9am) ) 

(meeting administration (Monday 10am) ) 


(meeting computer (Wednesday 3pm) ) 
(meeting administration (Friday 1pm) ) 


这 里 的 每 个 断言 对 应 于 整个 分 部 的 一 次 会 议 。Ben 还 为 全 公司 会 议 (包括 各 个 分 部 ) 加 入 了 一 
个 条 目 。 公 司 的 所 有 雇员 应 该 出 席 这 个 会 议 。 


(meeting whole-company (Wednesday 4pm) ) 


a) 在 星期 五 上 午 ，Ben 和 希望 查询 数据 库 ， 确 定 今天 的 所 有 会 议 。 他 应 该 使 用 什么 样 的 


m 我 们 允许 没有 体 的 规则 ， 例 如 same。 而 且 把 这 种 规则 解释 为 ， 规 则 的 结论 被 变量 的 任何 值 满足 。 
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查询 ? 

b) Alyssa P. Hacker 对 此 并 不 满意 ， 她 认为 ， 如 果 能 通过 自己 的 名 字 询 问 有 关 会 议 ， 这 种 
功能 才 更 有 用 处 。 因 此 她 设计 了 一 条 规则 ， 说 一 个 人 的 会 议 应 包括 所 有 whole-company 会 
议 ， 再 加 上 这 个 人 所 在 部 门 的 所 有 会 议 。 请 给 下 面 规则 填充 体 部 分 。 


(rule (meeting-time ?person ?day-and-time) 


<rule-body>) 


c) Alyssa 星 期 三 上 午 回 来 上 班 ， 希 望 知道 她 当日 必须 参加 哪些 会 议 。 现 在 已 经 有 了 上 面 
规则 ， 她 应 该 写 什 么 样 的 查询 将 这 些 会 议 查 出 来 呢 ? 
练习 4.60 ”给 出 了 查询 


(lives-near ?person (Hacker Alyssa P)) 


Alyssa P. Hacker 就 能 查 出 谁 住 在 自己 附近 ， 这 样 她 就 可 以 搭 同事 的 便 车 上 班 了 。 而 另 一 方面 ， 
当 她 试 着 用 下 面 查 询 去 找 出 所 有 一 对 对 的 居住 较 近 的 人 时 

(lives-near ?person-1 ?person-2) 
却 注意 到 每 对 这 样 的 人 都 列 出 了 两 次 。 例 如 : 


(lives-near (Hacker Alyssa P) (Fect Cy D)) 
(lives-near (Fect Cy D) (Hacker Alyssa P)) 


为 什么 会 出 现 这 种 情况 ? 是 否 能 查找 居住 接近 的 人 ， 且 每 对 人 只 列 出 一 次 ? 请 解释 答案 。 


将 逻辑 看 作 程序 

我 们 可 以 认为 ， 一 条 规则 就 是 一 个 逻辑 强 含 : 如 果 对 所 有 模式 变量 的 一 个 赋值 满足 规则 
的 体 ， 那 么 它 就 满足 其 结论 。 因 此 ， 我 们 可 以 认为 查询 语言 有 着 一 种 基于 有 关 规 则 ， 执 行 逻 
辑 推理 的 能 力 。 作 为 一 个 示例 ， 现 在 考虑 在 4.4 节 开始 时 提 到 的 append 操 作 。 正 如 那 时 讲 过 
的 ，append 可 以 用 下 面 的 两 条 规则 刻画 : 

“ 对 于 任何 表 y， 将 空 表 与 y 的 append 形 成 的 是 y。 

“对 于 任何 u、v、Yy 和 z,， 将 (cons u v) Sy append 形 成 (cons u z)， 条 件 是 v 

SyWappend 形成 z。 

为 了 用 上 面 的 查询 语言 描述 这 两 条 规则 ， 我 们 要 为 下 面 的 关系 定义 两 条 规则 : 

(append-to-form x y z) 
它 的 意思 可 以 解释 为 “x 和 y 的 append 形 成 了 z”: 

(rule (append-to-form () ?y ?y)) 


(rule (append-to-form (?u . ?v) ?y (?u . ?z)) 
(append-to-form ?v ?y ?2z)) 
这 里 的 第 一 条 规则 没有 体 ， 这 意味 着 结论 对 ?y 的 任何 值 都 成 立 。 请 注意 ， 在 第 二 条 规则 中 ， 
在 为 一 个 表 的 car 和 cdar 命 名 时 ， 采 用 了 圆 点 尾部 的 记 法 形式 。 
给 出 这 两 条 规则 之 后 ， 我 们 就 可 以 写 出 查询 ， 去 计算 两 个 表 的 append 了 : 
7; Query input: 
(append-to-form (a b) (c d) ?z) 


;;; Query results: 


(append-to-form (a b) (c d) (a b c d)) 
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更 令 人 震惊 的 是 ， 我 们 还 能 利用 这 同样 的 两 条 规则 提出 这 样 的 问题 :“ 哪 个 表 被 apPend 到 
(a b) 的 后 面 能 产生 出 (a b c d)”。 这 一 查询 可 以 按 如 下 方式 写 : 

777 Query input: 

(append-to-form (a b) ?y (a b c d)) 

+77 Query results: 

(append-to-form (a b) (c d) (a b c d)) 

我 们 还 可 以 询问 所 有 append 起 来 能 形成 (a b c d) 的 表 的 序 对 : 

;;; Query input: 

(append-to-form ?x ?y (a bc d)) 

777 Query results: 

(append-to-form () (a bcd) (abc d)) 

(append-to-form (a) (b c d) (a b c d)) 

(append-to-form (a b) (c d) (a b c d)) 

(append-to-form (a b c) (d) (a b c d)) 

(append-to-form (a b c d) () (a b c d)) 

从 表面 看 ， 这 样 的 查询 系统 在 使 用 规则 推导 出 上 述 查询 的 回答 时 ， 好 像 显 示 出 不 少 的 智 
能 。 实 际 上 ， 正 如 我 们 将 在 下 一 节 里 看 到 的 ， 这 样 系统 不 过 是 按照 一 种 精确 定义 的 算法 去 拆 
解 这 些 规则 罢了 。 遗 憾 的 是 ， 虽 然 这 个 系统 对 于 append 示 例 的 工作 情况 令 人 印象 深刻 ， 对 于 
更 复杂 的 情况 ， 这 种 一 般 性 的 方法 却 可 能 失败 ， 正 如 我 们 将 在 4.4.3 节 中 看 到 的 那样 。 

练习 4.61 下 面 规则 实现 了 next -to 关系 ， 它 找 出 一 个 表 里 的 相 邻 元 素 : 

(rule (?x next-to ?y in (?x ?y . ?u))) 

(rule (?x next-to ?y in (?v . ?z)) 

(?x next-to ?y in ?z)) 
下 面 查询 将 会 得 到 什么 回应 ? 
(?x next-to ?y in (1 (2 3) 4)) 


(?x mext-to 1 in (2 1 3 1)) 


834.62 ”请 定义 规则 实现 练习 2.17 里 的 last -pair 操 作 ， 该 操作 返回 一 个 表 ， 其 中 包 
含 着 一 个 非 空 表 里 的 最 后 一 个 元 素 。 通 过 一 些 查 询 检查 你 的 规则 ， 例 如 (last-pair 
(3) ?x)、(last-pair (1 2 3) ?x) 和 (last-pair (2 ?x) (3))。 你 的 规则 对 
(last-pair ?x (3)) 也 能 正确 工作 吗 ? 

练习 4.63 ”下面 数 据 库 〈( 见 《创世纪 4》) 追踪 一 个 血缘 关系 表 ， 从 Ada 的 后 辈 一 直上 淹 至 
Adam， 通 过 Cain : 

(son Adam Cain) 

(son Cain Enoch) 

(son Enoch Irad) 

(son Irad Mehujael) 

(son Mehujael Methushael) 

(son Methushael Lamech) 

(wife Lamech Ada) 

(son Ada Jabal) 

(son Ada Jubal) 


请 构造 出 一 些 规则 ， 如 “如 果 S 是 F 的 儿子 ， 而 且 F 是 G 的 儿子 ， 那 么 S 就 是 G 的 孙子 ，“ 如 果 W 
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是 M 的 妻子 , 而 且 S 是 W 的 儿子 , 那么 S 也 是 M 的 儿子 ”( 这 些 在 圣经 时 代 可 能 比 在 今天 更 正确 ) , 
以 便 使 查询 系统 能 够 找到 Cain 的 孙子 ，Lamech 的 儿子 ，Methushael 的 孙子 。( 参 见 练 习 4.69 有 
关 能 推导 出 一 些 更 复杂 关系 的 规则 。) 


4.4.2 查询 系统 如 何 工作 


在 4.4.4 节 里 ， 我 们 将 给 出 一 个 查询 解释 器 的 实现 ， 它 由 一 组 过 程 组 成 。 本 节 要 给 出 一 个 
概述 ， 解 释 这 一 系统 中 与 底层 实现 细节 无 关 的 一 般 性 结构 。 在 描述 了 这 一 解释 器 的 实现 情况 
之 后 ， 我 们 就 能 达到 一 个 位 置 ， 在 那里 我 们 已 经 可 以 理解 这 种 解释 器 的 局 限 性 ， 以 及 查询 语 
言 的 逻辑 运算 与 数理 逻辑 中 的 运算 之 间 的 一 些微 妙 差 异 。 

事情 很 明显 ， 查 询 求 值 器 必须 执行 某 种 搜索 ， 以 便 将 有 关 的 查询 与 数据 库 里 的 事实 和 规 
则 做 匹配 。 完 成 此 事 的 一 种 方式 是 采用 4.3 节 的 amb 求 值 器 ， 将 查询 系统 实现 为 一 个 非 确定 性 
的 程序 ( 见 练习 4.78)。 另 一 可 能 性 是 借助 于 流 ， 去 设法 控制 搜索 。 这 里 将 要 考虑 的 实现 采用 
的 是 第 二 种 方式 。 

这 一 查询 系统 的 组 织 结构 围绕 着 两 个 核心 操作 ， 它 们 分 别称 为 模式 匹配 和 合 一 。 我 们 首 
先 描述 模式 匹配 ， 并 给 出 有 关 解 释 ， 说 明 怎 样 让 这 一 操作 与 基于 框架 的 流 组 织 起 的 信息 一 起 
工作 ， 使 我 们 能 实现 简单 查询 和 复合 查询 。 而 后 我 们 再 解释 合 一 操作 ， 它 是 模式 匹配 的 推广 ， 
是 实现 规则 所 需要 的 东西 。 最 后 还 要 说 明 如 何 通过 一 个 对 表达 式 进行 分 类 的 过 程 ， 将 整个 查 
询 解 释 器 组 合 起 来 ， 类 似 于 4.1 节 里 描述 的 解释 器 中 eval 对 表达 式 分 类 所 采用 的 方式 。 

模式 匹配 

一 个 模式 匹配 器 是 一 个 程序 ， 它 检查 数据 项 是 否 符合 一 个 给 定 的 模式 。 举 例 来 说 ， 数 据 
# ((a b)c (a b)) 与 模式 (?x c ?x) 匹配 ， 其 中 的 模式 变量 ?x 约束 于 (a b)。 同 一 
个 数据 表 也 与 模式 匹配 (?x Py ?z), 其 中 ?x 和 ?z 都 约束 到 (a b)，?y 约 束 到 c。 这 一 数 
据 也 与 模式 ((?x Py) c (?x ?y)) 匹配 ， 其 中 的 ?x 约束 到 a 而 ?y 约 束 到 b。 然 而 ， 这 一 数 
据 却 不 与 模式 (?x a ?y) 匹配 ， 因 为 这 个 模式 描述 的 表 中 的 第 二 个 元 素 必 须 是 符号 a。 

这 个 查询 系统 所 用 的 模式 匹配 器 以 一 个 模式 、 一 个 数据 和 一 个 框架 作为 输入 ， 该 框架 描 
述 了 一 些 模式 变量 的 约束 。 匹 配器 检查 该 数据 是 否 以 某 种 方式 与 模式 匹配 ， 而 这 种 方式 又 是 
与 框架 里 已 有 的 约束 相 容 的 。 如 果 确 实 如 此 ， 匹 配器 就 返回 原来 框架 的 一 个 扩充 ， 其 中 加 入 
了 由 当前 匹配 确定 的 所 有 新 约束 。 如 果 不 能 匹配 ， 它 就 指出 该 匹配 失败 。 

举例 说 ， 如 果 给 了 一 个 空 框架 ， 要 求 用 模式 (?x ?y ?x) 去 匹配 (a b a)， 匹 配器 将 
返回 一 个 框架 ， 其 中 描述 的 是 ?x 被 约束 到 a 而 ?Y 约 束 到 b。 如 果 用 同一 模式 、 同 一 数据 和 一 个 
包含 将 ?y 约 束 到 的 a 框 架 试 验 这 一 匹配 ， 那 么 匹配 就 会 失败 。 试 验 同一 个 匹配 ， 用 同一 模式 、 
同一 数据 和 一 个 包含 将 ?y 约 束 到 的 b 框 架 ， 返回 的 是 给 定 框 架 扩充 了 ?x 到 a 的 约束 。 

这 个 模式 匹配 器 提供 了 处 理 不 涉及 规则 的 简单 查询 所 需 的 所 有 机 制 。 例 如 ， 在 处 理 下 面 
的 查询 时 

(job ?x (computer programmer)) 

我 们 需要 对 于 一 个 空 初始 框架 ， 扫 描 上 面 数据 库 里 的 所 有 断言 ， 选 出 其 中 与 模式 相 匹 配 的 断 
言 。 对 于 每 一 个 匹配 ， 都 要 用 这 个 匹配 所 返回 的 框架 里 给 ?x 的 值 去 实例 化 这 个 模式 。 
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框架 的 流 

用 模式 去 检查 框架 的 工作 被 组 织 为 一 种 对 流 的 使 用 。 给 定 了 一 个 框架 ， 匹 配 过 程 将 一 个 
个 地 扫描 数据 库 里 的 条 目 。 对 于 每 个 数据 库 条 目 ， 匹 配器 或 者 产生 出 一 个 指明 匹配 失败 的 特 
殊 符 号 ， 或 者 给 出 相应 框架 的 一 个 扩充 。 对 所 有 数据 库 条 目的 匹配 结果 被 收集 到 一 起 ， 形 成 
一 个 流 ， 这 个 流 被 送 入 一 个 过 滤器 ， 删 除 其 中 所 有 的 失败 信息 。 这 样 做 的 结果 就 得 到 了 男 一 
个 流 ， 其 中 包含 着 所 有 满足 条 件 的 框架 ,它们 都 是 基于 原来 的 框架 ， 由 于 与 数据 库 里 某 些 断 
言 相 匹 配 而 扩充 后 得 到 的 ””。 

在 我 们 的 系统 里 ， 一 个 查询 以 一 个 框架 流 作为 输入 。 它 将 针对 这 一 流 中 的 每 个 框架 执行 
上 述 匹 配 操作 ， 如 图 4-4 所 示 。 也 就 是 说 ， 对 于 输入 流 中 的 每 一 个 框架 ， 这 一 查询 都 会 产生 出 
一 个 新 的 流 ， 其 中 包含 了 给 定 框架 的 所 有 通过 与 数据 库 里 断言 的 匹配 而 形成 的 扩充 。 所 有 这 
些 流 被 组 合 为 一 个 规模 很 大 的 流 ， 其 中 包含 了 输入 流 中 每 个 框架 的 所 有 可 能 扩充 。 这 个 流 就 
是 给 定 查 询 的 输出 。 


框架 的 输出 流 


输入 的 框架 流 带 有 可 能 的 扩充 


ER 








来 自 数 据 库 的 断言 流 
图 4-4 一 个 查询 处 理 一 个 框架 的 流 


为 了 回答 一 个 简单 查询 ， 我 们 用 的 是 输入 流 里 只 包含 一 个 空 框架 的 查询 。 这 样 得 到 的 输 
出 流 里 包含 着 这 一 空 框架 的 所 有 扩充 (也 就 是 说 ， 对 查询 的 所 有 回答 )。 这 个 输出 流 又 被 用 于 
生成 男 一 个 流 ， 在 这 个 流 里 出 现 的 都 是 初始 查询 模式 的 副本 ， 其 中 的 变量 用 框架 流 里 各 个 框 
架 做 了 实例 化 。 这 就 是 最 后 需要 打印 的 结果 的 流 。 

复合 查询 

在 这 一 框架 流 实 现 中 ， 真 正 优 美的 地 方 在 于 其 中 对 复合 查询 的 处 理 方 式 。 在 对 于 复合 查 
询 的 处 理 中 ， 我 们 利用 了 这 一 匹配 器 带 着 一 个 特定 框架 去 探查 匹配 的 能 力 。 举 例 来 说 ， 为 了 
处 理 两 个 查询 的 and， 例 如 


(and (can-do-job ?x (computer programmer trainee) ) 


(job ?person ?x) ) 
( 非 形式 地 说 ， 就 是 “ 找 出 所 有 的 人 ， 他 们 都 能 做 计算 机 实习 程序 员 的 工作 ”)， 我 们 首先 找到 
所 有 与 下 面 模式 相 匹配 的 条 目 : 


27) 一 般 而 言 ， 匹 配 是 一 种 代价 高 昂 的 工作 ， 因 此 我 们 希望 避免 将 完整 的 匹配 器 应 用 于 数据 库 里 的 每 一 个 元 素 。 
通常 可 以 通过 将 这 个 过 程 分 解 为 快速 的 粗略 匹配 和 最 终 匹 配 而 达到 加 速 的 目的 。 其 中 的 粗略 匹配 过 恋 数据 库 ， 
为 最 终 匹 配 产生 出 很 小 的 一 组 候选 。 我 们 也 可 以 仔细 安排 这 个 数据 库 ， 使 得 粗略 匹配 的 工作 能 够 在 数据 库 构 
造 的 过 程 中 完成 ， 而 不 是 等 到 需要 找 出 候选 的 时 候 再 做 。 这 称 为 数据 库 的 索引 。 人 们 为 创建 数据 库 索 引 模式 
提出 了 大 量 的 技术 。 在 4.4.4 节 描述 的 实现 中 包含 了 支持 这 类 优化 的 一 些 简单 的 东西 。 
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(can-do-job ?x (computer programmer trainee) ) 


这 就 产生 出 一 个 框架 流 ， 其 中 的 每 个 框架 里 都 包含 了 一 个 对 ?x 的 约束 。 随 后 ， 我 们 要 对 这 个 
流 里 的 每 个 框架 ， 以 某 种 方式 去 找 与 下 面 模式 相 匹配 的 所 有 条 目 : 


(job ?person ?x) 


这 些 条 目 都 需要 与 已 经 给 定 的 ?x 的 约束 相 容 。 每 个 这 种 匹配 将 产生 出 一 个 框架 ， 其 中 包含 了 
对 ?x 和 ?person 的 约束 。 两 个 查询 的 and 可 以 看 作 是 两 个 成 分 查询 的 一 个 序列 组 合 ， 如 图 4-5 
所 示 。 送 给 第 一 个 查询 过 滤器 的 所 有 框架 经 过 过 滤 后 ， 再 进一步 被 第 二 个 查询 扩充 。 


(and A B) 


输入 的 框架 流 输出 的 框架 流 





数据 库 
图 4-5 两 个 查询 的 and 组 合 由 对 序列 中 框架 流 的 操作 生成 


图 4-6 显 示 的 是 采用 类 似 方式 计算 两 个 查询 的 or 的 情况 ， 可 以 将 这 看 作 是 两 个 成 分 查询 的 
并 行 组 合 。 两 个 结果 流 被 归并 到 一 起 ， 产 生出 最 后 的 输出 流 。 






(or A B) 


输出 的 框架 流 





输入 的 框架 流 


数据 库 
图 4-6 两 个 查询 的 or 组 合 ， 产 生 方 式 是 并 行 地 在 两 个 流 上 操作 ， 然 后 归并 结果 流 


即使 是 从 这 种 高 层 描述 里 ， 我 们 也 可 以 明显 看 出 ， 对 复合 操作 的 处 理 将 会 很 慢 。 举 例 说 ， 
因为 在 查询 中 对 每 一 个 框架 都 可 能 产生 出 多 个 框架 ， 而 在 and 里 的 每 个 查询 都 需要 从 前 面 查 
询 得 到 自己 的 输入 框架 流 ， 因 此 ， 在 最 坏 情 况 下 ， 一 个 and 查 询 工 作 中 必须 执行 的 匹配 次 数 ， 
就 是 其 中 的 查询 个 数 的 指数 函数 ( 见 练习 4.76) ”。 虽 然 只 处 理 简 单 查 询 的 系统 相当 实用 ， 处 
理 复 杂 查 询 还 是 非常 困难 的 ””。 


?但 是 这 种 指数 爆炸 在 and 查 询 中 并 不 常见 ， 因 为 一 般 来 说 ， 条 件 的 增加 趋向 于 削减 框架 的 数量 ， 而 不 是 扩张 
所 产生 的 框架 数量 。 
2 存在 着 大 量 关 于 数据 库 管理 系统 的 文献 ， 讨 论 如 何 有 效 地 处 理 复杂 查询 。 
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从 框架 流 的 观点 看 ， 某 个 查询 的 not 就 像 是 一 个 过 滤器 ， 它 要 求 删除 所 有 满足 这 一 查询 
的 框架 。 举 个 例子 ， 给 了 模式 : 

(not (job ?x (computer programmer))) 
对 输入 流 里 的 每 个 框架 ,我 们 要 试 着 去 产生 出 所 有 不 满足 (job ?x (computer 
programmer)) 的 扩充 框架 。 为 此 ， 就 需要 从 输入 流 里 删除 所 有 存在 着 这 种 扩充 的 框架 。 这 
样 就 得 到 了 一 个 流 ， 它 里 面 只 包含 了 那些 对 ?x 的 约束 不 能 满足 (job ?x (computer 
programmer)) 的 框架 。 例 如 ， 在 处 理 下 面 查询 时 : 


(and (supervisor ?x ?y) 


(not (job ?x (computer programmer)))) 


第 一 个 子 句 将 产生 出 一 批 带 有 ?x 和 ?y 的 约束 的 框架 ， 而 后 not 子 句 将 过 滤 它 们 ， 删 除 其 中 所 
有 对 于 ?x 的 约束 满足 限制 条 件 “?x 是 程序 员 ” 的 那些 框架 *”。 

这 里 也 把 特殊 形式 1isp-value 实 现 为 框架 流 上 的 一 个 过 滤器 。 我 们 将 用 流 里 的 各 个 框 
架 去 实例 化 模式 里 的 变量 ， 然 后 对 得 到 的 实例 化 结果 应 用 给 定 的 Lisp 谓 词 ， 在 谓词 得 到 假 时 
从 流 中 删 去 相应 的 框架 。 


= 
A 


为 了 处 理 查 询 语言 里 的 规则 ， 我 们 必须 能 找 出 所 有 这 样 的 规则 ， 甚 结论 部 分 与 给 定 的 查 
询 模式 匹配 。 规 则 的 结论 很 像 断言 ， 但 是 它们 也 可 以 包含 变量 。 为 了 处 理 这 种 情况 ， 我 们 就 
需要 模式 匹配 的 一 种 推广 一 一 称 为 合 一 ， 其 中 的 “模式 ”和 “数据 ”都 可 以 包含 变量 。 

合 一 器 取 两 个 都 可 以 包含 常量 和 变量 的 模式 为 参数 ， 设 法 去 确定 能 否 找到 对 其 中 变量 的 
某 种 赋值 ， 使 两 个 模式 相等 。 如 果 能 够 找到 ， 它 就 返回 包含 着 有 关 约 束 的 框架 。 举 例 说 ， 对 
(?x a ?y) 和 (?y ?z a) 的 合 一 将 产生 出 一 个 框架 ， 其 中 的 ?x、?y 和 ?z 都 约束 到 a。 另 
一 方面 , 对 (?x ?y a) 和 (2x b ?y) 的 合 一 则 会 失败 ， 因 为 在 这 里 对 ?y 做 任何 赋值 ， 
都 不 能 使 两 个 模式 变 得 相同 (根据 这 两 个 模式 里 的 第 二 个 元 素 ，?y 应 该 是 pb， 然而 根据 它们 
的 第 三 个 元 素 ，?y 又 应 该 是 a)。 这 个 查询 系统 里 的 合 一 器 与 模式 匹配 器 一 样 ， 它 也 以 一 个 框 
架 作 为 输入 ， 执 行 与 该 框架 相 容 的 合 一 工作 。 

合 一 算法 是 查询 系统 中 最 难 的 部 分 。 对 于 复杂 的 模式 ， 执 行 合 一 似乎 需要 做 推理 。 例 如 ， 
为 了 合 一 (?x ?x) 和 ((a ?y c) (a b ?z)), 该 算法 必须 推断 出 ?x 应 该 是 (a b 
c)，?y 应 该 是 pb， 而 ?z 应 该 是 c。 我 们 可 能 会 认为 ， 这 一 过 程 就 像 是 求解 模式 成 分 上 的 一 集 
方程 。 一 般 而 言 ， 这 些 确实 是 一 些 联 立方 程 ， 求 解 它们 可 能 需要 很 复杂 的 操作 5。 例如 ， 对 
(?x ?x) 和 ((a ?y c) (a b ?z)) 的 合 一 可 以 看 作 是 描述 了 如 下 的 联 立 方程 : 


?x = (a ?y c} 
2x = Kab 22) 
这 些 方 程 缠 含 着 : 
(a @y' c) = Cab 23) 
而 它 又 蕴含 着 


a= a ?y = by ¢ = 2 


六 在 not 的 这 种 过 滤器 实现 和 数理 逻辑 中 not 的 常规 意义 之 间 有 一 点 微妙 差异 ， 见 4.4.3 节 。 
S 在 单 边 的 模式 匹配 里 ， 包 含 模式 变量 的 所 有 方程 都 很 明显 ， 并 都 已 将 未 知 量 (模式 变量 ) 解 出 。 
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因此 就 有 


2x = (a. Be) 


在 一 次 成 功 的 模式 匹配 里 ， 所 有 模式 变量 都 将 得 到 约束 ， 而 且 给 它们 的 约束 值 里 也 只 包 
含 常量 。 对 于 我 们 至 今 已 看 到 的 那些 合 一 实例 ， 情 况 也 是 如 此 。 然 而 ， 一般 而 言 ， 一 个 成 功 
的 合 一 也 可 能 并 没有 完全 确定 所 有 变量 的 值 ， 有 些 变 量 还 会 是 未 约束 的 ， 另 一 些 也 可 能 约束 
到 包含 着 变量 的 值 。 

现在 考虑 (?x a) 和 ((b ?y) ?z) 的 合 一 。 我 们 可 以 推导 出 ?x= (b ?y) ME 
a=?z, 但 是 却 无 法 对 ?x 和 ?y 做 进一步 的 求解 了 。 这 个 合 一 并 没有 失败 ， 因 为 通过 对 ?x 和 
?y 的 赋值 ， 确 实 能 把 两 个 模式 弄 成 完全 一 样 的 。 由 于 在 这 个 匹配 里 对 于 ?y 可 取 的 值 并 没有 任 
何 限 制 ， 因 此 框架 里 就 不 会 存在 对 于 ?y 的 约束 。 另 一 方面 ， 这 个 匹配 中 确实 限制 了 ?x 的 值 ， 
无 论 ?y 取 什么 值 ，?x 都 必须 是 (b ?y)。 因 此 ， 从 ?x 到 模式 (b ey) 的 约束 就 会 被 放 入 框 
RE, 如果 后 来 ?2y 的 值 被 确定 并 加 入 了 框架 (无 论 是 通过 某 个 与 此 框架 相 容 的 匹配 还 是 合 一 )， 
前 面 对 ?x 的 约束 也 都 会 引用 那个 值 ”75。 


规则 的 应 用 
对 于 从 规则 出 发 的 推理 而 言 ， 合 一 是 这 一 查询 系统 里 最 关键 的 部 件 。 为 了 看 清楚 这 件 事 
情 应 该 怎样 做 ,现在 考虑 一 个 涉及 规则 应 用 的 查询 的 处 理 过 程 。 例 如 : 


(lives-near ?x (Hacker Alyssa P)) 


为 了 处 理 这 一 查询 ， 我 们 首先 需要 用 上 面 描述 的 常规 模式 匹配 过 程 ， 去 看 数据 库 里 是 否 存在 
任何 与 这 一 模式 相 匹配 的 断言 (对 于 目前 这 个 情况 ,我们 什么 也 找 不 到 。 因 为 在 数据 库 里 根 
本 就 没有 有 关 谁 与 谁 住 得 很 近 的 断言 )。 下 一 步 就 是 设法 用 查询 模式 与 每 条 规则 的 结论 去 做 合 
一 。 这 时 我 们 发 现 ， 该 模式 可 以 与 下 面 规则 的 结论 合 一 : 
(rule (lives-near ?person-1 ?person-2) 
(and (address ?person-1 (?town . ?rest-1)) 
(address ?person-2 (?town . ?rest-2)) 


(not (same ?person-1 ?person-2))) ) 


结果 得 到 了 一 个 框架 ， 其 中 描述 的 是 ?person-2 约 束 到 (Hacker Alyssa P)， 而 ?x 应 该 
约束 到 ?person-1 (应 该 与 其 有 相同 的 值 )。 现 在 我 们 就 需要 相对 于 这 一 框架 ， 去 求 值 由 这 
一 规则 的 体 给 定 的 复合 查询 。 成 功 的 匹配 将 扩充 这 个 框架 ， 提 供 对 ?person-1 的 一 个 约束 ， 
并 因此 也 给 定 了 ?x 的 值 。 此 后 我 们 就 可 以 用 这 个 值 去 实例 化 初始 的 查询 模式 了 。 

一 般 而 言 ， 当 查询 求 值 器 试图 在 一 个 描述 了 某 些 模式 变量 匹配 的 框架 里 ， 完 成 对 一 个 查 
询 模式 的 匹配 时 ， 它 将 采用 下 面 方法 去 设法 应 用 一 条 规则 : 

。 将 这 个 查询 与 规则 的 结论 做 合 一 ， 以 便 〈 在 成 功 时 ) 形成 原来 框架 的 一 个 扩充 。 

。 相 对 于 这 样 扩充 后 的 框架 ， 去 求 值 由 规则 体形 成 的 查询 。 

请 注意 ， 这 一 做 法 与 在 一 个 Lisp 的 eval/apply 求 值 器 里 应 用 过 程 的 方法 何其 相似 : 

“。 将 该 过 程 的 形式 参数 约束 于 实际 参数 ， 以 形成 一 个 框架 去 扩充 原来 的 过 程 环境 。 


7 认识 合 一 的 另 一 种 方式 是 认为 它 产生 的 是 一 种 最 广 的 模式 ， 使 这 一 模式 同时 是 两 个 输入 模式 的 专门 化 。 也 就 
是 说 ，(?x a) 和 ((b ?y) ?z) 的 合 一 应 是 ((b ?y) a), 而 (?x a Py) 和 (?y ?z a) 的 合 一 (fk 
上 面 的 讨论 ) 应 是 (a a a)。 对 于 我 们 的 实现 ， 将 合 一 结果 看 成 框架 比 看 成 模式 更 方便 一 些 。 
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* 相对 于 这 样 扩充 后 的 环境 ， 去 求 值 由 过 程 体形 成 的 表达 式 .。 

我 们 不 应 对 这 两 种 求 值 器 之 间 的 相似 性 感到 惊 论 。 这 正 是 因为 过 程 定义 是 Lisp 里 的 抽象 
手段 ， 而 规则 定义 则 是 现在 的 查询 语言 里 的 抽象 手段 。 在 这 两 种 情况 下 ， 我 们 都 需要 剥离 开 
有 关 的 抽象 ， 方 法 就 是 创建 起 适当 的 约束 ， 而 后 相对 于 它们 去 求 值 规则 或 者 过 程 的 体 。 


简单 查询 

在 本 节 前 面部 分 我 们 已 经 看 到 ， 在 没有 规则 的 情况 下 ， 应 该 如 何 求 值 简单 查询 。 现 在 
又 看 到 了 如 何 应 用 规则 ， 因 此 ， 现 在 就 可 以 描述 如 何 通过 使 用 规则 和 断言 去 求 值 简单 查询 
Ta 

给 定 一 个 查询 模式 和 一 个 框架 的 流 之 后 ， 对 输入 流 里 的 每 个 框架 产生 出 两 个 流 : 

* 一 个 扩充 框架 的 流 。 得 到 这 些 框架 的 方式 是 用 模式 匹配 到 ， 拿 给 定 的 模式 与 数据 库 里 的 

所 有 断言 做 匹配 。 

* 男 一 个 扩充 框架 的 流 ， 通 过 应 用 所 有 可 能 的 规则 而 得 到 (用 合 一 器 ) 777. 
将 这 两 个 流连 接 到 一 起 就 产生 出 一 个 新 流 ， 其 中 包含 了 与 原 框架 相 容 的 ， 能 满足 给 定 模 式 
的 所 有 不 同方 式 。 将 这 些 流 (对 于 输入 流 里 的 每 个 框架 有 一 个 流 ) 组 合 为 一 个 大 的 流 ， 其 
中 包含 了 可 以 从 原来 输入 流 中 每 个 框架 扩充 而 得 到 的 ， 与 给 定 模式 相 匹 配 的 所 有 不 同方 式 。 


查询 求 值 器 和 驱动 循环 

如 果 不 看 基础 匹配 操作 的 复杂 性 ， 这 个 系统 的 组 织 方式 很 像 一 般 语言 的 求 值 器 。 在 这 里 ， 
协调 各 种 匹配 操作 的 过 程 称 为 qeval， 它 扮演 着 与 Lisp 求 值 器 中 的 过 程 eval 类 似 的 角色 。 
qevall 以 一 个 查询 和 一 个 框架 流 为 输入 ， 其 输出 是 一 个 框架 的 流 ， 对 应 于 查询 模式 的 所 有 成 
功 匹 配 ， 其 中 的 框架 都 是 输入 流 里 某 些 框架 的 扩充 ， 就 像 图 4-4 所 示 的 那样 。 与 eval 类 似 ， 
qeval 也 根据 表达 式 (查询 ) 的 不 同类 型 对 它们 进行 分 类 ， 并 将 进一步 工作 分 派 到 与 它们 对 
应 的 适当 过 程 。 这 其 中 包括 了 针对 每 类 特殊 形式 (and、or、not 和 1isp-value) 的 过 程 ， 
以 及 一 个 针对 简单 查询 的 过 程 。 

驱动 循环 也 与 本 章 中 其 他 求 值 器 里 的 4river-1oop 过 程 类 似 ， 它 从 终端 读 和 人 查询 ， 对 于 
每 一 个 查询 ， 它 都 用 这 个 查询 和 一 个 仅仅 包含 一 个 空 框架 的 流 调用 qeval。 这 一 调用 将 产生 
出 所 有 可 能 匹配 ( 空 框架 的 所 有 可 能 扩充 ) 的 流 。 对 于 结果 流 里 的 每 个 框架 ， 了 驱动 循环 用 该 
框架 里 找 出 的 值 去 实例 化 原来 的 查询 。 实 例 化 后 得 到 的 流 被 打印 出 来 ””。 

驱动 循环 还 要 检查 特殊 命令 assert!， 它 用 于 指明 一 个 输入 并 不 是 查询 ， 而 是 一 个 断言 
或 者 规则 ， 应 加 入 数据 库 里 。 例 如 : 

(assert! (job (Bitdiddle Ben) (computer wizard))) 

(assert! (rule (wheel ?person) 


(and (supervisor ?middle-manager ?person) 


(supervisor ?x ?middle-manager)))) 


”由 于 合 一 是 匹配 的 推广 ， 我 们 完全 可 以 简化 这 个 过 程 ， 使 用 合 一 器 去 产生 这 两 个 流 。 当 然 ， 用 简单 的 匹配 器 
处 理 简 单 的 情况 ， 也 说 明了 匹配 (与 一 般 性 的 合 一 相对 应 ) 本 身 的 也 可 能 有 用 。 

m 我们 在 这 里 采用 框架 的 流 (而 没有 用 表 )， 原 因 是 ， 在 递归 地 应 用 规则 时 ， 完 全 有 可 能 产生 出 无 穷 多 个 满足 
查询 的 值 。 流 中 所 强 含 的 延 时 求 值 在 这 里 是 至 关 重 要 的 。 系 统 将 一 个 接 一 个 地 打印 出 结果 ， 无 论 实际 结果 究 
竟 是 有 穷 多 个 还 是 无 穷 多 个 。 
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443 逻辑 程序 设计 是 数理 逻辑 吗 


初 看 起 来 ， 用 在 这 一 查询 语言 里 的 各 种 组 合 手 段 似 乎 等同 于 数理 逻辑 里 的 操作 and、or 
和 not ， 而 查询 语言 规则 的 应 用 ， 事 实 上 就 是 通过 正当 的 推理 方法 完成 的 ”。 查 询 语言 与 数 
理 逻 辑 之 间 的 这 种 等 同性 并 非 真 的 正确 ， 因 为 这 一 查询 语言 提供 了 一 种 控制 结构 ， 它 采用 过 
程 性 的 方式 来 解释 逻辑 语句 。 我 们 常常 可 以 由 这 种 控制 结构 中 获 益 。 例 如 ， 为 了 找 出 程序 员 
的 所 有 上 司 ， 我 们 可 以 以 如 下 的 两 种 逻辑 上 完全 等 价 的 形式 构造 出 查询 : 

(and (job ?x (computer programmer)) 


(supervisor ?x ?y)) 
或 者 


(and (supervisor ?x ?y) 


(job ?x (computer programmer) ) ) 


如 果 这 一 公司 里 的 上 司 比 程序 员 更 多 (实际 情况 确实 往往 如 此 )， 采 用 第 一 种 形式 就 比 采 用 第 
二 种 形式 更 好 ， 因 为 对 于 由 and 的 第 一 个 子 句 产生 出 的 每 个 中 间 结 果 (框架 )， 我 们 都 需要 扫 
描 整 个 数据 库 。 

逻辑 程序 设计 的 目标 是 为 程序 员 提 供 一 种 技术 ， 它 能 将 计算 问题 分 解 为 两 个 相互 分 离 的 
问题 ;“ 什 么 ”需要 计算 , 以及“ 如何” 进行 这 一 计算 。 达 到 这 一 目标 的 方式 就 是 ， 选 出 数理 
逻辑 中 语句 的 一 个 子 集 ， 它 的 功能 足够 强大 ， 足 以 描述 所 有 可 能 希望 去 计算 的 问题 ， 然 而 又 
足够 的 弱 ， 使 我 们 能 有 一 种 过 程 性 的 解释 。 这 一 做 法 的 意图 是 ， 一 方面 ， 在 逻辑 程序 设计 语 
言 里 刻画 的 程序 应 该 是 足够 有 效 的 程序 ， 能 用 计算 机 去 执行 。 控 制 (“如何 ” 去 计算 ) 将 受到 
这 一 语言 所 采用 的 求 值 顺序 的 影响 。 我 们 应 该 设法 安排 好 子 句 的 顺序 和 每 个 子 句 里 各 个 子 目 
标的 顺序 ， 使 得 计算 一 定 能 以 一 种 正确 而 又 高 效 的 方式 完成 。 在 此 同时 ， 我 们 还 应 该 能 看 到 
计算 的 结果 (“什么 ”需要 计算 )， 它 们 应 该 是 这 些 逻 辑 法 则 的 简单 结论 。 

我 们 的 查询 语言 ， 可 以 看 作 只 不 过 是 数理 逻辑 的 一 个 可 以 用 过 程 方式 去 解释 的 子 集 。 一 
个 断言 表示 了 一 个 简单 事实 (一 个 原子 命题 ) ， 一 条 规则 表示 一 个 蕴含 ， 所 有 使 规则 的 体 成 立 
的 情况 ， 也 都 能 使 规则 的 结论 成 立 。 规 则 有 一 种 很 自然 的 过 程 性 解释 : 为 了 得 到 一 条 规则 的 
结论 ， 请 设法 得 到 这 一 规则 的 体 。 这 样 ， 规 则 也 就 描述 了 计算 。 当 然 ， 由 于 规则 也 可 以 看 作 
是 数理 逻辑 的 语句 ， 我 们 也 可 以 通过 完全 在 数理 逻辑 里 工作 得 到 同样 的 结果 ， 以 此 来 确认 由 
逻辑 程序 建立 起 来 的 任何 “推理 ”都 是 正确 的 ”™。 


279 一 种 特定 推理 方法 的 正当 性 并 不 是 一 个 简单 的 论断 。 人 们 必须 证 明 ， 从 真 的 前 提出 发 只 能 推导 出 真 的 结论 。 
通过 规则 应 用 表示 的 推理 方法 称 为 假 言 推理 (modus ponens) ， 这 是 一 种 人 们 熟知 的 推理 方法 ， 它 说 ， 如 果 4 
为 真 而 且 A 蔓 含 B 也 为 真 ， 那 么 我 们 就 可 以 做 出 结论 说 8B 是 真 。 

280 我 们 必须 为 这 种 说 法 加 上 一 个 限制 ， 约 定 在 说 某 个 逻辑 程序 建立 了 “推理 ”的 问题 时 ， 我 们 总 假定 了 计算 终 
止 。 不 幸 的 是 ， 对 下 面 将 要 给 出 的 这 个 查询 语言 的 实现 而 言 ， 即 使 这 样 限制 之 后 的 语句 也 不 对 (对 于 Prolog 
的 程序 和 当前 大 部 分 其 他 的 逻辑 程序 设计 语言 ， 这 种 说 法 也 同样 不 对 )， 原 因 是 我 们 在 这 里 对 not 和 1isp- 
value 的 使 用 。 正 如 我 们 将 在 下 面 说 明 的 ， 在 这 个 查询 语言 里 的 not 的 实现 ， 并 不 总 与 数理 逻辑 里 的 not 一 
致 ， 而 lisp-value 又 引进 了 进一步 的 复杂 情况 。 我 们 可 以 通过 简单 地 从 语言 里 删除 not 和 1isp-value， 
并 约定 只 采用 简单 查询 来 写 程序 ， 这 样 就 可 以 实现 一 种 与 数理 逻辑 相 容 的 语言 。 然 而 ， 如 果真 的 那样 做 ， 就 
会 极 大 地 限制 了 语言 的 表达 能 力 。 逻 辑 程序 设计 研究 中 特别 关注 的 一 个 问题 就 是 找到 一 些 方式 ,设法 尽 可 能 
与 数理 逻辑 更 相 容 ， 而 同时 又 不 会 过 多 牺牲 语言 的 表达 能 力 。 
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无 穷 循环 

对 于 逻辑 程序 做 过 程 性 解释 存在 一 个 推论 ， 那 就 是 在 解决 某 些 问题 时 ， 我 们 有 可 能 构造 
出 极端 低 效 的 程序 。 这 种 低 效 的 一 个 极端 情况 就 是 系统 在 做 推导 时 陷入 了 无 穷 循 环 。 作 为 一 
个 简单 的 例子 ， 假 定 我 们 在 设计 某 个 有 关 著 名 婚姻 的 数据 库 时 ， 加 入 了 


(assert! (married Minnie Mickey)) 


如 果 提 问 


(married Mickey ?who) 
那么 我 们 将 无 法 得 到 答复 ， 因 为 系统 并 不 知道 如 果 A 与 B 结 婚 ， 那么 B 也 与 A 结婚 。 为 此 我 们 
加 入 下 面 规则 : 


(assert! (rule (married ?x ?y) 


(married ?y ?x))) 


后 再 次 查询 
(married Mickey ?who) 
不 幸 的 是 ， 这 就 导致 系统 进入 了 无 穷 循环 。 因 为 : 
。 系 统 发 现 married 规 则 可 以 应 用 ， 即 规则 的 结论 《married ?x ?y) 成 功 地 与 查询 
模式 (married Mickey ?who) 匹配 ， 产 生出 一 个 框架 ， 其 中 ?x 约束 到 Mickey 
而 ?y 约 束 到 ?who。 这 样 ， 解 释 器 就 会 继续 做 下 去 ， 在 这 一 框架 里 求 值 规则 的 体 
(married ?y ?x) 一 一 从 效果 上 看 ， 也 就 是 处 理 查 询 (married ?who Mickey), 
。 现 在 可 以 直接 从 数据 库 里 得 到 了 一 个 断言 : (married Minnie Mickey), 
。 由 于 married 规 则 仍然 可 以 应 用 ， 所 以 解释 器 又 会 去 求 值 规则 的 体 ， 这 次 它 等 价 于 
(married Mickey ?who)。 
现在 系统 就 进入 了 一 个 无 穷 循环 。 在 实际 中 所 用 的 系统 能 否 在 陷入 循环 之 前 找 出 简单 回答 
(married Minnie Mickey)， 还 要 依赖 于 这 个 系统 检查 数据 库 中 条 目的 实现 细节 。 这 是 
一 个 非常 简单 的 可 能 出 现 这 种 循环 的 实例 。 一 组 相互 有 关 的 规则 有 可 能 导致 难以 预料 的 循环 ， 
而 这 种 循环 的 出 现 又 可 能 依赖 于 各 个 子 句 在 一 个 and 里 出 现 的 顺序 (参见 练习 4.64) ， 或 者 依 
赖 于 系统 处 理 查询 时 的 顺序 方面 的 底层 细节 天 。 


与 not 有 关 的 问题 
这 一 系统 的 另 一 个 诡异 之 处 与 not 有 关 。 对 于 4.4.1 节 的 数据 库 ， 考 虑 下 面 两 个 查询 : 


(and (supervisor ?x ?y) 


(not (job ?x (computer programmer) ) ) ) 


(and (not (job ?x (computer programmer) ) ) 


281 这 并 不 是 逻辑 的 问题 ， 而 是 由 我 们 的 解释 器 为 逻辑 提供 的 过 程 性 解释 的 问题 。 我 们 也 可 以 写 出 一 个 解释 器 ， 
使 之 不 会 在 这 里 陷入 循环 。 璧 如 说 ， 我 们 可 以 枚 举 出 从 已 有 断言 和 规则 出 发 可 以 导出 的 所 有 证 明 ， 以 宽度 优 
先 而 不 是 深度 优先 的 顺序 。 当 然 ， 这 样 的 系统 就 很 难 由 程序 中 的 推导 顺序 获得 任何 利益 了 。deKleer，et al. 
1977 描 述 了 试图 将 复杂 控制 构筑 到 这 种 程序 里 的 一 次 尝试 。 另 一 种 不 会 带 来 如 此 严重 控制 问题 的 技术 是 将 特 
殊 知 识 放 进去 ， 例 如 放 入 能 够 检查 某 些 类 特定 循环 的 检测 功能 (练习 4.67)。 但 是 ， 不 可 能 存在 一 种 可 靠 的 一 
般 性 模式 ， 能 够 防止 系统 在 执行 推导 时 落 入 无 穷 循 环 的 陷阱 。 请 设想 一 种 具有 如 下 形式 的 恶魔 规则 :“ 要 证 
明 P(x) 为 真 ， 请 证 明 P((x)) 为 真 "， 对 某 个 适当 选 出 的 函数 fo 
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(supervisor ?x ?y)) 


这 两 个 查询 却 不 会 产生 出 同样 的 结果 。 第 一 个 查询 在 开始 时 找 出 了 数据 库 里 所 有 与 (super - 
visor ?x ?y) 匹配 的 条 目 ， 而 后 从 得 到 的 框架 里 删除 了 所 有 其 中 的 ?x 满足 (job ?x 
(computer programmer)) 的 条 目 。 第 二 个 查询 在 开始 时 从 输入 框架 了 删除 所 有 满足 
(job ?x (computer programmer)) 的 框架 。 因 为 一 般 来 说 数据 库 里 存在 这 种 形式 的 条 
目 ， 所 以 这 个 not 子 句 将 过 滤 掉 空 框架 ， 返回 一 个 空 的 框架 流 。 这 样 ， 整 个 复合 查询 也 将 得 
到 空 的 流 。 

麻烦 出 自我 们 对 not 的 解释 ， 实 际 上 ， 这 一 解释 是 希望 作为 一 个 针对 变量 值 的 过 滤器 。 如 
果 一 个 not 子 句 被 作用 在 一 个 框架 上 ， 其 中 存在 着 一 些 还 没有 约束 的 变量 (例如 上 面 例子 里 
的 ?x)， 这 个 系统 就 会 产生 我 们 不 希望 出 现 的 结果 。 类 似 问 题 也 会 出 现在 使 用 1isp-value 的 
时 候 一 一 如 果 那 个 Lisp 谓 词 的 某 些 参数 还 设 有 约束 ， 它 也 不 可 能 正确 工作 ， 见 练习 4.77。 

这 个 查询 语言 里 的 not 还 在 另 一 个 更 严重 的 方面 与 数理 逻辑 里 的 not 不 同 。 在 逻辑 里 ,我 
们 将 语句 “ 非 P” 解 释 为 P 不 真 。 但 是 ， 在 这 个 查询 系统 里 ,“ 非 P” 则 意味 着 P 不 能 由 数据 库 
里 的 知识 推导 出 来 。 举 例 来 说 ， 有 了 4.4.1 市 的 人 事 数 据 库 ， 这 一 系统 可 以 推导 出 所 有 各 种 各 
样 的 not 语 句 ， 例 如 Ben Bitdiddle 不 喜欢 纂 球 ， 外 面 没有 下 两 ， 以 及 2 二 2 不 等 于 。”” 换 句 话 
说 ， 逻 辑 程 序 设 计 语言 里 的 not 反 映 了 一 种 所 谓 的 封闭 世界 假说 ， 它 认为 所 有 有 关 的 知识 都 
已 经 包含 在 所 用 的 数据 库 里 了 ?2 。 

练习 4.64 Louis Reasoner 错 误 地 从 数据 库 里 删除 了 有 关 outranked-by 的 规则 ( 见 4.4.1 
节 )。 在 认识 到 这 一 问题 后 ， 他 很 快 重新 创建 了 这 一 规则 。 不 幸 的 是 ， 他 对 规则 做 了 一 点 小 修 
改 ， 实 际 输入 的 是 下 面 规则 : 


(rule (outranked-by ?staff-person ?boss) 
(or (supervisor ?staff-person ?boss) 
(and (outranked-by ?middle-manager ?boss) 


(supervisor ?staff-person ?middle-manager) ) ) ) 


Louis 刚 刚 把 这 些 信息 输入 系统 ，DeWitt Aull 就 希望 能 找到 谁 的 级 别 高 于 Ben Bitdiddle。 他 发 
出 的 查询 是 : 

(outranked-by (Bitdiddle Ben) ?who) 
系统 在 给 出 回答 之 后 就 陷入 了 无 穷 循 环 。 请 解释 这 是 为 什么 。 

练习 4.65 Cy D. Fect 期 望 有 朝 一 日 能 在 这 个 公司 里 得 到 提拔 ， 因 此 给 出 了 一 个 查询 ， 要 
找 出 这 里 所 有 的 大 人 物 〈 他 用 的 是 4.4.1 节 的 whee1 规 则 ) : 


(wheel ?who) 


使 他 感到 很 吃惊 ， 系 统 的 回复 居然 是 


;;; Query results: 
(wheel (Warbucks Oliver) ) 
(wheel (Bitdiddle Ben) ) 


282 考虑 查询 (not (baseball-fan (Bitdiddle Ben))), A#KM (baseball-fan (Bitdiddle 
Ben)) 不 在 数据 库 里 ， 因 此 空 框架 不 满足 这 个 模式 ， 所 以 它 不 会 从 初始 的 框架 流 中 被 删除 。 查 询 的 结果 就 
是 这 个 空 框架 ， 它 将 被 用 于 实例 化 输入 程序 ， 产生 (not (baseball-fan (Bitdiddle Ben))), 

2 从 论文 Clark (1978) 中 可 以 找到 有 关 这 种 not 处 理 方 式 的 讨论 和 其 正当 性 的 论述 。 
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(wheel (Warbucks Oliver)) 
(wheel (Warbucks Oliver)) 
(wheel (Warbucks Oliver)) 


为 什么 Oliver Warbucks 在 这 里 列 出 了 4 次 ? 


练习 4.66 ”Ben 正 在 对 这 一 查询 系统 进行 推广 ， 以 提供 有 关公 司 的 各 种 统计 。 例 如 ， 为 了 
找 出 所 有 程序 员 的 工资 总 额 ， 人 们 将 可 以 写 : 
(sum ?amount 


(and (job ?x (computer programmer)) 


(salary ?x ?amount))) 

一 般 而 言 ，Ben 的 新 系统 里 允许 下 面 形式 的 表达 式 : 

(accumulation-function <variable> 

<query pattern>) 

其 中 accumulation-function 可 以 是 像 sum、average 或 maximum 一 类 的 东西 。Ben 觉 
得 这 种 扩充 的 实现 应 该 是 小 菜 一 碟 。 他 简单 地 将 查询 模式 送 入 qeval， 这 将 产生 出 一 个 框架 
流 。 而 后 他 就 可 以 把 这 个 流 送 给 一 个 映射 函数 ， 该 函数 从 流 中 每 个 框架 里 提取 出 指定 变量 的 
值 ， 而 后 将 得 到 的 结果 值 的 流 送 入 一 个 累积 函数 。 正 当 Ben 刚 刚 完成 了 这 个 实现 ,希望 去 试验 
它 的 时 候 ，Cy 走 了 过 来 ， 他 还 在 为 练习 4.65 中 whee1 的 查询 结果 感到 疑惑 。 当 Cy 将 系统 的 回 
应 展示 给 Ben 时 ，Ben 忽 然 大 叫 一 声 ,，“ 哎 呀 ， 精 糕 ， 我 的 简单 累积 模式 根本 不 行 ! ” 

Ben 刚 刚 认识 到 什么 ?请 勾画 出 一 种 他 能 利用 以 便 将 事情 从 危难 中 拯救 出 来 的 方法 。 

练习 4.67 ”请 设计 一 种 方式 ， 在 查询 系统 里 安装 一 个 循环 监测 器 ， 以 避免 正文 和 练习 4.64 
里 说 明 的 那些 简单 循环 。 一 般 性 的 想法 是 系统 需要 维护 它 当 前 所 做 推导 链 的 某 种 历史 记录 ， 
如 果 遇 到 了 正在 处 理 之 中 的 某 个 查询 ， 就 不 再 重新 开始 做 它 了 。 请 描述 在 这 一 历史 记录 中 需 
要 包含 哪些 信息 (模式 和 框架 )， 应 该 做 哪些 检查 。 在 学 习 了 4.4.4 市 里 的 查询 系统 实现 之 后 ， 
你 可 能 会 希望 修改 该 系统 ， 加 入 你 的 循环 监测 器 。 


练习 4.68 ”请 定义 一 些 规则 ， 实 现 练习 2.18 的 reverse 操 作 ， 它 返回 一 个 与 所 给 的 表 包 
含 同 样 元 素 的 表 ， 但 其 中 元 素 按 相反 的 顺序 排列 (提示 ， 利 用 append-to-form)。 你 的 规 
则 能 够 回答 (reverse (1 2 3) ?x) 和 (reverse ?x (1 2 3)) 吗 ? 


练习 4.69 请 从 你 在 练习 4.63 中 构造 的 规则 出 发 ， 设 计 出 一 个 规则 , 为 祖 孙 关系 加 入 “ 重 ” 
的 关系 。 这 一 关系 应 该 使 系统 能 推导 出 Irad 是 Adam 的 重 孙 ， 或 者 Jabal 和 Jubal 是 Adam 的 重重 
重重 重 孙 (fim: 表示 有 关 Irad 的 事实 ,例如 ，((great grandson) Adam Irad), Si} 
一 些 规 则 ， 去 确定 是 否 某 个 表 的 最 后 是 符号 grandson。 利 用 它 描述 一 条 规则 ， 使 人 可 以 推 
导出 关系 ((great . ?rel) ?x ?Yy)， 其 中 的 ?re1 是 一 个 以 grandson 结 束 的 表 ) 。 用 一 
些 查询 ， 例 如 ((great grandson) ?g ?ggs) 和 (?relationship Adam Irad) 检 
查 你 的 规则 。 


4.4.4 查询 系统 的 实现 


4.4.2 节 描述 了 这 一 查询 系统 如 何 工作 的 情况 。 现 在 我 们 要 填充 其 中 的 细节 ， 给 出 这 个 系 
统 的 一 个 完整 实现 。 


4.4 EAL Rit 325 


4.4.4.1 驱动 循环 和 实例 化 

这 一 查询 系统 的 驱动 循环 将 反复 读 进 输入 表达 式 。 如 果 表 达 式 是 应 该 加 入 数据 库 的 规则 
或 者 断言 ， 它 就 把 有 关 的 信息 加 进 数 据 库 。 否 则 就 认为 这 是 一 个 查询 ， 它 将 这 个 查询 送 给 求 
值 器 qeval， 同 时 送 去 的 还 有 一 个 初始 的 框架 流 ， 其 中 只 包含 一 个 空 框架 。 求 值 的 结果 是 一 
个 框架 流 ， 根 据 从 数据 库 里 找 出 的 满足 查询 的 变量 值 生成 。 驱 动 循环 使 用 这 些 框架 产生 一 个 
新 流 ， 甚 中 包含 了 所 有 通过 将 原始 查询 里 的 变量 用 上 述 框架 流 提供 的 值 实例 化 后 得 到 的 副本 。 
这 一 最 终 的 流 从 终端 打印 出 来 : 


(define input-prompt ";;; Query input:") 
(define output-prompt ";;; Query results:") 


(define (query-driver-loop) 
(prompt-for-input input-prompt) 
(let ((q (query-syntax-process (read) ))) 

(cond ((assertion-to-be-added? q) 
(add-rule-or-assertion! (add-assertion-body q) ) 
(newline) 

(display "Assertion added to data base.") 
(query-driver-loop) ) 
(else 
(newline) 
(display output-prompt) 
(display-stream 
(stream-map 
(lambda (frame) 
(instantiate q 
frame 
(lambda (v f) 
(contract-question-mark v)))) 
(qeval q (singleton-stream '())))) 
(query-driver-loop))))) 


在 这 里 ， 就 像 在 本 章 里 讨论 的 所 有 求 值 器 里 一 样 ， 我 们 使 用 的 是 查询 语言 表达 式 的 一 种 
抽象 语法 。 表 达 式 语法 的 实现 将 在 4.4.4.7 节 给 出 ， 包 括 谓词 assertion-to-be-added? 和 
选择 函数 add-assertion-body。add-rule-or-assertion! 在 4.4.4.5 节 定义 。 

在 对 一 个 输入 表达 式 进行 任何 处 理 之 前 ， 驱 动 循环 都 以 语法 方式 将 其 变换 到 另 一 种 更 容 
易 有 效 处 理 的 形式 。 其 中 涉及 修改 模式 变量 的 表示 。 在 对 查询 进行 实例 化 时 ， 所 有 仍 未 被 约 
束 的 变量 都 需要 在 打印 之 前 变换 回 原来 的 输入 表示 形式 。 这 些 变 换 由 两 个 过 程 query - 
syntax-process 和 contract-question-mark 完 成 (4.4.4.7 节 )。 

为 了 实例 化 一 个 表达 式 ， 我 们 需要 复制 它 ， 并 用 给 定 框架 里 的 值 取代 这 一 表达 式 里 相应 
的 变量 。 这 些 值 本 身 也 可 能 需要 实例 化 ， 因 为 它们 也 可 能 包含 着 一 些 变量 (例如 ， 作 为 合 一 
的 结果 ， 在 exp 里 的 ?x 被 约束 到 ?y， 而 后 ?y 又 转 而 约 东 到 5)。 如 果 某 个 变量 不 能 实例 化 时 ， 
应 该 执行 的 动作 由 过 程 instantiate 的 另 一 个 参数 给 定 。 

(define (instantiate exp frame unbound-var-handler) 

(define (copy exp) 


(cond ((var? exp) 


(let ((binding (binding-in-frame exp frame) ) ) 
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(if binding 
(copy (binding-value binding) ) 
(unbound-var-handler exp frame) )) ) 
((pair? exp) 


(cons (copy (car exp)) (copy (cdr exp)))) 
(else exp))) 
(copy exp) ) 
对 约束 进行 操作 的 过 程 在 4.4.4.8 节 定义 。 
4.4.4.2 求 值 器 


query-driver-1loop 调 用 过 程 qeval。 该 过 程 是 这 一 查询 的 基本 求 值 器 ， 它 以 一 个 查 
询 和 一 个 框架 的 流 作为 输入 ， 返 回 被 扩充 后 的 框架 的 流 。qeval 采 用 get 和 put 识 别 出 各 种 
特殊 形式 ， 并 完成 数据 导向 的 分 派 ， 就 像 我 们 在 第 2 章 实 现 各 种 通用 型 操作 时 所 做 的 那样 。 任 
何 无 法 识别 为 特殊 形式 的 查询 都 被 假定 是 一 个 简单 查询 ， 由 simple-query 处 理 。 

(define (qeval query frame-stream) 

(let ((qproc (get (type query) ‘qeval))) 
(if qproc 
(qproc (contents query) frame-stream) 


(simple-query query frame-stream) ) ) ) 
type 和 contents 在 4.4.4.7 市 定义 ， 它 们 实现 各 种 特殊 形式 的 抽象 语法 。 


简单 查询 
simple-query 处 理 简 单 查 询 。 它 以 简单 查询 (一 个 模式 ) 和 框架 流 作 为 实际 参数 ， 通 
过 将 查询 与 数据 库 做 匹配 的 方式 扩充 其 中 的 每 个 框架 ， 并 将 由 此 生成 的 所 有 框架 的 流 返回 。 


(define (simple-query query-pattern frame-stream) 
(stream-flatmap 
(lambda (frame) 
(stream-append-delayed 
(find-assertions query-pattern frame) 
(delay (apply-rules query-pattern frame)))) 
frame-stream) ) 


对 于 输入 流 里 的 每 个 框架 ,我 们 都 用 find-assertions (4.4.4.3 节 ) 去 做 模式 与 数据 
库 里 所 有 断言 的 匹配 ， 生 成 出 一 个 扩充 框架 的 流 ， 还 要 用 apply-rules (4.4.4.4 节 ) 去 应 用 
所 有 可 能 的 规则 ， 生 成 出 另 一 个 扩充 框架 的 流 。 这 两 个 流 被 组 合 (用 stream-append- 
dqelayed，4.4.4.6 节 ) 成 一 个 流 ， 表 示 了 满足 给 定 模式 ， 而 且 也 与 开始 框架 相 容 的 所 有 不 同 
方式 。 用 stream-flatmap (4.4.4.6 节 ) 组 合 起 处 理 每 个 输入 框架 而 产生 的 这 种 结果 流 ， 形 
成 一 个 大 的 流 。 它 表示 的 就 是 对 初始 输入 流 里 的 各 个 框架 进行 扩充 ， 产生 出 的 与 给 定 模式 匹 
配 的 所 有 可 能 方式 。 

复合 查询 

and 查 询 的 处 理 方式 如 图 4-5 所 示 ， 由 过 程 conjoin 完 成 。conjoin 以 有 关 的 合 取 项 和 一 
个 框架 流 作 为 实际 参数 ， 返 回 扩充 框架 的 流 。conjoin 首 先 处 理 给 它 的 框架 流 ， 找 出 能 满足 
第 一 个 合 取 项 的 所 有 可 能 的 扩充 框架 形成 的 流 。 而 后 它 就 用 这 个 新 的 框架 流 ， 递归 地 将 
conjoin 应 用 于 这 一 and 查 询 的 剩余 部 分 。 
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(define (conjoin conjuncts frame-stream) 
(if (empty-conjunction? conjuncts) 
frame-stream 
(conjoin (rest-conjuncts conjuncts) 
(qeval (first-conjunct conjuncts) 
frame-stream) ) ) ) 


表达 式 


(put ‘and ’qeval conjoin) 


设置 好 geval ， 使 之 能 在 遇 到 and 形 式 时 间 conjoin 分 派 。 
or 查询 的 处 理 方式 与 此 类 似 ， 如 图 4-6 所 示 。 这 时 先 分 别 计算 出 这 个 oz 中 各 个 析 取 项 的 
输出 流 ， 而 后 用 4.4.4.6 节 里 定义 的 ijnterleave-delayed 过 程 将 它们 归并 起 来 (参见 练习 


4.71 和 练习 4.72)。 


(define (disjoin disjuncts frame-stream) 
(if (empty-disjunction? disjuncts) 
the-empty-stream 
(interleave-delayed 
(qeval (first-disjunct disjuncts) frame-stream) 
(delay (disjoin (rest-disjuncts disjuncts) 
frame-stream) ) ) ) ) 


(put ’or 'qeval disjoin) 
用 于 合 取 和 析 取 的 语法 谓词 和 选择 函数 将 在 4.4.4.7 节 给 出 。 


过 滤器 
not 的 处 理 采 用 4.4.2 节 给 出 了 梗概 的 方式 。 我 们 要 试 着 去 扩充 输入 流 里 的 每 个 框架 ,看 
看 它们 能 否 满足 被 否定 了 的 查询 ， 但 只 把 那些 无 法 扩充 的 框架 包含 到 输出 流 里 。 


(define (negate operands frame-stream) 
(stream-flatmap 
(lambda (frame) 
(if (stream-null? (qeval (negated-query operands) 
(singleton-stream frame) ) ) 
(singleton-stream frame) 
the-empty-stream) ) 


frame-stream) ) 


(put “not ‘geval negate) 
lisp-value 过 滤器 的 情况 与 hot 类似。 这 里 用 流 中 的 每 个 框架 去 实例 化 模式 里 的 变量 ， 
而 后 将 给 定 谓词 应 用 于 得 到 的 实例 。 输 入 流 里 那些 使 谓词 返回 假 的 框架 被 过 滤 掉 。 如 果 遇 到 
未 约束 的 变量 ， 结 果 就 是 一 个 错误 。 
(define (lisp-value call frame-stream) 
(stream-flatmap 
(lambda (frame) 
(i£ (execute 
(instantiate 


call 
frame 
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(lambda (v f) 
(error "Unknown pat var -- LISP-VALUE" v)))) 
(singleton-stream frame) 
the-empty-stream) ) 


frame-stream) ) 
(put *lisp-value ‘qeval lisp-value) 


execute 将 谓词 应 用 于 对 应 的 参数 。 它 必须 求 值 谓 词 表 达 式 ， 以 得 到 应 该 应 用 的 那个 实 
际 过 程 。 然 而 它 却 不 能 去 对 参数 求 值 ， 因 为 它们 已 经 是 实际 参数 了 ， 而 不 是 (Lisp 里 的 ) Hp 
种 需要 通过 求 值 去 产生 实际 参数 的 表达 式 。 请 注意 ，execute 是 利用 基础 Lisp 系 统 里 的 eval 
和 apply 实 现 的 。 

(define (execute exp) 


(apply (eval (predicate exp) user-initial-environment) 
(args exp))) 


特殊 形式 always-true 是 为 了 描述 一 种 总 能 满足 的 查询 , 它 忽略 有 关 的 内 容 (通常 为 空 )， 
并 简单 地 送出 输入 流 里 的 所 有 框架 。always-true 被 用 在 选择 函数 里 (4.4.4.7 市 )， 用 于 作 
为 那些 没有 体 部 分 的 规则 ( 即 那 些 结论 总 能 够 满足 的 规则 ) 的 规则 体 。 

(define (always-true ignore frame-stream) frame-stream) 


(put ‘always-true ‘geval always-true) 
所 有 定义 not 和 1isp-value 的 语法 规则 的 选择 函数 也 将 在 4.4.4.7 节 给 出 。 


4.4.4.3 通过 模式 匹配 找 出 断言 

find-assertions 由 simple-query 调 用 (4.4.4.2 节 )， 它 以 一 个 模式 和 一 个 框架 作 
为 输入 ， 返 回 一 个 框架 的 流 ， 其 中 的 每 个 框架 都 是 由 某 个 给 定 框架 ， 经 过 对 给 定 模 式 与 数据 
库 的 匹配 扩充 而 得 到 的 。 这 个 过 程 用 fetch-assertions (4.4.5 节 ) 得 到 数据 库 里 所 有 断 
言 的 一 个 流 ， 检 查 这 些 断 言 是 否 与 当时 的 模式 和 框架 匹配 。 采 用 fetch-assertions 的 原 
因 是 ， 我 们 常常 能 通过 一 些 简单 测试 删除 掉 来 自 数据 库 的 很 多 条 目 ， 这 里 把 数据 库 作 为 成 功 
检索 的 候选 存储 池 。 如 果 删 去 了 fetch-assertions， 这 个 系统 仍然 能 够 工作 ， 所 采用 的 
将 是 简单 检查 数据 库 中 各 个 断言 的 方式 ， 这 一 做 法 可 能 使 计算 变 得 比较 低 效 ， 因 为 其 中 对 匹 
配器 的 调用 次 数 可 能 会 增加 很 多 。 

(define (find-assertions pattern frame) 

(stream-flatmap (lambda (datum) 


(check-an-assertion datum pattern frame) ) 


(fetch-assertions pattern frame) ) ) 


check-an-assetrtion 以 一 个 模式 、 一 个 数据 对 象 (断言) 和 一 个 框架 作为 参数 。 如 
果 匹 配 成 功 就 返回 包含 着 扩充 框架 的 单元 素 流 ， 匹 配 失败 时 返回 the-empty-stream。 


(define (check-an-assertion assertion query-pat query-frame) 
(let ((match-result 
(pattern-match query-pat assertion query-frame))) 
(if (eq? match-result "failed) 
the-empty-stream 


(singleton-stream match-result)))) 


基本 模式 匹配 器 返回 的 或 者 是 符号 failed， 或 者 是 给 定 框架 的 一 个 扩充 。 这 一 匹配 器 的 基本 
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思想 就 是 对 照 着 模式 检查 数据 ， 一 个 一 个 元 素 地 做 ， 在 此 同时 积累 起 各 个 模式 变量 的 约束 。 
如 果 模 式 与 数据 对 象 相 同 ， 匹 配 成 功 ， 返 回 至 今 已 经 积累 起 的 约束 形成 的 框架 。 否 则 ， 如 果 
模式 是 变量 ， 我 们 就 扩充 当前 框架 ， 将 变量 与 数据 的 约束 加 入 其 中 ， 条 件 是 这 一 约束 与 框架 
里 已 有 的 约束 相 容 。 如 果 模 式 和 数据 都 是 序 对 ， 我 们 就 (递归 地 ) 将 模式 的 car 与 数据 的 car 
匹配 , 产生 出 一 个 框架 , 而 后 在 这 一 框架 上 去 做 模式 的 car 部 分 与 数据 的 car 部 分 的 匹配 工作 。 
如 果 这 些 情况 都 不 可 用 ， 匹 配 就 失败 了 ， 我 们 返回 符号 failed.。 
(define (pattern-match pat dat frame) 
(cond ((eq? frame ‘failed) ‘failed) 
((equal? pat dat) frame) 
((var? pat) (extend-if-consistent pat dat frame) ) 
( (and (pair? pat) (pair? dat) ) 
(pattern-match (cdr pat) 


(cdr dat) 

(pattern-match (car pat) 
(car dat) 
frame) ) ) 


(else "failed) )) 
这 个 过 程 通过 加 入 新 约束 扩充 给 定 的 框架 ， 条件 是 ， 这 一 约束 与 框架 中 已 有 的 约束 相 容 : 
(define (extend-if-consistent var dat frame) 
(let ((binding (binding-in-frame var frame))) 
(if binding 
(pattern-match (binding-value binding) dat frame) 


(extend var dat frame) ) ) ) 


如 果 在 框架 里 不 存在 这 个 变量 的 约束 ， 我 们 就 简单 地 将 该 变量 与 对 应 数据 的 约束 加 进去 。 否 
则 就 需要 在 这 个 框架 里 ， 用 这 一 数据 与 该 变量 在 框架 里 所 约束 的 值 做 一 次 匹配 。 如 果 保 存 的 
值 中 只 包含 常量 (如 果 它 是 由 extend-if-consistent 在 模式 匹配 中 存 入 的， 那么 就 一 定 
是 这 样 ) ， 那 么 ， 这 个 匹配 也 就 是 检查 已 经 保存 的 值 和 新 值 是 否 相 同 。 如 果 两 个 值 相 同 ， 那 么 
就 返回 没有 修改 的 框架 ， 如 果 不 同 就 返回 失败 标志 。 当 然 ， 框 架 里 保存 的 值 里 也 可 能 包含 变 
量 ， 如 果 它 是 在 合 一 中 保存 的 ， 就 有 可 能 出 现 这 种 情况 (参见 4.4.4.4 节 )。 将 框架 里 保存 的 值 
与 新 值 的 递归 匹配 还 可 能 会 要 求 增 加 ， 或 者 要 求 检 查 这 一 模式 里 的 有 关 变 量 的 约束 。 举 例 来 
说 ， 假 如 我 们 有 一 个 框架 ， 其 中 ?x 约 束 到 (E£ 2y) 而 ?y 没 有 约束 ， 现 在 希望 通过 加 入 ?x 到 
(£ b) 的 约束 来 扩大 这 个 框架 。 我 们 查找 ?x 并 发 现 了 它 已 经 约束 到 (£ ?y)， 这 就 导致 我 们 
必须 在 同一 框架 里 去 做 (£ ?y) 与 所 提供 的 新 值 (£ b) 的 匹配 。 这 个 匹配 最 终 将 ?y 到 b 的 
约束 加 入 框架 里 ， 而 变量 ?x 还 是 约束 到 (£ ?y)。 在 此 过 程 中 ,已 保存 的 约束 决 不 会 修改 ， 
也 不 会 为 一 个 特定 变量 保存 多 个 约束 。 
extend-if-consistent 使 用 的 那些 对 约束 做 各 种 操作 的 过 程 在 4.4.4.8 节 定义 。 


具有 带 点 尾部 的 模式 

如 果 一 个 模式 里 包含 了 一 个 圆 点 ， 后 跟 一 个 模式 变量 ， 这 一 变量 将 与 数据 表 里 的 剩余 部 
分 匹配 (而 不 是 与 数据 表 的 下 一 元 素 匹 配 )， 就 像 在 练习 2.20 里 描述 的 圆 点 记 法 所 要 求 的 那样 。 
虽然 我 们 刚刚 实现 的 模式 匹配 屡 并 没有 查看 圆 点 ， 但 它 确 实 能 按 我 们 所 期 望 的 方式 工作 。 这 
是 因为 query-driver-1loop 使 用 Lisp 的 read 基 本 过 程 读 入 查询 ， 并 将 它 表示 为 一 个 表 结 
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构 ， 其 中 的 圆 点 将 用 一 种 特殊 方式 处 理 。 

当 read 遇 到 一 个 圆 点 时 ， 它 不 是 把 下 一 个 项 作为 表 里 的 下 一 元 素 (一 个 cons 的 car， 其 
cdr 将 是 这 个 表 的 其 余部 分 )， 而 是 将 下 一 个 项 直接 作为 这 个 表 结 构 的 car。 举 例 说 ， 对 于 给 
定 的 模式 (computer ?type)， 由 read 产 生 的 表 结 构 相 当 于 对 表达 式 (cons 
‘computer (cons '?type "())) 求 值 所 产生 的 结构 ;而 对 (computer . ?type) 产生 的 
结构 相当 于 对 表达 式 (cons 'computer '?type) 求 值 构造 出 的 结构 。 

这 样 , 在 pattern-match 递 归 地 比较 一 个 数据 表 与 一 个 模式 中 各 个 car 和 cdr 的 过 程 中 ， 
它 最 终 会 将 圆 点 后 的 变量 (是 模式 里 的 一 个 cdr) 与 数据 表 的 一 个 子 表 匹 配 ， 并 将 其 约束 于 
这 个 子 表 。 例 如 ， 将 模式 (computer . ?type) 与 (computer programmer trainee) 
匹配 ， 将 使 变量 ?type 匹 配 到 表 (programmer trainee), 


4444 规则 和 合 一 
apply-rules 用 类 似 find-assertions 的 方式 处 理 规则 (4.4.4.3 节 )。 它 以 一 个 模式 
和 一 个 框架 作为 输入 ， 生 成 一 个 通过 应 用 来 自 数 据 库 的 规则 而 扩充 的 框架 流 。stream- 
flatmap 将 apply-a-rule 了 映射 到 由 可 能 应 用 的 规则 (由 fetch-rules 选 出 ，4.4.4.5 节 ) 
形成 的 流 上 ， 并 组 合 起 得 到 的 框架 流 。 
(define (apply-rules pattern frame) 
(stream-flatmap (lambda (rule) 


(apply-a-rule rule pattern frame)) 


(fetch-rules pattern frame))) 

apply-a-rule 采 用 4.4.2 节 里 概述 的 方法 去 完成 规则 的 应 用 。 它 首先 在 给 定 框架 里 对 规 
则 的 结论 和 模式 做 合 一 ， 以 这 种 方式 扩充 自己 的 实 参 框架 。 如 果 这 一 工作 成 功 完 成 ， 那 么 就 
在 得 到 的 新 框架 里 求 值 规则 的 体 。 

还 有 , 在 做 所 有 这 些 事情 之 前 ,程序 需要 将 规则 里 的 所 有 变量 重新 命名 (用 唯一 性 名 字 )。 
之 所 以 这 样 ， 是 为 了 避免 在 不 同 的 规则 应 用 中 变量 名 字 互 扰 。 举 个 例子 ， 如 果 两 条 规则 里 都 
有 一 个 变量 的 名 字 是 ?x， 那 么 在 应 用 时 ， 这 两 条 规则 就 都 可 能 向 框架 里 加 入 对 ?x 的 约束 。 其 
实 这 两 个 约束 相互 间 毫 无 关系 ， 而 我 们 却 会 以 为 这 两 个 约束 必须 相 容 。 如 果 不 做 变量 的 重新 
命名 ,也 可 以 设计 一 种 更 加 聪明 的 环境 结构 。 然 而 ， 重 新 命名 却 是 最 直截了当 的 解决 办 法 ， 
虽然 可 能 不 是 效率 最 高 的 办 法 (参见 练习 4.79)。 下 面 是 apply-a-rule 过 程 : 

(define (apply-a-rule rule query-pattern query-frame) 

(let ((clean-rule (rename-variables-in rule))) 
(let ((unify-result 
(unify-match query-pattern 
(conclusion clean-rule) 
query-frame))) 
(if (eq? unify-result ‘failed) 
the-empty-stream 


(qeval (rule-body clean-rule) 


(singleton-stream unify-result)))))) 


提取 规则 成 分 的 选择 函数 rule-body 和 conclusion 将 在 4.4.4.7 节 定义 。 
为 了 生成 唯一 的 名 字 ， 这 里 的 方法 是 为 每 个 规则 应 用 关联 一 个 唯一 标识 (例如 一 个 数 )， 
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并 将 这 一 标识 与 原来 的 变量 名 组 合 起 来 。 璧 如 说 ， 如 果 规 则 应 用 的 标识 是 7， 我 们 就 可 以 把 规 
则 里 的 每 个 ?x 都 改 为 ?<x-7， 将 其 中 的 每 个 ?y 都 改 为 ?y-7。(make-new-variable 和 
new-rule-application-id 与 语法 过 程 一 起 放 在 4.4.4.7 节 里 ,) 
(define (rename-variables-in rule) 
(let ((rule-application-id (new-rule-application-id))) 
(define (tree-walk exp) 
(cond ((var? exp) 
(make-new-variable exp rule-application-id) ) 
((pair? exp) 
(cons (tree-walk (car exp) ) 
(tree-walk (cdr exp)))) 
(else exp) )) 
(tree-walk rule) )) 


合 一 算法 也 实现 为 一 个 过 程 。 这 个 过 程 以 两 个 模式 和 一 个 框架 为 参数 ， 返 回 扩充 后 的 杠 
架 或 者 符号 failed。 这 个 合 一 过 程 很 像 前 面 的 模式 匹配 器 ， 但 它 是 对 称 的， 因为 匹配 的 两 边 
都 可 以 有 变量 。unify-match 基 本 上 与 pattern-match 相 同 ， 只 是 多 了 一 些 代码 (下 面 用 
“**x* ”标记 的 部 分 )， 用 于 处 理 匹 配 的 右边 对 象 也 是 变量 的 情况 。 
(define (unify-match pl p2 frame) 
(cond ((eq? frame ’failed) *failed) 
((equal? pl p2) frame) 
( (var? pl) (extend-if-possible pl p2 frame) ) 
( (var? p2) (extend-if-possible p2 pl frame)) ; *** 
( (and (pair? pl) (pair? p2)) 
(unify-match (cdr p1) 


(cdr p2) 

(unify-match (car p1) 
(car p2) 
frame) ) ) 


(else ’failed) ) ) 


在 合 一 过 程 中 ， 就 像 在 单 边 的 模式 匹配 里 那样 ， 只 有 在 得 到 的 扩充 能 够 与 现存 匹配 相 容 
时 ， 我 们 才能 够 接受 这 一 扩充 。 在 合 一 里 面 使 用 的 extend-if-possible 过 程 很 像 在 模式 
匹配 里 使 用 的 extend-if-consistent, 但 在 这 里 增加 了 两 处 特殊 检查 ， 在 下 面 的 程序 里 
用 “***” 标 记 。 第 一 种 情况 出 现在 我 们 试图 去 匹配 的 变量 还 没有 约束 ， 而 想 要 用 它 去 匹配 
的 值 本 身 也 是 一 个 (不同 的 ) 变量 时 。 此 时 就 需要 检查 这 个 (作为 值 的 ) 变量 是 否 已 经 有 了 
约束 。 如 果 有 的 话 ， 那 就 让 前 一 个 变量 也 约束 到 它 的 值 。 如 果 两 个 变量 都 没有 约束 ， 那 么 就 
可 以 将 其 中 任何 一 个 约束 到 另 一 个 。 

第 二 个 检查 处 理 的 情况 出 现在 试图 将 一 个 变量 约束 到 一 个 模式 ， 而 该 模式 里 又 包含 这 个 
变量 时 。 当 两 个 模式 里 都 有 重复 出 现 的 变量 的 时 候 ， 就 可 能 出 现 这 种 情况 。 举 个 例子 ， 考 虑 
在 一 个 ?x 和 ?y 都 没有 约束 的 框架 里 对 两 个 模式 (Px ?x) 和 (Py < 涉及 ?y 的 表达 式 >) 的 
合 一 。 这 里 首先 做 ?x 与 ?y 的 匹配 ， 做 出 了 一 个 从 ?x 到 ?y 的 约束 。 下 面 又 要 用 同一 个 ?x 去 与 
一 个 涉及 ?y 的 表达 式 匹配 。 由 于 ?x 已 经 约束 到 ?y， 结 果 就 要 用 ?y 去 与 这 个 表达 式 匹配 。 如 
果 我 们 认为 合 一 的 工作 就 是 为 模式 变量 找到 一 组 对 应 值 ， 它 们 能 使 两 个 模式 变 得 相同 。 那 么 
上 面 的 模式 就 意味 着 需要 找 出 一 个 ?yY， 使 ?y 等 价 于 那个 包含 ?y 的 表达 式 。 不 存在 求解 这 种 方 
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程 的 一 般 性 方法 ， 因 此 我 们 拒绝 这 种 约束 »…。 谓 词 Qepends -on? 检 查 这 种 情况 。 另 一 方面 ， 
我 们 并 不 想 拒绝 一 个 变量 与 其 自身 的 匹配 。 举 例 来 说 ,在 考虑 (?x ?x) 和 (?y ?y) WA 
一 时 ， 第 二 次 尝试 将 ?x 约束 到 ?y 时 要 做 ?y (?x 的 保存 值 ) Sey (?x 的 新 值 ) 的 匹配 。 这 一 
情况 通过 unify-match 里 的 equal? 子 句 检 查 。 


(define (extend-if-possible var val frame) 
(let ((binding (binding-in-frame var frame))) 
(cond (binding 
(unify-match 


(binding-value binding) val frame)) 


((var? val) 大 大 
(let ((binding (binding-in-frame val frame))) 
(if binding 


(unify-match 

var (binding-value binding) frame) 

(extend var val frame) ) )) 
((depends-on? val var frame) jee 
*failed) 
(else (extend var val frame) )))) 


depends-on? 是 一 个 谓词 ， 它 检查 一 个 想 作 为 某 模式 变量 的 值 的 表达 式 是 否 依赖 于 这 一 
变量 。 这 件 事情 也 必须 相对 于 当前 的 框架 去 做 ， 因 为 在 这 个 表达 式 里 可 能 包含 某 个 变量 的 出 
现 ， 而 该 变量 已 经 有 了 值 ， 其 值 依赖 于 我 们 要 检查 的 变量 。depends-on? 的 结构 是 一 个 简 
单 的 递归 的 树 遍 历 ， 其 中 (在 需要 时 ) 要 将 一 些 变量 换 成 相应 的 值 。 

(define (depends-on? exp var frame) 

(define (tree-walk e) 
(cond ((var? e) 
(if (equal? var e) 


true 


(let ((b (binding-in-frame e frame))) 





2 一 般 地 说 , 将 ?y 与 一 个 涉及 ?y 的 表达 式 合 一 ,， 要求 我 们 能 够 找到 方程 ?y= < 涉及 ?y 的 表达 式 > 的 一 个 不 动 点 。 
有 时 我 们 确实 可 能 通过 语法 方式 构造 出 一 个 表达 式 ， 使 它 正 好 是 有 关 方 程 的 一 个 解 。 例 如 ，?Y= (£ ?y) 
看 来 似乎 有 不 动 点 (E (€ (€ ... )))， 我 们 可 以 从 表达 式 (£ Py) 开始 ， 通 过 反复 用 (£ ?y) 替换 ?y 
而 得 到 它 。 不 幸 的 是 ， 并 不 是 每 个 这 样 的 方程 都 有 一 个 有 意义 的 不 动 点 。 这 里 出 现 的 问题 与 数学 里 无 穷 级 数 
运算 中 的 问题 类 似 。 举 例 说 ， 我 们 知道 2 是 方程 ?>=1+y2 的 解 。 从 表达 式 1+y2 开 始 ， 反 复 地 用 1 十 2 替换 y， 
将 给 出 : 

2=y=1+y/2=1+(1+y/2)/2=1+1/2+y/4=… 
由 此 将 得 到 
2=1 十 1/2 十 1/4 十 1/8 十 … 
但 是 ， 如 果 我 们 由 于 看 到 了 一 1 是 方程 y=1+2y 的 解 ， 而 试 着 去 做 同样 的 事情 时 ， 将 会 得 到 : 
—1=y=1+2y=1+2(l1+2y)=1+2+4y=… 
并 由 此 得 到 
—1=1+2+4+8+--- 


虽然 对 这 两 个 方程 的 操作 方式 完全 一 样 ， 第 一 个 得 到 的 结果 是 关于 一 个 无 穷 级 数 的 合法 断言 ， 而 第 二 个 却 不 
是 。 与 此 类 似 ， 采 用 任意 的 语法 操作 去 构造 作为 合 一 结果 的 表达 式 ， 也 可 能 得 到 错误 的 结果 。 
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(if b 
(tree-walk (binding-value b)) 
false)))) 
( (pair? e) 
(or (tree-walk (car e)) 
(tree-walk (cdr e)))) 
(else false))) 


(tree-walk exp) ) 


4.4.4.5 数据 库 的 维护 

在 设计 人 逻辑 程序 设计 语言 时 ， 一 个 重要 的 问题 就 是 设法 做 出 一 些 安排 ,使 我 们 在 需要 检 
查 一 个 给 定 模式 时 ， 必 须 考察 的 无 关 数 据 库 条 目 越 少 越 好 。 在 我 们 的 系统 里 ， 除 了 在 一 个 很 
大 的 流 中 保存 了 所 有 断言 之 外 ， 我 们 还 将 car 部 分 是 常量 符号 的 所 有 断言 保存 在 另外 一 些 流 
里 ,将 这 些 流放 入 一 个 用 这 些 符 号 作为 索引 的 表格 。 在 提取 可 能 与 某 个 模式 匹配 的 断言 时 ， 
我 们 首先 查看 这 个 模式 的 car 是 否 为 常量 符号 。 如 果 是 ， 那 么 就 返回 程序 里 保存 的 所 有 具有 
同样 car 的 断言 ( 送 给 匹配 器 去 检查 )。 如 果 模 式 的 car 不 是 常量 符号 ， 那 么 就 返回 程序 里 保 
存 的 所 有 断言 。 更 聪明 的 方法 还 可 以 利用 框架 里 的 信息 ， 或 者 设法 优化 那些 模式 的 caz 不 是 
常量 符号 的 情况 。 我 们 并 没有 把 上 述 索 引 准 则 (利用 car， 只 处 理 常量 符号 的 情况 ) 构造 到 
程序 里 ， 而 是 依靠 谓词 和 选择 函数 实现 这 种 准则 。 

(define THE-ASSERTIONS the-empty-stream) 

(define (fetch-assertions pattern frame) 

(if (use-index? pattern) 


(get-indexed-assertions pattern) 


(get-all-assertions) ) ) 
(define (get-all-assertions) THE-ASSERTIONS) 


(define (get-indexed-assertions pattern) 


(get-stream (index-key-of pattern) ‘assertion-stream) ) 


get-stream 到 表格 里 查找 相应 的 流 ， 如 果 那 里 没有 东西 就 返回 一 个 空 的 流 。 
(define (get-stream keyl key2) 
(let ((s (get keyl key2))) 
(if s s the-empty-stream) ) ) 
规则 也 用 类 似 方式 保存 ， 以 规则 中 结论 部 分 的 caz 作 为 索引 。 当 然 ， 由 于 规则 的 结论 可 
以 是 任意 的 模式 ， 与 断言 不 同 点 就 是 在 这 里 可 以 包含 变量 。 其 car 为 常量 符号 的 模式 可 以 与 
那些 结论 部 分 具有 同样 car 的 规则 匹配 ， 还 可 以 与 那些 结论 部 分 以 变量 开始 的 规则 相 匹 配 。 
这 样 ， 假 定 某 个 模式 的 caz 为 常量 符号 ， 在 提取 有 可 能 与 该 模式 匹配 的 规则 时 ， 不 但 需要 提 
取 所 有 结论 部 分 具有 同样 car 的 规则 ， 还 要 提取 出 所 有 结论 部 分 以 变量 开头 的 规则 。 为 此 ， 
我 们 就 把 所 有 的 结论 部 分 以 变量 开始 的 规则 作为 一 个 单独 的 流 ， 保 存在 流 的 表格 里 ， 以 符号 ? 
作为 它 的 索引 。 
(define THE-RULES the-empty-stream) 
(define (fetch-rules pattern frame) 


(if (use-index? pattern) 


(get-indexed-rules pattern) 


334 $41 


(get-all-rules) ) ) 
(define (get-all-rules) THE-RULES) 


(define (get-indexed-rules pattern) 
(stream-append 
(get-stream (index-key-of pattern) ‘rule-stream) 


(get-stream '? ‘rule-stream) ) ) 


A 
W 
Gui, 
让 
we 


过 程 add-rule-or-assertion! 用 在 query-driver-loop 里 ， 用 于 将 断言 和 规则 
加 入 数据 库 。 如 果 合 适 ， 就 将 条 目 都 保存 到 某 个 索引 下 ， 还 要 保存 在 数据 库 里 所 有 断言 和 规 


则 的 流 中 。 
(define (add-rule-or-assertion! assertion) 
(if (rule? assertion) 
(add-rule! assertion) 


(add-assertion! assertion) )) 


(define (add-assertion! assertion) 
(store-assertion-in-index assertion) 
(let ((old-assertions THE-ASSERTIONS) ) 
(set! THE-ASSERTIONS 
(cons-stream assertion old-assertions) ) 
"ok) ) 


(define (add-rule! rule) 
(store-rule-in-index rule) 
(let ((old-rules THE-RULES) ) 
(set! THE-RULES (cons-stream rule old-rules) ) 
"ok) ) 


为 了 实际 地 保存 一 个 规则 或 者 断言 ， 我 们 需要 检查 它 是 否 能 索引 。 如 果 可 以 的 话 ， 就 将 


它 存 和 适当 的 流 。 
(define (store-assertion-in-index assertion) 
(if (indexable? assertion) 
(let ((key (index-key-of assertion) ) ) 
(let ((current-assertion-stream 
(get-stream key ’assertion-stream) ) ) 
(put key 
"assertion-stream 
(cons-stream assertion 


current-assertion-stream) ))))) 


(define (store-rule-in-index rule) 
(let ((pattern (conclusion rule) ) ) 
(if (indexable? pattern) 
(let ((key (index-key-of pattern) ) ) 
(let ((current-rule-stream 
(get-stream key ‘rule-stream) ) ) 
(put key 
*rule-stream 
(cons-stream rule 


current-rule-stream) ) ) ) ) ) ) 
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下 面 过 程 定义 了 这 个 数据 库 里 所 使 用 的 索引 。 如 果 一 个 模式 (一 个 断言 或 者 一 个 规则 的 
结论 部 分 ) 以 变量 或 者 常量 符号 开始 ， 它 就 将 被 存 人 表格 里 。 
(define (indexable? pat) 
(or (constant-symbol? (car pat)) 


(var? (car pat)))) 


将 模式 保存 到 表格 里 的 关键 码 或 者 是 ? (如 果 它 以 变量 开始 ) ， 或 者 是 作为 该 模式 开始 的 那个 
符号 常量 。 
(define (index-key-of pat) 
(let ((key (car pat))) 
(if (var? key) °? key))) 


如 果 一 个 模式 以 某 个 符号 常量 开始 ， 这 个 常量 就 将 被 用 作 索引 ， 从 数据 库 里 提取 出 可 能 与 这 
个 模式 相 匹配 的 条 目 。 


(define (use-index? pat) 


(constant-symbol? (car pat))) 


练习 4.70 ”在 过 程 add-assertion! 和 add-rule! 里 的 let 约 束 起 什么 作用 ? MRR 
用 下 面 方式 实现 add-assertion!, 会 出 什么 错 ? 提示 : 请 参考 前 面 3.5.2 节 里 有 关 ones 的 
无 穷 流 的 定义 ，(define ones (cons-stream 1 ones)), 


(define (add-assertion! assertion) 
(store-assertion-in-index assertion) 
(set! THE-ASSERTIONS 
(cons-stream assertion THE-ASSERTIONS)) 
"ok) 


4.4.4.6 流 操作 
这 一 查询 系统 用 到 了 几 个 没有 在 第 3 章 给 出 的 流 操 作 。 
stream-append-delayed 和 interleave-delayed 与 stream-append 和 
interleave ( 见 3.5.3 节 ) 类 似 ， 但 它们 都 要 求 延 时 参数 (就 像 3.5.4 节 的 integral 过 程 ) 。 
在 某 些 情况 中 ， 这 将 推迟 循环 的 执行 【参见 练习 4.71 ) 。 
(define (stream-append-delayed sl delayed-s2) 
(if (stream-null? s1) 
(force delayed-s2) 
(cons-stream 
(stream-car s1) 


(stream-append-delayed (stream-cdr sl) delayed-s2)))) 


(define (interleave-delayed s1 delayed-s2) 
(if (stream-null? s1) 
(force delayed-s2) 
(cons-stream 
(stream-car s1) 
(interleave-delayed (force delayed-s2) 
(delay (stream-cdr s1)))))) 


stream-flatmap 在 整个 查询 求 值 器 里 到 处 使 用 ， 它 将 一 个 过 程 映 射 到 一 个 框架 流 上 ， 
并 组 合 起 得 到 的 结果 框架 流 。 这 个 过 程 可 以 看 作 2.2.3 市 所 介绍 的 针对 常规 表 的 flatmap 过 程 
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的 流 版 本 。 但 其 中 也 有 一 些 与 常规 fl1atmap 不 同 的 地 方 ，stream-flatmap 采 用 一 种 交错 
的 方式 累积 起 各 个 流 ， 而 不 是 简单 地 将 它们 连接 起 来 (参见 练习 4.72 和 4.73)。 
(define (stream-flatmap proc s) 


(flatten-stream (stream-map proc s))) 


(define (flatten-stream stream) 
(if (stream-null? stream) 
the-empty-stream 
(interleave-delayed 
(stream-car stream) 
(delay (flatten-stream (stream-cdr stream)))))) 


求 值 器 还 使 用 下 面 的 简单 过 程 ， 去 生成 一 个 只 包含 着 一 个 元 素 的 流 : 
(define (singleton-stream x) 


(cons-stream x the-empty-stream) ) 


4.4.4.7 查询 的 语法 过 程 

qeval 里 使 用 的 type 和 contents ( 见 4.4.4.2 节 ) 说 明 各 种 特殊 形式 都 由 其 car 部 分 的 
符号 作为 标识 。 这 两 个 过 程 与 2.4.2 节 的 type-tag 和 contents 过 程 一 样 ， 只 是 其 中 的 错误 
言 息 不 同 。 


(define (type exp) 
(if (pair? exp) 
(car exp) 


(error "Unknown expression TYPE" exp) )) 


(define (contents exp) 
(if (pair? exp) 
(cdr exp) 
(error "Unknown expression CONTENTS" exp) ) ) 


下 面 两 个 过 程 用 在 query-driver-loop 里 ( 见 4.4.4.1 节 )， 它 们 说 明 ， 用 于 加 入 数据 库 
的 规则 和 断言 所 用 的 形式 是 (assert! <rule-or-assertion>): 


(define (assertion-to-be-added? exp) 


(eq? (type exp) ’assert!) ) 


(define (add-assertion-body exp) 
(car (contents exp) )) 


这 里 是 特殊 形式 anda、or、not 和 1isp-value 的 语法 定义 ( 见 4.4.4.2 节 ) : 


(define (empty-conjunction? exps) (null? exps)) 


(define (first-conjunct exps) (car exps) ) 
(define (rest-conjuncts exps) (cdr exps) ) 
(define (empty-disjunction? exps) (null? exps) ) 
(define (first-disjunct exps) (car exps) ) 
(define (rest-disjuncts exps) (cdr exps) ) 
(define (negated-query exps) (car exps) ) 
(define (predicate exps) (car exps) ) 


(define (args exps) (cdr exps) ) 


下 面 三 个 过 程 定义 了 规则 的 语法 形式 : 
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(define (rule? statement) 


(tagged-list? statement rule) ) 
(define (conclusion rule) (cadr rule) ) 


(define (rule-body rule) 
(if (mull? (cddr rule) ) 
*(always-true) 
(caddr rule) )) 


query-driver-loop ( 见 4.4.4.1 节 ) 调用 query-syntax-process， 对 表达 式 里 的 
模式 变量 做 一 种 变换 ， 将 其 由 ?symbol 形 式 变换 为 内 部 形式 (? symbol)。 这 也 就 是 说 ,一 
个 形 如 (job ?x ?y) 的 模式 ， 在 系统 内 部 的 实际 表示 是 (job (? x) (? y))。 这 样 做 可 
以 提高 查询 处 理 的 效率 ， 因 为 这 就 使 系统 在 需要 检查 一 个 表达 式 是 否 为 模式 变量 时 ， 只 需 检 
查 这 一 表达 式 的 car 是 不 是 符号 ?> ， 而 不 需要 做 从 符号 里 提取 字符 的 工作 。 这 一 语法 变换 由 下 
面 过 程 完成 *”， 

(define (query-syntax-process exp) 


(map-over-symbols expand-question-mark exp)) 


(define (map-over-symbols proc exp) 
(cond ((pair? exp) 
(cons (map-over-symbols proc (car exp) ) 
(map-over-symbols proc (cdr exp)))) 
( (symbol? exp) (proc exp) ) 
(else exp) )) 


(define (expand-question-mark symbol) 
(let ((chars (symbol->string symbol) ) ) 
(if (string=? (substring chars 0 1) "?") 
(list ’? 
(string->symbol 
(substring chars 1 (string-length chars) ))) 
symbol) ) ) 


一 旦 以 这 种 方式 对 变量 做 了 变换 ， 模 式 里 的 变量 就 都 变 成 了 以 ?开头 的 表 ， 而 常量 符号 
(为 了 数据 库 索 引 需要 识别 它们 。 见 4.4.4.5 节 ) 还 是 符号 。 
(define (var? exp) 
(tagged-list? exp ’?)) 


(define (constant-symbol? exp) (symbol? exp) ) 


在 规则 应 用 过 程 中 需要 构造 唯一 变量 ( 见 4.4.4.4 节 ) ， 此 事 通过 下 面 过 程 完成 。 一 次 过 程 
调用 的 唯一 标识 是 一 个 数 ， 在 每 次 规则 应 用 时 加 一 。 


(define rule-counter 0) 


285 大 部 分 Lisp 系 统 允 许 用 户 修改 常规 的 read 过 程 , 使 之 能 执行 这 类 变换 。 为 此 提供 了 定义 读 入 器 宏 字 符 的 功能 。 
引号 表达 式 也 是 按 这 种 方式 处 理 的 : 读 入 器 能 自动 将 "expression 变 为 (quote expression)， 而 后 才 
把 它 送 给 求 值 器 。 我 们 可 以 做 出 一 些 安排 ， 以 同样 方式 将 ?expression 变 换 为 (? expression), Mili, 
为 了 清晰 起 见 ， 这 里 写 出 了 显 式 的 变换 过 程 。 

expand-question-mark 和 contract-question-mark 里 用 到 几 个 名 字 里 包含 string 的 过 程 ， 
它们 都 是 Scheme 的 基本 操作 。 
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(define (new-rule-application-id) 
(set! rule-counter (+ 1 rule-counter) ) 


rule-counter) 


(define (make-new-variable var rule-application-id) 


(cons °? (cons rule-application-id (cdr var)))) 


在 query-driver-1loop 为 了 打印 回答 而 实例 化 查询 表达 式 时 ， 它 需要 用 下 面 过程 将 所 
有 未 约束 的 模式 变换 回 打印 用 的 正确 形式 : 


(define (contract-question-mark variable) 
(string->symbol 
(string-append "?" 
(if (number? (cadr variable) ) 
(string-append (symbol->string (caddr variable) ) 


(number->string (cadr variable) )) 


(symbol->string (cadr variable)))))) 


4.4.4.8 框架 和 约束 
框架 被 表示 为 一 组 约束 的 表 ， 每 个 约束 是 一 个 变量 - 值 序 对 : 


(define (make-binding variable value) 


(cons variable value) ) 


(define (binding-variable binding) 
(car binding) ) 


(define (binding-value binding) 
(cdr binding) ) 


(define (binding-in-frame variable frame) 


(assoc variable frame) ) 


(define (extend variable value frame) 


(cons (make-binding variable value) frame) ) 
练习 4.71 Louis Reasoner 感 到 奇怪 的 是 ， 为 什么 simple-query 和 disjoin 过 程 (W 
4.4.4.2 节 ) 里 显 式 使 用 过 程 delay 实 现 ， 而 没有 定义 为 下 面 形式 : 


(define (simple-query query-pattern frame-stream) 


= 


(stream-flatmap 
(lambda (frame) 
(stream-append (find-assertions query-pattern frame) 
(apply-rules query-pattern frame) ) ) 
frame-stream) ) 


(define (disjoin disjuncts frame-stream) 
(if (empty-disjunction? disjuncts) 
the-empty-stream 
(interleave 
(qeval (first-disjunct disjuncts) frame-stream) 
(disjoin (rest-disjuncts disjuncts) frame-stream) ) ) ) 


你 能 够 给 出 一 些 查询 实例 ， 对 于 它们 ， 这 种 更 简单 的 定义 将 会 导致 非 预 期 的 行为 吗 ? 
练习 4.72 ”为 什么 aisjoin 和 stzream-fElatmap 以 交错 方式 合并 流 ， 而 不 是 简单 地 连接 
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它们 ? 请 给 出 实例 说 明 采 用 交错 方式 更 加 合适 。( 提 示 ， 为 什么 我 们 在 3.5.3 节 里 需要 使 用 过 程 
interleave? ) 
练习 4.73 ”为 什么 flatten-stream 中 显 式 地 使 用 了 delay? 如 果 用 下 面 形式 定义 它 ， 
为 什么 就 是 错误 的 呢 ? 
(define (flatten-stream stream) 
(if (stream-null? stream) 
the-empty-stream 
(interleave 
(stream-car stream) 


(flatten-stream (stream-cdr stream))))) 


练习 4.74 Alyssa P. Hacker 建 议 在 negate、1lisp-value 和 find-assertions 里 
采用 一 种 更 简单 些 的 stream-flatmap 版 本 。 她 注意 到 ， 在 这 些 情况 下 ， 被 映射 到 框架 流 
的 过 程 总 是 或 者 产生 一 个 空 流 ,或 者 产生 一 个 单元 素 流 。 因 此 ， 在 组 合 这 些 流 时 根本 不 需要 
交错 。 

a) 请 填充 下 面 Alyssa 的 程序 里 缺少 的 表达 式 : 

(define (simple-stream-flatmap proc s) 


(simple-flatten (stream-map proc s))) 


(define (simple-flatten stream) 
(stream-map <??> 


(stream-filter <??> stream))) 

b) 如 果 我 们 这 样 修改 程序 ， 查 询 系 统 的 行为 会 改变 吗 ? 

练习 4.75 ”为 这 一 查询 语言 实现 一 种 称 为 unique 的 新 特殊 形式 。unique 应 该 在 数据 库 
里 恰好 只 有 一 个 满足 特殊 查询 的 条 目 时 成 功 。 例 如 ， 

(unique (job ?x (computer wizard))) 
应 该 打印 出 只 含 下 面 一 个 条 目的 流 

(unique (job (Bitdiddle Ben) (computer wizard) ) ) 
因为 Ben 是 这 里 仅 有 的 计算 机 大 师 。 而 

(unique (job ?x (computer programmer) ) ) 
应 输出 一 个 空 流 ， 因 为 这 里 的 计算 机 程序 员 不 止 一 个 。 进 一 步 说 ， 

(and (job ?x ?j) (unique (job ?anyone ?j))) 
应 该 列 出 所 有 只 有 一 个 人 做 的 工作 ， 以 及 做 这 些 工作 的 人 。 

实现 unique 的 工作 包括 两 部 分 。 第 一 部 分 是 写 出 一 个 能 够 处 理 这 一 特殊 形式 的 过 程 ， 第 
二 部 分 是 让 qeval 能 为 这 个 过 程 做 分 派 。 第 二 部 分 工作 很 简单 ， 因 为 qeval 的 分 派 是 以 数据 
导向 的 方式 做 的 ， 如 果 你 的 过 程 名 字 叫 uniquely-asserted， 需 要 做 的 事情 也 就 是 写 : 

(put “unique ‘geval uniquely-asserted) 
这 就 能 使 qeval 在 过 到 某 查询 的 type (car) 是 符号 unique 时 ， 就 会 将 它 分 派 给 这 个 过 程 。 

真正 的 问题 是 写 过 程 uniquely-asserted。 它 需要 以 相应 unique 查 询 的 contents 
(cdr) 部 分 和 一 个 框架 流 作为 输入 ， 对 这 个 流 里 的 每 个 框架 ， 它 应 该 利用 qeval 去 找 出 这 
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一 框架 的 所 有 满足 给 定 查 询 的 扩充 框架 的 流 。 所 有 包含 着 多 个 条 目的 流 都 应 该 抛弃 。 剩 下 的 
流 送 回 并 累积 到 一 个 大 流 里 ， 作 为 unique 查 询 的 结果 。 这 一 方式 与 特殊 形式 not 的 实现 方 
式 类 似 。 

通过 构造 下 面 查询 检查 你 的 实现 : 找 出 所 有 这 样 的 人 ， 他 们 只 有 一 个 上 级 。 

练习 4.76 ”我 们 将 and 实 现 为 一 系列 查询 的 组 合 ( 见 图 4-5) 的 方式 很 优美 ， 但 却 比 较 低 
效 ， 因 为 在 处 理 and 的 第 二 个 查询 时 ， 我 们 还 必须 针对 第 一 个 查询 产生 出 的 框架 扫描 整个 数据 
库 。 如 果 数 据 库 里 有 NN 个 元 素 ， 一 次 典型 查询 产生 出 的 输出 框架 个 数 等 比 于 和 N (例如 N/K)， 那 
么 为 第 一 个 查询 所 生成 的 所 有 输出 框架 扫描 数据 库 ， 就 需要 Nk 次 调用 模式 匹配 器 。 实 现 这 一 
计算 过 程 的 另 一 方式 是 分 别处 理 and 的 两 个 子 名 ， 而 后 考察 两 个 流 里 的 所 有 输出 框架 对 侦 是 否 
兼容 。 如 果 每 个 查询 产生 出 MK 个 输出 框架 ， 这 就 意味 着 我 们 需要 做 NM/ 已 次 相 容 性 检查 一 一 与 
目前 所 采用 的 方式 相 比 ， 新 方式 所 需 的 匹配 次 数 小 了 一 个 k 倍 的 因子 。 

请 设计 一 个 采用 这 种 策略 的 and 实 现 。 你 必须 实现 一 个 过 程 ， 它 以 两 个 流 作为 输入 ， 检 
查 其 中 框架 里 的 匹配 是 否 兼 容 。 如 果 是 的 话 ， 就 生成 一 个 合并 了 这 两 集约 束 的 框架 。 这 一 操 
作 很 像 合 一 。 

练习 4.77 ”在 4.4.3 节 里 我 们 看 到 ， 如 果 将 过 滤器 not 和 1isp-value 作 用 于 包含 未 约束 
变量 的 框架 ， 就 可 能 导致 查询 语言 给 出 “错误 的 ”回答 。 请 设计 一 种 方式 纠正 这 个 问题 。 一 
种 想法 是 以 某 种 “ 延 时 ”方式 执行 过 滤 ， 让 这 些 框架 为 过 滤器 附加 一 个 “人 允诺”， 只 有 在 框架 
里 的 变量 约束 足够 多 ， 使 这 一 操作 能 正常 完成 时 才 去 执行 它 。 我 们 可 以 等 到 所 有 其 他 操作 都 
执行 完 之 后 才 去 执行 过 滤 。 然 而 ， 由 于 效率 的 原因 ， 我 们 还 是 希望 尽 可 能 早 地 做 过 滤 ， 以 减 
少 所 生成 出 的 中 间 框 架 的 数量 。 

练习 4.78 ”重新 将 这 一 查询 语言 的 实现 设计 为 一 个 非 确定 性 程序 (而 不 是 作为 一 个 流 过 
程 )， 利 用 4.3 节 的 求 值 器 实现 它 。 按 照 这 种 方式 ， 每 个 查询 将 产生 出 一 个 回答 (而 不 是 所 有 
回答 的 一 个 流 )， 但 可 以 通过 输入 try-again 得 到 更 多 的 回答 。 你 将 会 发 现 ， 我 们 在 这 一 节 
里 构造 出 来 的 大 部 分 机 制 都 已 经 被 非 确定 性 搜索 和 回溯 所 概括 了。 当然 ， 你 可 能 还 会 发 现 ， 
从 行为 上 看 ， 这 一 新 查询 语言 与 本 市 给 出 的 语言 有 一 些微 妙 的 差异 。 你 能 找 出 一 些 说 明 这 种 
差异 的 例子 吗 ? 

练习 4.79 ”在 4.1 节 实现 Lisp 求 值 器 时 ， 我 们 曾经 看 到 如 何 通过 使 用 内 部 环境 来 避免 过 程 
参数 之 间 的 名 字 冲 突 。 例 如 ， 在 求 值 下 面 表达 式 时 : 

(define (square x) 

(* x x)) 
(define (sum-of-squares x y) 
(+ (square x) (square y))) 


(sum-of-squares 3 4) 


在 square 的 x 与 sum-of-squares 的 x 之 间 根 本 不 会 产生 混乱 ， 因 为 对 各 个 过 程 体 的 求 值 都 
是 在 某 个 特别 构造 的 ， 包 含 了 局 部 变量 的 环境 里 进行 的 。 在 上 述 查询 系统 里 ， 我 们 为 避免 在 
过 程 应 用 中 的 名 字 冲 突 ， 采 用 的 是 另 一 种 方式 。 每 次 应 用 一 条 规则 之 前 ， 我 们 都 将 其 中 的 变 
量 重新 命名 ， 并 保证 这 些 名 字 都 是 唯一 的 。 要 想 在 Lisp 求 值 器 里 采用 这 一 策略 ， 也 可 以 不 用 
局 部 环境 ， 而 是 在 每 次 应 用 一 个 过 程 时 重新 命名 过 程 体 里 的 所 有 变量 。 

请 为 查询 语言 实现 另 一 种 规则 应 用 方式 ， 在 其 中 使 用 局 部 环境 而 不 是 重新 命名 。 看 看 你 
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是 否 能 够 基于 自己 创建 的 环境 结构 ， 为 查询 语言 构造 起 一 些 机 构 ， 使 之 能 处 理 很 大 的 系统 ， 
例如 类 似 于 块 结构 过 程 的 规则 。 你 能 将 这 一 结构 中 的 一 些 东 西 与 在 一 个 上 下 文 里 做 推导 的 问 
题 〈 例 如 ,“ 如 果 假 定 了 P 真 ， 我 就 能 推导 出 4 和 B。 ) 联系 起 来 ， 做 成 一 个 问题 求解 方法 吗 ? 
(这 个 问题 是 永 无 止境 的 ， 一 个 好 回答 也 许可 以 当 博 士 。) 


— 


第 5 章 寄存 器 机 器 里 的 计算 


我 的 目的 是 想 说 明 ， 这 一 天 空 机 器 并 不 是 一 种 天 赐 造 物 或 者 生命 体 ， 它 只 不 过 
是 钟表 一 类 的 机 械 装 置 ( 而 那些 相信 钟表 有 灵魂 的 人 却 将 这 一 工作 说 成 是 其 创造 者 
的 荣光 )， 在 退 大 程度 上 ， 这 里 多 种 多 样 的 运动 都 是 由 最 简单 的 物质 力量 产生 的 ， 就 
像 钟 表 里 所 有 活动 都 是 由 一 个 发 条 产生 的 一 样 。 


一 一 约翰 尼斯 * HEH (给 Herwart von }Hohenburg 的 信 , 1605 ) 


本 书 从 研究 计算 过 程 ， 并 用 Lisp 写 出 的 过 程 描述 它们 开始 。 为 了 解释 这 些 过 程 的 意义 ， 
我 们 提出 了 一 系列 的 求 值 模型 : 第 1 章 的 代 换 模型 ， 第 3 章 的 环境 模型 ， 以 及 第 4 章 的 元 循环 模 
型 。 我 们 特别 仔细 地 考察 这 个 元 循环 模型 ， 就 是 为 了 尽 可 能 地 揭 开 有 关 类 Lisp 语 言 的 程序 如 
何 解释 的 神秘 面纱 。 但 是 ， 即 使 是 这 个 元 循环 解释 器 ， 也 还 遗留 下 一 些 没 有 回答 的 问题 ， 因 
为 它 无 法 阐释 Lisp 系 统 里 的 控制 机 制 。 举 例 来 说 ， 这 个 求 值 器 不 能 解释 子 表达 式 的 求 值 怎样 
返回 一 个 值 ， 以 便 送 给 使 用 这 个 值 的 表达 式 ， 该 求 值 器 也 无 法 解释 为 什么 有 些 递归 过 程 能 产 
生 迭 代 型 的 计算 过 程 (也 就 是 说 ， 只 需要 常量 空间 就 可 以 求 值 ) ， 而 另 一 些 递归 过 程 却 生 成 递 
归 型 的 计算 。 无 法 回答 这 些 问 题 的 原因 在 于 ， 元 循环 求 值 器 本 身 也 是 一 个 Lisp 程 序 ， 并 因此 
继承 了 基础 Lisp 系 统 的 控制 结构 。 为 了 提供 有 关 Lisp 求 值 器 的 控制 结构 的 一 个 更 完整 的 描述 ， 
我 们 就 必须 转 到 一 个 比 Lisp 本 身 更 基本 的 层次 上 去 工作 。 

在 这 一 章 里 ， 我 们 将 基于 传统 计算 机 的 一 步 一 步 操 作 ， 描 述 一 些 计 算 过 程 。 这 类 计算 机 
也 称 为 寄存 器 机 器 ， 它 们 能 顺序 地 执行 一 些 指 令 ， 对 一 组 固定 称 为 寄存 器 的 存储 单元 的 内 容 
完成 各 种 操作 。 寄 存 器 机 器 的 一 条 典型 指令 将 一 种 基本 操作 作用 于 某 几 个 寄存 器 的 内 容 ， 并 
将 作用 的 结果 赋 给 另 一 个 寄存 器 。 我 们 对 寄存 器 机 器 执行 的 计算 过 程 的 描述 ， 看 起 来 很 像 传 
统计 算 机 的 “机 器 语言 ”程序 。 当 然 ， 我 们 在 这 里 不 打算 关注 任何 特定 计算 机 的 机 器 语言 ， 
而 是 要 考察 若干 Lisp 过 程 ， 并 为 执行 每 个 过 程 设 计 一 部 特殊 的 寄存 器 机 器 。 这 样 ， 我 们 可 以 
把 自己 的 工作 看 成 是 硬件 结构 设计 师 ， 而 不 是 机 器 语言 的 计算 机 程序 员 。 在 这 些 寄存 器 机 器 
的 设计 中 ， 我 们 要 开发 出 一 些 机 制 ， 以 实现 各 种 重要 的 程序 设计 结构 ， 例 如 递归 。 我 们 还 要 
给 出 一 种 能 够 用 于 描述 寄存 器 机 器 设计 的 语言 。 在 5.2 节 里 ， 我 们 将 要 实现 一 个 Lisp 程 序 ， 它 
能 够 使 用 这 样 的 描述 去 模拟 我 们 所 设计 的 机 器 。 

我 们 的 寄存 器 机 器 的 大 部 分 基本 操作 都 非常 简单 。 例 如 ， 有 一 个 操作 从 两 个 寄存 器 里 取 
出 值 后 相 加 ， 产 生 结 果 后 存 人 第 三 个 寄存 器 。 这 样 一 个 操作 可 以 由 很 容易 描述 的 硬件 来 执行 。 
为 了 处 理 表 结 构 ， 我 们 当然 还 要 使 用 存储 器 操作 car、cdr 和 cons， 它 们 要 求 更 精细 的 存储 
分 配 机 制 。 我 们 将 在 5.3 节 里 研究 如 何 基于 更 基本 的 操作 实现 它们 。 

在 已 经 积累 了 许多 将 简单 过 程 构造 为 寄存 器 机 器 的 经 验 之 后 ， 我 们 将 在 5.4 节 里 设计 一 部 
机 器 ， 它 能 够 执行 由 4.1 节 里 的 元 循环 求 值 器 描述 的 算法 。 这 一 工作 将 填补 起 我 们 对 于 如 何 解 
释 Scheme 表 达 式 的 理解 中 的 缺陷 ， 为 求 值 器 里 的 控制 机 制 提供 一 个 显 式 模型 。 在 5.5 节 里 ,我 
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们 将 研究 一 个 简单 的 编译 器 ， 它 能 将 Scheme 程序 翻译 为 指令 的 序列 ， 这 种 序列 可 以 直接 通过 
上 述 的 求 值 器 寄存 器 机 器 的 寄存 器 和 操作 去 执行 。 


5.1 寄存 器 机 器 的 设计 


要 设计 一 部 寄存 器 机 器 ， 我 们 必须 设计 好 它 的 数据 通路 (寄存 器 和 操作 ) 和 控制 器 ， 该 
控制 器 实现 操作 的 顺序 执行 。 为 了 展示 一 部 简单 寄存 器 机 器 的 设计 过 程 ， 让 我 们 考察 欧 几 里 
得 算法 ， 它 用 于 计算 两 个 整数 的 最 大 公约 数 〈(GCD ) 。 正 如 我 们 在 1.2.5 节 已 经 看 到 过 的 ， 欧 几 
里 得 算法 可 以 通过 一 个 迭代 计算 过 程 执行 ， 由 下 面 的 过 程 描述 : 

(define (gcd a b) 

(if (= b 0) 


(gcd b (remainder a b)))) 

如 果 一 部 机 器 要 执行 这 一 算法 ， 它 就 必须 维持 好 两 个 数 a 和 2 的 变动 轨迹 ， 所 以 ， 让 我 们 
假定 这 两 个 数 被 保存 在 名 字 与 它们 相同 的 两 个 寄存 器 里 。 所 需要 的 基本 操作 包括 检查 寄存 器 b 
的 内 容 是 否 为 0， 计 算 寄存 器 a 的 内 容 除 以 寄存 器 b 的 内 容 得 到 的 余数 。 余 数 操作 是 一 个 复杂 的 
计算 过 程 ， 但 现在 暂时 假定 我 们 有 一 个 能 计算 余数 的 基本 设备 。 在 这 个 GCD 算 法 的 每 次 循环 
里 ， 寄 存 器 a 的 内 容 都 必须 用 寄存 器 b 的 内 容 取代 ， 而 b 的 内 容 必 须 代 以 原来 a 的 内 容 除 以 原来 
b 的 内 容 的 余数 。 如 果 这 些 操作 能 在 同一 个 时 间 完 成 ， 事 情 就 会 方便 得 多 。 但 是 在 我 们 的 寄存 
器 机 器 模型 里 ， 假 定 每 一 步 中 只 能 给 一 个 寄存 器 赋 新 值 。 为 了 完成 上 述 代 换 ， 我 们 的 机 器 里 
要 使 用 第 三 个 “临时 性 的 ”寄存 器 ， 称 为 t。( 首 先 将 余数 放 在 寄存 器 t ， 而 后 将 b 的 内 容 存 人 
a 中 ， 最 后 再 把 保存 在 t 里 的 余数 存 人 b 中 。) 

我 们 可 以 用 数据 通路 图 来 展示 这 个 机 器 中 所 需 的 寄存 器 和 各 种 操作 ， 如 图 5-1 所 示 。 在 这 
个 图 里 ， 寄 存 器 (a, bit) 用 和 矩形 表示 ， 给 某 个 寄存 器 赋值 的 一 种 方式 用 一 个 箭头 表示 ， 
箭头 的 后 面 画 着 一 个 XxX， 从 数 源 指向 被 赋值 的 寄存 器 。 我 们 可 以 将 这 里 的 x 看 作 一 个 按钮 ， 在 
按压 它 的 时 候 ， 就 会 允许 这 个 值 从 数据 源 “ 流 向 ”指定 的 寄存 器 。 位 于 按钮 旁边 的 名 字 用 于 
表示 相应 的 按钮 。 这 些 名 字 可 以 任意 取 ， 因 此 最 好 选用 助 记 的 名 字 (例如 ， 用 a<-b 表 示 按 压 
这 一 按钮 将 把 寄存 器 b 的 内 容 赋 值 给 寄存 器 a)。 一 个 寄存 器 的 数据 源 可 以 是 另 一 个 寄存 器 (就 
像 赋 值 a< -b 的 情况 ) ， 或 者 是 一 个 操作 的 结果 (如 赋值 t<-r 的 情况 )， 或 者 是 一 个 常数 (一 
个 不 允许 改变 的 内 置 的 值 ， 在 数据 通路 图 上 用 一 个 三 角形 表示 ， 其 中 包含 着 这 个 常数 )。 

在 数据 通路 图 里 ， 从 常数 或 者 寄存 器 内 容 出 发 计算 出 一 个 值 的 操作 用 一 个 梯形 框 表示 ， 
其 中 写 着 有 关 操 作 的 名 字 。 例 如 ， 在 图 5-1 里 用 rem 标 记 的 梯形 框 表示 一 个 计算 余数 的 操作 ， 
它 针 对 寄存 器 a 和 b 的 内 容 做 计算 ， 因 为 它们 都 连接 在 这 个 操作 框 上 。 有 箭头 〈 上 面 没有 按钮 
的 ) 从 操作 的 输入 寄存 器 和 常量 指向 操作 框 ， 还 有 箭头 从 操作 的 输出 连接 到 寄存 器 。 检 测 用 
一 个 圆圈 表示 ， 其 中 写 着 检测 的 名 字 。 例 如 ， 在 这 一 GCD 机 器 里 有 一 个 检测 操作 ， 它 检测 寄 
存 器 b 的 内 容 是 否 为 0。 一 个 检测 同样 也 有 从 其 输入 寄存 器 和 常量 来 的 箭头 ， 但 没有 输出 箭头 ， 
检测 的 结果 值 将 由 控制 器 使 用 ， 并 不 用 于 数据 通路 。 从 整体 上 看 ， 数 据 通路 图 表示 了 一 部 机 
器 里 所 需要 的 寄存 器 和 操作 ， 以 及 它们 之 间 的 数据 连接 。 如 果 我 们 将 箭头 看 作 连 线 ， 将 X 按 钮 
看 作 开关 ， 这 种 数据 通路 图 很 像 是 一 部 机 器 的 线路 图 ， 就 像 这 部 机 器 可 以 用 电子 元 件 构造 出 
来 似 的 。 
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图 5-1 一 部 GCD 机 器 的 数据 通路 


为 了 使 这 一 数据 通路 图 能 够 实现 GCD 的 计算 ， 其 中 的 按钮 就 必须 按照 正确 的 顺序 按 动 。 
我 们 用 一 个 控制 器 图 描述 这 种 顺序 ， 如 图 5-2 所 示 。 控 制 器 图 里 的 元 素描 述 的 是 数据 通路 图 里 
的 部 件 应 该 如 何 操作 。 在 控制 器 图 里 的 矩形 表示 的 是 数据 通路 按钮 的 按压 动作 ， 其 中 的 箭头 
表示 从 一 个 步骤 到 下 一 步骤 的 顺序 。 在 这 一 图 形 里 的 菱形 表示 一 次 决策 ， 随 后 有 两 个 可 以 走 
的 箭头 ， 具 体 走 哪 一 个 要 看 菱形 里 标明 的 数据 通路 所 检测 的 值 。 我 们 可 以 用 一 种 物理 类 比 来 
解释 这 个 控制 器 : 将 这 个 图 看 作 一 个 迷宫 ， 其 中 有 一 个 在 里 面 滚 的 弹子 。 当 弹子 滚 到 一 个 盒 
T (FZ) 里 的 时 候 ， 就 会 按压 在 这 里 盒子 里 标明 的 数据 通路 按钮 ， 当 弹子 滚 到 一 个 决策 结 
点 时 (例如 这 里 对 b=0 的 检测 )， 它 究竟 从 哪 条 路 线 离开 将 由 指定 检测 的 结果 确定 。 综 合 在 一 
起 ， 这 里 的 数据 通路 和 控制 器 完全 描述 了 一 部 计算 GCD 的 机 器 。 在 寄存 器 a 和 b 里 安放 了 适当 
的 值 之 后 ， 控 制 器 的 启动 (弹子 的 滚动 ) 从 标明 start 的 位 置 开 始 。 当 控制 器 达到 done 时 ， 
就 会 看 到 在 寄存 器 a 里 的 GCD 值 。 





图 5-2 一 部 GCD 机 器 所 用 的 控制 器 
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练习 5.1 ”请 设计 一 部 寄存 器 机 器 ， 采 用 由 下 面 过 程 所 描述 的 迭代 算法 计算 阶乘 。 请 画 出 
这 一 机 器 的 数据 通路 图 和 控制 器 图 。 
(define (factorial n) 
(define (iter product counter) 
(if (> counter n) 
product 
(iter (* counter product) 
(+ counter 1)))) 
(bes 证 17) 


5.1.1 一 种 描述 寄存 器 机 器 的 语言 


数据 通路 图 和 控制 器 图 很 适合 描述 像 GCD 这 样 的 简单 机 器 ， 但 如 果 用 于 描述 大 型 机 器 ， 
例如 Lisp 的 解释 器 ， 这 些 图 就 会 变 得 非常 笨拙 不 便 了 。 为 了 能 够 处 理 复杂 的 机 器 ， 我 们 将 创 
造 一 种 语言 ， 它 能 以 正文 的 形式 表现 出 由 数据 通路 图 和 控制 器 图 所 给 出 的 所 有 信息 。 我 们 将 
从 一 种 直接 模仿 这 些 图 示 的 记 法 形式 开始 。 

在 定义 一 部 机 器 的 数据 通路 图 时 ， 我 们 需要 描述 其 中 的 寄存 器 和 各 种 操作 。 为 了 描述 一 
个 寄存 器 ， 我 们 需要 给 它 取 一 个 名 字 ， 并 描述 那些 给 它 赋值 的 按钮 。 这 里 又 需要 给 出 每 个 按 
钮 的 名 字 ， 并 描述 在 这 些 按钮 的 控制 之 下 进入 寄存 器 的 数据 源 (这 种 数据 源 是 一 个 寄存 器 ， 
或 一 个 常量 ,或 一 个 操作 )。 为 了 描述 一 个 操作 ， 我 们 也 需要 给 它 一 个 名 字 ， 并 描述 好 它 的 输 
入 (寄存 器 或 者 常量 )。 

我 们 将 一 部 机 器 的 控制 器 定义 为 一 个 指令 序列 ， 另 外 再 加 上 一 些 标号 ， 它 们 标明 了 序列 
中 的 一 些 入 口 点 。 一 条 指令 可 以 是 下 面 几 种 东西 之 一 : 

。 数 据 通 路 图 中 的 一 个 按钮 ， 按 压 它 将 使 一 个 值 被 赋 给 一 个 寄存 器 。( 这 对 应 于 控制 器 图 

里 的 一 个 矩形 框 。) 

。test 指 令 ， 执 行 相应 的 检测 。 

。 有 条 件 地 转移 到 某 个 由 控制 器 标号 指明 的 位 置 的 分 支 指 令 (branch 指 令 )， 它 基于 前 面 

检测 的 结果 (检测 和 分 支 一 起 对 应 于 控制 器 图 里 的 菱形 )。 如 果 检 测 为 假 ， 控 制 器 将 继 

续 序 列 中 的 下 一 条 指令 ， 否 则 控制 器 就 将 继续 去 做 指定 标号 之 后 的 下 一 条 指令 。 

。 无 条 件 分 支 指令 (goto 指 令 ) 指明 继续 执行 的 控制 器 标号 。 

机 器 将 从 控制 器 指令 序列 的 开始 处 启动 ， 直 到 执行 达到 序列 末尾 时 停止 。 这 些 指 令 总 按照 它 
们 列 出 的 顺序 执行 ， 除 非 遇 到 分 支 指令 改变 控制 流 。 

图 5-3 显 示 了 用 这 种 方式 描述 的 GCD 机 器 。 这 一 实例 只 是 为 了 说 明了 这 种 表示 方式 的 通用 
性 ， 因 为 GCD 机 器 是 一 个 非常 简单 的 实例 ， 其 中 的 每 个 寄存 器 只 有 一 个 按钮 ， 每 个 按钮 和 检 
测 都 只 在 控制 器 里 使 用 了 一 次 。 

不 幸 的 是 ， 这 种 描述 很 难 阅读 。 为 了 理解 控制 器 里 的 指令 ， 我 们 必须 时 常 去 参照 查看 按 
钮 的 名 字 和 操作 的 名 字 ; 为 了 理解 一 个 按钮 究竟 做 了 什么 事情 ， 我 们 又 必须 参照 查看 操作 名 
字 的 定义 。 为 此 我 们 希望 改变 这 种 记 法 形式 ， 把 来 自 数据 通路 图 和 控制 器 图 的 描述 组 合 到 一 
起 ， 使 我 们 能 在 一 起 观看 它们 。 

为 了 得 到 这 种 描述 形式 ， 我 们 将 用 按钮 和 操作 的 行为 定义 代替 为 它们 任意 取 的 名 字 。 也 
就 是 说 ， 不 采用 在 一 个 地 方 (在 控制 器 里 ) 说 “按压 按钮 tL<-r”， 并 在 另 一 个 地 方 ( 在 数据 
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通路 图 里 ) 说 “按压 t<-r 将 把 操作 rem 的 值 赋 给 寄存 器 t” 以 及 “操作 rem 的 输入 是 寄存 器 a 
和 b 的 内 容 ” 的 方式 ， 以 后 将 (在 控制 器 里 ) 直接 说 :“ 按 压 那个 按钮 ， 将 操作 rem 对 寄存 器 a 
和 b 的 内 容 算出 的 值 赋 给 寄存 器 t”。 与 此 类 似 ， 不 是 (在 控制 器 里 ) 说 “执行 = 检测 ”并 另外 
(在 数据 通路 里 ) 说 “这 个 = 检测 是 对 寄存 器 b 的 内 容 和 常量 0 操作 ”， 而 将 说 “对 于 寄存 器 b 
的 内 容 和 常量 0 做 = 检测 ”我 们 将 忽略 掉 数 据 通路 描述 ， 只 留 下 控制 器 序列 。 这 样 ，GCD 机 
器 就 可 以 描述 为 下 面 的 形式 : 


(controller 
test-b 
(test (op =) (reg b) (const 0)) 


(branch (label gcd-done)) 
(assign t (op rem) (reg a) (reg b)) 
(assign a (reg b)) 
(assign b (reg t)) 
(goto (label test-b) ) 
gcd-done) 


(data-paths 

(registers 
( (name a) 
(buttons ((name a<-b) (source (register b))))) 
((name b) 


(buttons ((name b<-t) (source (register t))))) 


( (name t) 
(buttons ((name t<-r) (source (operation rem)))))) 


(operations 

((name rem) 
(inputs (register a) (register b))) 
( (name =) 


(inputs (register b) (constant 0))))) 


(controller 
test-b ; label 
(test =) ; test 
(branch (label gcd-done) ) ; conditional branch 
(t<-r) ; button push 
(a<-b) ; button push 
(b<-t) ; button push 
(goto (label test-b) ) ; unconditional branch 
gcd-done) ; label 





图 5-3 一 部 GCD 机 器 的 规范 描述 


与 图 5-3 给 出 的 形式 相 比 ， 现 在 这 种 描述 形式 更 容易 阅读 ， 但 它 也 还 有 一 些 缺 点 : 

"对 于 大 型 机 器 而 言 ， 这 种 描述 太 哆 唆 ， 因 为 只 要 控制 器 指令 序列 中 多 次 提 到 某 个 数据 
通路 元 素 ， 该 元 件 的 完整 描述 就 会 反复 地 出 现 (在 GCD 实 例 里 并 没有 出 现 这 一 问题 ， 因 
为 在 这 里 ， 每 个 操作 和 按钮 都 只 出 现 了 一 次 )。 进 一 步 说 ， 重 复出 现 的 数据 通路 描述 将 
使 机 器 中 的 实际 数据 通路 结构 变 得 模糊 不 清 ， 对 于 大 型 的 机 器 而 言 ， 到 底 有 多 少 个 寄存 
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器 、 操 作 和 按钮 ， 它 们 之 间 如 何 连 接 的 情况 都 将 更 难看 清楚 。 

* 因为 机 器 定义 中 的 控制 器 指令 看 起 来 像 Lisp 的 表达 式 ， 因 此 就 使 人 很 容易 忘记 它们 并 不 

是 任意 的 Lisp 表 达 式 ， 只 能 表示 合法 的 机 器 指令 。 举 例 来 说 ， 这 里 的 操作 只 能 直接 对 常 

量 和 寄存 器 的 内 容 去 做 ， 不 能 作用 于 其 他 操作 的 结果 。 
虽然 存在 这 些 缺 点 ， 在 这 一 章 里 我 们 还 是 准备 始终 采用 这 一 寄存 器 机 器 语言 ， 因 为 下 面 将 更 
加 关注 对 于 控制 器 的 理解 ， 而 较 少 注意 数据 通路 里 的 元 素 和 连接 。 当 然 ， 我 们 还 是 应 该 记 住 ， 
对 于 设计 实际 机 器 而 言 ， 数 据 通 路 的 设计 是 至 关 重 要 的 。 

练习 5.2 请 用 这 里 的 寄存 器 机 器 语言 描述 练习 5.1 的 迭代 型 阶乘 机 器 。 

动作 

我 们 现在 要 修改 上 述 GCD 机 器 ， 以 便 能 把 想 求 GCD 的 数 输入 给 它 ， 并 使 它 能 把 结果 从 终 
端 打印 出 来 。 我 们 并 不 想 讨 论 如 何 使 机 器 能 够 读 和 人 和 打印 ， 而 是 假定 这 些 都 可 以 作为 基本 操 
作 使 用 (就 像 我 们 在 Scheme 里 需要 时 就 直接 用 read 和 display 一 样 ) "s, 

zead 就 像 我 们 已 经 在 用 的 那些 操作 ， 它 产生 出 一 个 可 以 保存 到 寄存 器 里 的 值 。 但 是 
read 并 不 从 任何 寄存 器 取得 输入 ， 它 所 产生 的 值 依赖 于 某 些 情况 ， 而 这 些 情况 发 生 在 我 们 所 
设计 的 机 器 的 组 成 部 分 之 外 。 我 们 允许 机 器 的 一 些 操作 具有 这 种 行为 方式 ， 并 据 此 画 出 或 者 
说 明 read 的 使 用 ， 就 像 所 用 的 是 一 个 能 计算 出 值 的 操作 一 样 。 

男 一 方面 ，print 与 我 们 已 经 使 用 的 任何 操作 都 有 本 质 性 的 不 同 : 它 并 不 产生 任何 可 以 
存 入 寄存 器 的 输出 值 。 虽 然 print 会 产生 一 种 效果 ,但 这 种 效果 却 不 是 我 们 所 设计 的 机 器 的 
一 部 分 。 下 面 把 这 类 操作 称 为 动作 。 在 数据 通路 图 上 ， 动 作 的 表示 形式 就 像 是 一 个 能 产生 值 
的 操作 一 一 用 一 个 梯形 ， 其 中 包含 着 这 个 动作 的 名 字 。 应 该 有 来 自 输入 (寄存 器 或 者 常量 ) 
的 箭头 指向 动作 框 ， 我 们 也 为 这 些 动 作 关联 一 个 按钮 ， 按 压 这 个 按钮 将 导致 该 动作 的 出 现 。 
为 了 使 控制 器 可 以 按压 动作 的 按钮 ， 在 这 里 增加 一 种 新 的 称 为 perform 的 指令 。 这 样 ， 在 控 
制 器 序列 里 ， 打 印 寄 存 器 a 的 内 容 的 动作 用 下 面 指令 表示 : 


(perform (op print) (reg a)) 


图 5-4 显 示 的 是 新 的 GCD 机 器 的 数据 通路 和 控制 器 。 这 里 我 们 没有 让 这 一 机 器 打印 结 有 果 后 
就 停止 ， 而 是 让 它 重 新 开始 ， 因 此 这 部 机 器 将 反复 地 读 入 一 对 数 ， 计 算 它 们 的 GCD 并 打印 出 
结果 。 这 种 结构 很 像 我 们 在 第 4 章 讲 的 解释 器 里 用 的 驱动 循环 。 


5.1.2 机 器 设计 的 抽象 


我 们 经 常 需要 定义 一 部 包括 某 些 “基本 ”操作 的 机 器 ， 这 些 操作 本 身 实际 上 也 非常 复杂 。 
举例 说 ， 在 5.4 和 5.5 节 里 ， 我 们 将 要 把 Scheme 的 环境 操作 当 作 基本 操作 。 这 种 抽象 非常 有 价 
值 ， 因 为 它 使 我 们 能 忽略 机 器 中 一 些 部 分 的 细节 ， 将 注意 力 集中 到 有 关 设 计 的 其 他 方面 。 当 
然 ， 我 们 能 够 将 大 量 复杂 事务 隐藏 起 来 ， 这 并 不 意味 着 该 机 器 的 设计 是 不 实际 的 。 因 为 我 们 
总 能 用 一 些 更 简单 的 基本 操作 来 取代 这 些 复杂 的 “基本 操作 ”。 

考虑 上 面 的 GCD 机 器 ， 在 这 一 机 器 里 有 一 条 指令 ， 它 计算 寄存 器 a 和 b 的 内 容 的 余数 ， 并 
将 结果 赋值 给 寄存 器 t 。 如 果 我 们 希望 在 构造 这 一 GCD 机 器 时 不 用 这 种 余数 基本 操作 ， 那 么 就 





”6 这 一 假设 掩盖 了 很 多 复杂 问题 。 通 常 在 Lisp 系 统 的 实现 里 ， 大 部 分 工作 就 是 完成 读 入 和 打印 的 工作 。 
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必须 描述 清楚 如 何 利用 更 简单 的 操作 计算 出 余数 来 ， 例 如 采用 减法 。 我 们 确实 能 写 出 下 面 的 
能 够 找 出 余数 的 Scheme 过 程 : 
(define (remainder n d) 
(if (< 五 d) 
(remainder (- n d) d))) 





(controller 


gcd-loop 





(assign a (op read) ) 
(assign b (op read) ) 

test-b 
(test (op =) (reg b) (const 0)) 
(branch (label gcd-done) ) 
(assign t (op rem) (reg a) (reg b)) 
(assign a (reg b)) 
(assign b (reg t)) 
(goto (label test-b)) 

gcd-done 
(perform (op print) (reg a)) 
(goto (label gcd-loop) ) ) 








图 5-4 一 部 读 输 入 并 打印 结果 的 GCD 机 器 


这 样 ， 我 们 就 可 以 用 一 个 减法 操作 和 一 个 比较 检测 ， 去 代替 GCD 机 器 的 数据 通路 里 的 余数 操 
作 。 图 5-5 显 示 了 这 一 细 化 后 的 机 器 的 数据 通路 和 控制 器 。 原 GCD 控 制 器 定义 里 的 指令 : 


(assign t (op rem) (reg a) (reg b)) 


现在 被 一 个 包含 循环 的 指令 序列 取代 了 ， 如 图 5-6 所 示 。 
练习 5.3 请 设计 一 部 机 器 ， 采 用 牛顿 法 计算 平方 根 ， 如 1.1.7 节 所 描述 的 : 
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(define (sqrt x) 
(define (good-enough? guess) 
(< (abs (- (square guess) x)) 0.001)) 
(define (improve guess) 
(average guess (/ x guess))) 
(define (sqrt-iter guess) 
(if (good-enough? guess) 
guess 
(sqrt-iter (improve guess) )) ) 
(sqrt-iter 1.0)) 





start 





图 5-5 细 化 后 的 GCD 机 器 的 数据 通路 和 控制 器 


在 开始 时 ， 请 假设 good-enough? 和 improve 都 是 可 用 的 基本 操作 。 


FREMSEL HHH 


而 后 说 明 如 何 基于 算术 


操作 展开 它们 。 请 描述 这 些 sqrt 机 器 的 设计 ， 画 出 它们 数据 通路 图 ， 并 用 寄存 器 机 器 语言 写 


出 控制 器 的 定义 。 
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(controller 

test-b 
(test (op =) (reg b) (const 0)) 
(branch (label gcd-done) ) 
(assign t (reg a)) 

rem-loop 
(test (op <) (reg t) (reg b)) 
(branch (label rem-done) ) 
(assign t (op -) (reg t) (reg b)) 


(goto (label rem-loop)) 


rem-done 
(assign a (reg b)) 
(assign b (reg t)) 
(goto (label test-b)) 
gcd-done) 





图 5-6 针对 图 5-5 中 GCD 机 器 的 控制 器 指令 序列 
5.1.3 子 程序 


在 设计 一 部 执行 某 种 计算 的 机 器 时 ， 我 们 常常 更 希望 能 对 其 中 的 一 些 部 件 做 出 一 些 安 
排 ， 使 计算 中 某 些 不 同 的 部 分 可 以 共享 这 些 部 件 ， 而 不 是 重复 描述 这 些 部 件 。 现 在 考虑 一 
部 包含 着 两 个 GCD 计 算 的 机 器 ， 一 个 找 出 寄存 器 a 和 b 的 内 容 的 GCD， 另 一 个 找 出 寄存 器 c 
和 ad 的 内 容 的 GCD。 在 开始 时 ， 我 们 可 以 假定 已 经 有 了 一 个 gca 基 本 操作 ， 而 后 再 基于 更 基 
本 的 操作 展开 gcd 的 这 两 个 实例 。 图 5-7 中 只 显示 了 结果 机 器 的 数据 通路 里 与 GCD 有 关 的 部 
分 ， 没 有 显示 它们 与 机 器 中 其 他 部 分 的 连接 。 这 个 图 里 还 显示 了 这 一 机 器 的 控制 器 序列 里 
的 相应 部 分 。 

在 这 一 机 器 里 有 两 个 余数 操作 框 和 两 个 检测 相等 的 框 。 如 果 重 复出 现 的 部 件 比较 复杂 ， 
就 像 这 里 的 余数 框 ， 这 样 做 就 不 是 构造 这 一 机 器 的 最 经 济 方式 了 。 我 们 希望 能 用 同一 个 部 件 
完成 这 两 个 GCD 计 算 ， 以 避免 数据 通路 部 件 的 重复 出 现 ， 条 件 是 这 样 做 时 不 会 影响 更 大 的 机 
器 计算 里 的 其 他 部 分 。 如 果 在 控制 器 到 达 gcda-2 的 时 候 ， 寄 存 器 a 和 b 里 的 值 已 经 不 再 需要 了 
(或 者 ， 如 果 为 了 保证 安全 ， 已 经 将 这 些 值 搬 到 了 其 他 寄存 器 ) ， 我 们 就 可 以 修改 这 部 机 器 ， 
使 它 在 计算 第 二 个 GCD 时 也 使 用 寄存 器 a 和 b ， 而 不 用 寄存 器 c 和 qd， 就 像 在 第 一 次 计算 GCD 时 
那样 。 如 果 这 样 做 ， 我 们 就 会 得 到 如 图 5-8 所 示 的 控制 器 序列 。 

这 样 我 们 就 除去 了 重复 的 数据 通路 部 件 (因此 数据 通路 又 变 回 到 图 5-1 的 样子 ) ， 但 是 在 
控制 器 里 还 是 有 两 个 有 关 GCD 的 序列 ， 它 们 之 间 的 差异 仅仅 在 于 入 口 标号 不 同 。 如 果 能 将 这 
样 的 两 个 序列 代 换 为 到 同一 个 序列 (一 个 gcd 子 程序 ) 的 不 同 分 支 ， 并 能 在 该 序列 最 后 重新 
通过 分 支 ， 回 到 主流 指令 序列 中 正确 的 位 置 ， 那 当然 就 更 好 了 。 我 们 可 以 通过 如 下 方式 完成 
这 一 工作 : 在 分 支 进 入 gcd 之 前 ， 首 先 在 特定 的 寄存 器 continue 里 存 和 一 个 区 分 值 (例如 0 
或 者 1)， 在 gcd 子 程序 结束 时 ， 让 计算 根据 寄存 器 continue 里 的 值 决定 是 回 到 after- 
gcd-1 还 是 after-gcd-2。 图 5-9 显 示 了 这 样 做 之 后 的 控制 器 序列 里 的 相关 部 分 ， 其 中 只 包 
含 了 Tgcad 指 令 的 一 个 副本 。 
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gcd-1 
(test (op =) (reg b) (const 0)) 


(branch (label after-gcd-1) ) 
(assign t (op rem) (reg a) (reg b)) 
(assign a (reg b)) 
(assign b (reg t)) 
(goto (label gcd-1) ) 

after-gcd-1 


gcd-2 
(test (op =) (reg d) (const 0)) 
(branch (label after-gcd-2) ) 
(assign s (op rem) (reg c) (reg d)) 
(assign c (reg d)) 
(assign d (reg s)) 
(goto (label gcd-2) ) 

after-gcd-2 





图 5-7 一 部 完成 两 次 GCD 计 算 的 机 器 的 数据 通路 和 控制 器 的 一 部 分 


gcd-1 
(test (op =) (reg b) (const 0)) 
(branch (label after-gcd-1) ) 
(assign t (op rem) (reg a) (reg b)) 
(assign a (reg b)) 
(assign b (reg t)) 
(goto (label gcd-1) ) 

after-gcd-1 


gcd-2 
(test (op =) (reg b) (const 0)) 
(branch (label after-gcd-2) ) 
(assign t (op rem) (reg a) (reg b)) 
(assign a (reg b)) 
(assign b (reg t)) 
(goto (label gcd-2)) 

after-gcd-2 





图 5-8 在 一 部 机 器 中 为 两 个 不 同 GCD 计 算 使 用 了 同样 的 
数据 通路 部 件 ， 这 里 是 它 的 控制 器 序列 的 一 部 分 
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gcd 
(test (op =) (reg b) (const 0)) 
(branch (label gcd-done) ) 
(assign t (op rem) (reg a) (reg b)) 
(assign a (reg b)) 
(assign b (reg t)) 
(goto (label gcd) ) 

gcd-done 
(test (op =) (reg continue) (const 0) ) 
(branch (label after-gcd-1) ) 
(goto (label after-gcd-2) ) 


;; Before branching to gcd from the first place where 


i it is needed, we place 0 in the continue register 
(assign continue (const 0) ) 
(goto (label gcd) ) 

after-gced-1 


Ti Before the second use of gcd, we place | in the continue register 
(assign continue (const 1)) 
(goto (label gcd) ) 

after-gcd-2 





图 5-9 采用 一 个 continue 寄 存 器 ， 避 免 像 图 5-8 那 样 重 复 的 控制 器 序列 


在 处 理 很 小 的 问题 时 ， 这 是 一 种 合理 的 方法 ， 但 如 果 在 控制 器 序列 里 出 现 了 许多 GCD 计 
算 的 实例 ， 事 情 就 会 变 得 很 难 弄 了。 为 了 在 gcd 子 程序 完成 之 后 确定 转 到 哪里 继续 执行 ， 我 
们 就 需要 为 在 控制 器 里 所 有 使 用 gcad 的 地 方 加 上 做 检测 的 数据 通路 和 分 支 指令 。 实 现 子 程序 
的 另 一 种 更 有 力 的 方法 ， 是 在 寄存 器 continue 里 保存 控制 器 序列 里 一 个 入 口 点 的 标号 ， 用 
这 个 标号 指明 子 程序 结束 时 执行 应 从 哪里 继续 下 去 。 要 实现 这 一 策略 ， 就 需要 在 寄存 器 机 器 
里 的 数据 通路 与 控制 器 之 间 建 立 一 类 新 的 联系 : 这 里 必须 有 一 种 方式 ， 能 用 于 控制 器 序列 里 
一 个 标号 的 值 赋 给 一 个 寄存 器 ， 而 所 用 的 赋值 方式 又 必须 使 这 种 值 可 以 从 寄存 器 里 提取 出 来 ， 
用 于 确定 继续 执行 的 指定 入 口 点 。 

为 了 实现 这 种 能 力 ， 我 们 要 扩充 寄存 器 机 器 里 assign 指 令 的 能 力 ， 人 允许 将 控制 器 序列 里 
的 标号 作为 值 〈 作 为 一 种 特殊 常量 ) 赋 给 一 个 寄存 器 。 还 要 扩充 goto 指 令 的 能 力 ， 允 许 执行 
进程 不 仅 可 以 从 一 个 常量 标号 描述 的 入 口 点 继续 ， 还 可 以 从 一 个 寄存 器 的 内 容 所 描述 的 入 口 
点 继续 下 去 。 利 用 这 些 新 的 结构 ， 我 们 就 可 以 在 gcd 子 程序 的 结束 处 放 一 条 分 支 指令 ， 要 求 
转向 保存 在 continue 寄 存 器 里 的 那个 位 置 。 这 样 做 出 的 控制 器 序列 如 图 5-10 所 示 。 

如 果 一 部 机 器 里 有 多 个 子 程序 ， 那 么 可 以 采用 多 个 继续 寄存 器 (例如 ，gcd-continue,， 
factorial-continue), 也 可 以 让 所 有 子 程序 共享 同一 个 continue 寄 存 器 。 共 享 一 个 寄 
存 器 当然 更 经 济 一 些 ,但 是 在 出 现 一 个 子 程序 (subl) 调用 另 一 个 子 程序 (sub2) 的 情况 
下 ， 我 们 就 必须 小 心 了 。 除 非 sub1i 在 设置 cont inue 寄 存 器 以 便 准备 去 调用 sub2 之 前 ， 事 
先 保 存 了 continue 寄 存 器 的 内 容 ， 否 则 在 sub1l 本 身 结束 时 就 不 知道 该 往 哪 里 去 了 。 下 一 市 
将 开发 一 种 用 于 处 理 递 归 的 机 制 ， 它 也 同样 为 解决 子 程序 垦 套 调用 提供 了 一 种 更 好 的 办 法 。 
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gcd 
(test (op =) (reg b) (const 0)) 
(branch (label gcd-done) ) 
(assign t (op rem) (reg a) (reg b)) 
(assign a (reg b)) 
(assign b (reg t)) 
(goto (label gcd) ) 

gcd-done 


(goto (reg continue) ) 


3; Before calling gcd, we assign to continue 

3; the label to which gcd should return. 
(assign continue (label after-gcd-1) ) 
(goto (label gcd) ) 


after-gcd-1 


3; Here is the second call to gcd, with a different continuation. 
(assign continue (label after-gcd-2) ) 
(goto (label gcd) ) 

after-gcd-2 





图 5-10 为 continue 寄 存 器 做 标号 赋值 ， 可 以 简化 并 推广 图 5-9 中 展示 的 策略 


5.1.4 采用 堆栈 实现 递归 


有 了 至 今 所 阐述 的 思想 ,我 们 已 经 可 以 通过 描述 有 关 的 寄存 器 机 器 ， 实 现 所 有 的 和 迭代 计 
算 过 程 了 ， 其 中 用 一 个 寄存 器 对 应 于 计算 过 程 中 的 一 个 状态 变量 。 这 种 机 器 反复 地 执行 一 个 
控制 器 循环 ， 并 不 断 改变 各 个 寄存 器 的 内 容 ， 直 至 满足 了 某 些 结束 条 件 。 在 控制 器 序列 中 的 
每 一 点 ， 机 器 的 状态 《对 应 于 迭代 计算 过 程 的 状态 ) 完全 由 这 些 寄存 器 的 内 容 (对 应 于 状态 
变量 的 值 ) 所 确定 。 

然而 ， 要 想 实 现 递归 计算 过 程 ， 我 们 还 需要 增加 新 的 机 制 。 考 虑 下 面 计算 阶乘 的 递归 方 
法 ， 我 们 在 1.2.1 节 第 一 次 看 到 它 : 


(define (factorial n) 
(if (= n 1) 
1 
(* (factorial (- m 1)) n))) 
正如 从 这 一 过 程 中 可 以 看 到 的 ， 在 计算 n! 时 将 需要 计算 (n 一 1) !。 用 下 面 过 程 描述 的 另 一 部 
GCD 机 器 


(define (gcd a b) 
(if (= b 0) 
a 
(gcd b (remainder a b)))) 


也 类 似 地 需要 去 计算 另 一 个 GCD。 但 是 ， 在 这 个 gcd 过 程 与 上 面 的 factorial 之 间 有 一 点 重 
要 不 同 ， 这 个 gcd 过 程 将 原来 的 计算 简化 为 一 个 新 的 GCD 计 算 ， 而 factorial 则 要 求 计算 出 
另 一 个 阶乘 作为 一 个 子 问题 。 在 这 个 GCD 过 程 里 ， 对 于 新 的 GCD 计 算 的 回答 也 就 是 原来 问题 
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的 回答 。 为 了 计算 下 一 个 GCD ， 我 们 只 需 简单 地 将 新 的 参数 放 进 GCD 机 器 的 输入 寄存 器 里 ， 
并 通过 执行 同一 个 控制 器 序列 ， 重 新 使 用 这 个 机 器 的 数据 通路 。 在 机 器 完成 了 最 后 一 个 GCD 
问题 的 求解 时 ， 整 个 计算 也 就 完成 了 。 

但 是 ， 在 阶乘 (以 及 其 他 任何 递归 计算 过 程 ) 的 情形 里 ， 对 于 新 的 阶乘 子 问 题 的 回答 并 
不 是 对 于 原 问 题 的 回答 。 由 (n 一 1)! 得 到 的 值 还 必须 乘 以 nx， 才 能 得 到 最 后 的 结果 。 如 果 我 们 
试图 去 模仿 GCD 设 计 ， 通 过 减少 寄存 器 n 的 值 并 重新 运行 阶乘 机 器 的 方式 求解 这 里 的 阶乘 子 问 
题 ， 我 们 就 会 形 失 nm 原来 的 值 ， 也 就 无 法 再 用 它 去 乘 计算 结果 了 。 这 样 我 们 就 需要 第 二 部 阶乘 
机 器 去 完成 子 问题 的 工作 。 而 这 第 二 个 子 问题 本 身 又 有 一 个 阶乘 子 问题 ， 它 又 要 求 第 三 部 阶 
乘机 器 ， 并 继续 这 样 下 去 。 因 为 每 部 阶乘 机 器 里 都 需要 包含 另 一 部 阶乘 机 器 ， 完 整 的 机 器 中 
将 要 包含 着 无 穷 嵌 套 的 类 似 机 器 ， 这 是 不 可 能 从 固定 的 有 限 个 部 件 构造 起 来 的 。 

然而 ， 我 们 还 是 可 能 将 这 一 阶乘 计算 过 程 实现 为 一 部 寄存 器 机 器 ， 只 要 我 们 能 做 出 一 种 
安排 ,设法 使 每 个 嵌 套 的 机 器 实例 都 使 用 同样 的 一 组 部 件 。 也 就 是 说 ， 计 算 n! 的 机 器 应 该 用 
同样 部 件 去 完成 计算 针对 (n 一 1)! 的 子 问 题 ， 去 计算 针对 (n 一 2)! 的 子 问 题 ， 并 如 此 下 去 。 这 是 
可 能 的 ， 因 为 ,虽然 阶乘 计算 过 程 在 执行 中 要 求 同 一 机 器 的 无 穷 多 个 副本 ,但 是 在 任何 给 定 
时 刻 ， 它 所 实际 使 用 的 只 是 这 些 副 本 中 的 一 个 。 当 这 部 机 器 遇 到 一 个 递归 子 问 题 时 ， 它 就 可 
以 挂 起 针对 原 问 题 的 工作 ， 重 新 使 用 同样 物理 部 件 去 处 理 这 个 子 问题 ， 完 成 后 再 继续 进行 前 
面 挂 起 的 计算 。 

在 处 理子 问题 时 ， 寄 存 器 的 内 容 与 它们 在 原 问题 里 的 情况 不 同 (在 目前 情况 下 ， 寄 存 器 n 
的 值 减 小 了 )。 为 了 能 够 继续 进行 前 面 挂 起 的 计算 ， 机 器 必须 把 解决 了 子 问题 之 后 还 需要 的 那 
些 寄存 器 的 内 容 保存 起 来 ， 以 便 后 来 能 恢复 它们 ， 以 继续 进行 前 面 挂 起 的 计算 。 对 于 阶乘 问 
题 ， 我 们 应 该 保存 起 n 的 原 值 ， 在 完成 对 减 小 后 n 寄 存 器 的 阶乘 计算 之 后 再 恢复 它 光 。 

由 于 对 递归 调用 的 内 套 深度 并 没有 一 个 事先 知道 的 界限 ， 我 们 可 能 需要 保存 任意 多 个 寄 
存 器 值 。 这 些 值 需要 以 与 它们 的 保存 顺序 相反 的 顺序 存储 起 来 ， 因 为 在 嵌 套 的 递归 中 ， 最 后 
进入 的 那个 子 问 题 将 首先 结束 。 这 就 要 求 我 们 使 用 一 个 堆栈 ， 或 称 为 “后 进 先 出 ”数据 结构 ， 
用 它 保 存 寄存 器 的 值 。 我 们 可 以 扩充 寄存 器 机 器 语言 ， 增 加 两 种 指令 ， 将 一 个 堆栈 包括 进来 : 
将 值 放 入 堆栈 用 一 个 save 指 令 ， 从 堆栈 中 恢复 一 个 值 用 restore 指 令 。 在 将 一 系列 值 save 
到 堆栈 里 之 后 ， 一 系列 的 restore 将 以 相反 的 顺序 提取 出 这 些 值 ””。 

有 了 堆栈 的 帮助 之 后 ， 我 们 就 可 以 重复 使 用 阶乘 机 器 的 数据 通路 的 同一 个 副本 ， 完 成 所 
有 的 阶乘 子 问 题 了 。 在 重复 使 用 对 这 个 数据 通路 进行 操作 的 控制 器 序列 时 ， 也 存在 类 似 的 设 
计 间 题 。 为 了 重复 地 执行 阶乘 计算 ， 这 个 控制 器 就 不 能 像 迭代 计算 过 程 那 样 简单 地 转 回 到 开 
始 的 地 方 ， 因 为 在 解决 了 (n 一 1)! 子 问题 之 后 ， 这 部 机 器 还 必须 将 结果 乘 以 %。 控 制 器 需要 挂 
起 它 对 n! 的 计算 ， 去 解决 (n 一 1)! 子 问题 ， 而 后 再 继续 它 对 n! 的 计算 。 对 阶乘 计算 的 这 种 观点 
提示 我 们 采用 5.1.3 节 里 描述 的 子 程序 机 制 ， 在 那里 使 用 了 一 个 continue 寄 存 器 ， 以 便 在 转 
到 解决 子 问题 的 序列 部 分 之 后 ， 还 能 回 到 它 脱离 主 问题 的 那个 位 置 继续 下 去 。 我 们 同样 可 以 
让 阶乘 子 程序 把 返回 的 入 口 点 保存 到 continue 寄 存 器 里 。 围 绕 着 每 个 子 程序 调用 ， 我 们 都 


w 有 人 可 能 会 说 ， 在 这 里 并 不 需要 保存 n 的 原 值 ， 因 为 再 减 小 它 并 解决 了 子 问题 之 后 ， 我 们 可 以 再 增 大 它 去 恢 
复 到 原来 的 值 。 虽 然 这 种 策略 对 于 阶乘 确实 可 行 ， 但 却 不 是 一 般 可 用 的 ， 因 为 一 般 而 言 ， 一 个 寄存 器 原来 的 
值 不 一 定 能 从 它 的 新 值 计 算出 来 。 

288 在 5.3 节 里 ， 我 们 将 看 到 如 何 基于 更 基本 的 操作 实现 堆栈 。 
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需要 做 寄存 器 continue 的 保存 和 恢复 ， 就 像 对 寄存 器 n 所 做 的 那样 ， 因 为 每 一 “ 层 ”阶乘 计 
算 都 将 使 用 同一 个 continue 寄 存 器 。 这 样 ， 阶 乘 子 程序 在 调用 自己 以 开始 解决 一 个 子 问题 
之 前 ， 必 须 将 一 个 新 值 存 和 人 continue， 但 它 后 来 还 会 需要 那个 老 的 值 ， 以 便 能 返回 原来 调 
用 它 以 解决 这 个 子 问题 的 位 置 。 

图 5-11 显 示 了 实现 这 一 递归 的 factorial 过 程 的 机 器 的 数据 通路 和 控制 器 。 在 这 一 机 器 
里 ， 有 一 个 堆栈 以 及 三 个 分 别称 为 n、val 和 continue 的 寄存 器 。 为 了 简化 数据 通路 图 ， 我 


controller 


(controller 


(assign continue (label fact-done)) ; set up final return address 


fact-loop 

(test (op =) (reg n) (const 1)) 

(branch (label base-case) ) 

3; Set up for the recursive call by saving n and continue. 

3; Set up continue so that the computation will continue 

3; atafter-fact when the subroutine returns. 

(save continue) 

(save n) 

(assign n (op -) (reg n) (const 1)) 

(assign continue (label after-fact) ) 

(goto (label fact-loop) ) 
after-fact 

(restore n) 

(restore continue) 

(assign val (op *) (reg n) (reg val) ) ; val now contains n(n - 1)! 

(goto (reg continue) ) ; return to caller 
base-case 

(assign val (const 1)) ; base case: 1!=1 

(goto (reg continue) ) ; return to caller 
fact-done) 





图 5-11 一 部 递归 的 阶乘 机 器 
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们 并 没有 给 寄存 器 赋值 按钮 命名 ， 而 是 只 给 堆栈 操作 按钮 命 了 名 (sc 和 sn 保存 寄存 器 内 容 ， 
rc 和 rn 恢复 寄存 器 内 容 )。 为 了 操作 这 部 机 器 ， 我 们 在 寄存 器 里 存 人 希望 计算 阶乘 值 的 数 ， 
而 后 启动 机 器 。 当 机 器 到 达 fact -done 时 计算 结束 ， 在 寄存 器 val 里 将 能 找到 对 应 回答 。 在 
相应 的 控制 器 序列 里 ， 每 次 递归 调用 之 前 都 保存 起 n 和 continue， 从 调用 返回 时 恢复 它们 。 
完成 从 一 个 调用 返回 的 方式 就 是 转 到 保存 在 continue 里 的 位 置 。 在 机 器 启动 时 对 
continue 做 初始 化 ， 使 得 机 器 在 最 后 能 返回 到 fact-done。val 寄 存 器 里 保存 着 阶乘 计算 
的 结果 ， 在 递归 调用 时 并 不 保存 它 ， 因 为 val 原 来 的 内 容 在 子 程序 返回 后 已 经 没有 用 了 。 此 
时 只 需要 它 的 新 值 ， 是 由 这 一 次 子 计 算 产 生出 来 的 。 

虽然 从 原理 上 说 阶乘 计算 需要 一 部 无 穷 机 器 ， 图 5-11 所 示 的 机 器 实际 上 却 是 有 穷 的 ， 除 
了 其 中 的 堆栈 之 外 ， 因 为 它 是 潜在 无 界 的 。 当 然 ， 堆 栈 的 任何 特定 物理 实现 都 具有 有 穷 的 大 
小 ， 这 也 将 限制 这 一 机 器 所 能 处 理 的 递归 调用 深度 。 阶 乘 的 这 一 具体 实现 展示 了 实现 递归 算 
法 的 通用 策略 : 采用 一 部 常规 的 寄存 器 机 器 ， 再 增加 一 个 堆栈 。 在 遇 到 递归 子 程序 时 ， 只 要 
某 些 寄存 器 的 值 在 子 问 题 求解 完成 后 还 需要 用 ， 就 把 它们 的 当前 值 存 和 人 堆栈 。 而 后 去 求解 递 
归 的 子 问题 ， 再 恢复 保存 起 来 的 寄存 器 值 ， 并 继续 执行 原来 的 主 程序 。continue 寄 存 器 的 
值 必须 保存 ， 其 他 寄存 器 的 值 是 否 需要 保存 ， 就 要 看 特定 机 器 的 情况 ， 因 为 并 不 是 所 有 的 递 
归 计 算 都 需要 各 个 寄存 器 原来 的 值 ， 即 使 这 些 值 在 求解 子 问题 的 过 程 中 修改 了 ( 见 练习 5.4)。 


双重 递归 
现在 让 我 们 来 考察 一 个 更 复杂 的 递归 计算 过 程 ， 有 关 斐 波 那 契 数 的 树 型 递归 计算 。 这 是 
在 1.2.2 节 介绍 过 的 : 
(define (fib n) 
(if (< n 2) 
(+ (fab (= a 13) (fib (= nm 2))))) 


与 阶乘 的 情况 类 似 ， 我 们 也 可 以 把 递归 的 斐 波 那 契 计算 实现 为 一 部 寄存 器 机 器 ， 其 中 采用 寄 
存 器 n、val 和 continue。 这 部 机 器 比 计算 阶乘 的 机 器 更 复杂 一 些 ， 因 为 在 这 里 的 控制 序列 
中 有 两 个 地 方 需要 执行 递归 调用 一 一 一 个 计算 Fib(n 一 1)， 另 一 个 计算 Fib(n 一 2)。 为 了 安排 好 
其 中 的 各 个 递归 调用 ， 我们 需要 保存 起 那些 后 来 需要 使 用 的 寄存 器 值 ， 而 后 将 n 寄 存 器 设置 为 
需要 去 递归 计算 Fib 的 数值 (n 一 1 或 n 一 2)， 并 将 continue 赋 值 为 计算 返回 时 应 该 转向 的 主 
序列 入 口 点 (分 别 为 afterfib-n-1 或 者 afterfib-n-2)， 而 后 转向 Eib-loop。 在 从 弟 
归 调 用 返回 时 答案 就 在 val 里 。 图 5-12 显 示 了 这 一 机 器 的 控制 器 序列 。 
练习 5.4 ”请 描述 实现 下 面 各 个 过 程 的 寄存 器 机 器 。 对 于 这 里 的 每 部 机 器 ， 请 写 出 它 的 控 
制 器 指令 序列 ， 并 画 出 相应 的 数据 通路 图 形 。 
a) 递归 的 指数 计算 : 
(define (expt b n) 
(GE (= m 0) 
af 
(* b (expt b (- n 1))))) 


b) 迭代 的 指数 计算 : 


(define (expt b n) 
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(define (expt-iter counter product) 
(if (= counter 0) 
product 
(expt-iter (- counter 1) (* b product)))) 
(expt-iter n 1)) 


(controller 
(assign continue (label fib-done) ) 
fib-loop 
(test (op <) (reg n) (const 2)) 
(branch (label immediate-answer) ) 
3) set up to compute Fib(n— 1) 
(save continue) 
(assign continue (label afterfib-n-1) ) 
(save n) ; save old value of n 
(assign n (op -) (reg n) (const 1)); clobbernton—| 
(goto (label fib-loop) ) ; perform recursive call 
afterfib-n-1 ; upon return, val contains Fib(n— 1) 
(restore n) 
(restore continue) 
;; set up to compute Fib(n— 2) 
(assign n (op -) (reg n) (const 2)) 
(save continue) 
(assign continue (label afterfib-n-2) ) 
(save val) ; save Fib(n—1) 
(goto (label fib-loop) ) 
afterfib-n-2 ; upon return, val contains Fib(n— 2) 


(assign n (reg val) ) ; n now contains Fib(n— 2) 


(restore val) ; val now contains Fib(n— 1) 

(restore continue) 

(assign val ; Fib(n— 1) + Fib(n—2) 

(op +) (reg val) (reg n)) 

(goto (reg continue) ) ; return to caller, answer is in val 
immediate-answer 

(assign val (reg n)) ; base case: Fib(n) =n 

(goto (reg continue) ) 
fib-done) 








图 5-12 一 部 计算 斐 波 那 契 数 的 机 器 的 控制 器 
练习 5.5 “请 用 手工 模拟 阶乘 和 辈 波 那 契 机 器 的 计算 过 程 ， 用 某 个 非 平 凡 的 输入 (需要 执 
行 至 少 一 次 递归 调用 ) 。 说 明 执行 中 每 个 关键 点 上 堆栈 的 内 容 。 
练习 5.6 Ben Bitdiddle 注 意 到 ， 在 斐 波 那 契 机 器 的 控制 序列 里 有 一 个 额外 的 save 和 一 个 
额外 的 zestore， 可 以 将 它们 删 去 ， 得 到 一 个 更 快速 的 机 器 。 这 些 指令 在 哪里 ? 
5.1.5 指令 总 结 


在 我 们 的 寄存 器 机 器 语言 里 ， 一 条 控制 器 指令 具有 下 述 之 一 的 形式 ， 其 中 的 每 个 <inputi> 或 


者 是 一 个 (reg <register-name>)， 或 者 是 一 个 (const <constant-value>) , 
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下 面 指令 是 在 5.1.1 节 介绍 的 : 
(assign <register-name> (reg <register-name>) ) 


(assign <register-name> (const <constant-value>) ) 


(assign <register-name> (Op <operation-name>) <input;> ... <input,>) 
(perform (op <operation-name>) <input)> ... <input,>) 
(test (op <operation-name>) <input)> ... <input,>) 


(branch (label <label-name>) ) 

(goto (label </abel-name>) ) 

采用 寄存 器 保存 标号 的 指令 是 在 5.1.3 市 讨论 的 : 
(assign <register-name> (label </abel-name>) ) 
(goto (reg <register-name>) ) 

使 用 堆栈 的 指令 在 5.1.4 节 介绍 : 

(save <register-name>) 


(restore <register-name>) 


我 们 至 今 已 经 见 过 的 <constant-value> 都 是 数值 ， 后 面 还 会 用 到 字符 串 、 符 号 和 表 。 例 如 ， 
(const "abc") 就 是 字符 串 "abc"。(const abc) 是 符号 abc, (const (a b c)) 是 


# (a b c), 而 (const ()) MEZ 
5.2 一 个 寄存 器 机 器 模拟 器 


为 了 取得 对 于 寄存 器 机 器 设计 的 更 好 理解 ， 我 们 必须 测试 自己 设计 出 的 机 器 ， 看 看 它 能 
否 按照 预期 的 方式 执行 。 测 试 一 个 设计 的 一 种 方法 是 手工 模拟 控制 器 的 操作 ， 如 练习 5.5 中 所 
说 的 那样 。 但 是 ， 如 果 这 一 机 器 不 是 特别 简单 ， 手 工 做 就 会 特别 元 长 而 枯燥 。 在 这 一 节 里 ， 
我 们 要 为 用 寄存 器 机 器 语言 描述 的 机 器 构造 一 个 模拟 器 。 这 一 模拟 器 是 一 个 Scheme 程序 ， 其 
中 包括 四 个 界面 过 程 。 第 一 个 过 程 根据 一 个 寄存 器 机 器 的 描述 ， 为 这 部 机 器 构造 一 个 模型 
(一 个 数据 结构 ， 其 中 的 各 个 部 分 对 应 于 被 模拟 机 器 的 各 个 组 成 部 分 ) ， 另 外 三 个 过 程 使 我 们 
可 以 通过 操作 这 个 模型 ， 去 模拟 相应 的 机 器 : 

(make-machine <register-names> <operations> <controller>) 
构造 并 返回 机 器 的 模型 ， 其 中 包含 了 给 定 的 寄存 器 、 操 作 和 控制 器 。 


(set-register-contents! <machine-model> <register-name> <value>) 
将 一 个 值 存 入 给 定 机 器 的 一 个 被 模拟 的 寄存 器 里 。 
(get-register-contents <machine-model> <register-name>) 
返回 给 定 机 器 里 一 个 被 模拟 的 寄存 器 的 内 容 。 
(start <machine-model>) 
模拟 给 定 机 器 的 执行 ， 从 相应 控制 器 序列 的 开始 处 启动 ， 直 至 到 达 这 一 序列 的 结束 时 停止 。 
作为 说 明 这 些 过 程 如 何 使 用 的 实例 ， 我 们 可 以 定义 下 面 的 gcda-machine， 为 5.1.1 布 的 
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GCD 机 器 定义 一 个 模型 : 


(define gcd-machine 


(make-machine 


"(a b t) 
(list (list "rem remainder) (list ‘= =)) 
*(test-b 

(test (op =) (reg b) (const 0)) 


(branch (label gcd-done) ) 
(assign t (op rem) (reg a) (reg b)) 
(assign a (reg b)) 
(assign b (reg t)) 
(goto (label test-b) ) 
gcd-done) ) ) 
make-machine 的 第 一 个 参数 是 一 个 寄存 器 名 字 的 表 ， 下 一 参数 是 一 个 表格 (两 个 元 素 的 表 
的 表 ) ， 其 中 的 每 个 对 偶 包括 一 个 操作 的 名 字 和 实现 这 一 操作 ( 即 ， 对 于 给 定 的 同样 输入 值 ， 
能 够 产生 出 同样 的 输出 值 ) 的 一 个 Scheme 过 程 。 最 后 一 个 参数 描述 了 相应 控制 器 ， 用 一 个 标 
号 和 机 器 指令 的 表 表示 ， 就 像 在 5.1 节 里 那样 。 
为 了 用 这 一 机 器 去 计算 GCD ， 我 们 需要 设置 输入 寄存 器 ， 启 动 这 部 机 器 ， 在 模拟 结束 时 
检查 计算 结果 : 
(set-register-contents! gcd-machine ’a 206) 


done 


(set-register-contents! gcd-machine ’b 40) 
done 


(start gcd-machine) 


done 


(get-register-contents gcd-machine ’a) 

2 
这 个 计算 的 运行 速度 比 直接 用 Scheme 写 出 的 gcq 过 程 慢 得 多 ， 因 为 我 们 是 在 模拟 低级 的 机 器 
指令 ， 例 如 assign， 而 使 用 的 却 是 比 它 高 级 得 多 的 操作 。 

练习 5.7 用 这 个 模拟 器 检查 你 在 练习 5.4 中 设计 的 机 器 。 


5.2.1 机 器 模型 


由 make-machine 生 成 的 机 器 模型 被 表示 为 一 个 包含 局 部 变量 的 过 程 ， 其 中 采用 了 第 3 
章 里 开发 的 消息 传递 技术 。 为 了 实现 这 一 模型 ，make -machine 在 开始 时 调用 过 程 make - 
new-machine, 构造 出 所 有 寄存 器 机 器 的 机 器 模型 里 都 需要 一 些 公共 部 分 。 由 make -new- 
machine 构 造 出 的 基本 机 器 模型 ， 从 本 质 上 说 就 是 一 个 容器 ， 其 中 包含 了 若干 个 寄存 器 和 一 
个 堆栈 ， 还 有 一 个 执行 机 制 ， 它 一 条 一 条 地 处 理 控 制 器 指令 。 

在 此 之 后 ，make-machine 将 扩充 这 一 基本 模型 (通过 给 它 传递 消息 )， 把 现在 要 定义 
的 特殊 机 器 的 寄存 器 、 操 作 和 控制 器 加 进去 。 它 首先 为 新 机 器 里 需要 提供 的 每 个 寄存 器 名 字 
分 配 一 个 寄存 器 ， 并 安装 好 这 一 机 器 所 指定 的 各 种 操作 。 最 后 ， 它 用 一 个 汇编 程序 (在 下 面 
的 5.2.2 节 讨论 ) 把 控制 器 列表 变换 为 新 机 器 所 用 的 指令 ， 并 将 它们 安装 为 这 一 机 器 的 指令 序 
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列 。make-machine 返 回 修 改 后 的 机 器 模型 作为 值 。 


(define (make-machine register-names ops controller-text) 

(let ((machine (make-new-machine) ) ) 

(for-each (lambda (register-name) 

((machine ’allocate-register) register-name) ) 
register-names) 
( (machine “install-operations) ops) 
( (machine *install-instruction-sequence) 
(assemble controller-text machine) ) 


machine) ) 


Sa 
我 们 把 一 个 寄存 器 表示 为 一 个 带 有 局 部 状态 的 过 程 ， 就 像 第 3 章 里 那样 ，make-register 


过 程 创建 这 种 寄存 器 ， 它 们 里 面 保 存 着 一 个 值 ， 可 以 访问 或 者 修改 : 


(define (make-register name) 
(let ((contents '*unassigned*)) 
(define (dispatch message) 
(cond ((eq? message ‘get) contents) 
( (eq? message ‘set) 
(lambda (value) (set! contents value) )) 
(else 
(error "Unknown request -- REGISTER" message) ) ) ) 


dispatch) ) 


下 面 过 程 用 于 访问 这 些 寄存 器 : 
(define (get-contents register) 


(register "get) ) 


(define (set-contents! register value) 


( (register "set) value) ) 


堆栈 
我 们 把 堆栈 也 表示 为 一 个 带 有 局 部 状态 的 过 程 。make- stack 过 程 创建 起 一 个 堆栈 ， 其 


局 部 状态 就 是 一 个 包含 着 这 一 堆栈 里 的 数据 项 的 表 。 堆 栈 接 受 的 请 求 包括 将 一 个 数据 项 放 入 
堆栈 的 push， 以 及 将 数据 项 从 堆栈 里 去 掉 并 返回 它 的 pop。initialize 将 堆栈 初始 化 为 空 。 


(define (make-stack) 
(let ((s *())) 
(define (push x) 
(set! s (cons x s))) 
(define (pop) 
(if (null? s) 
(error "Empty stack -- POP") 
(let ((top (car s))) 
(set! s (cdr s)) 
top) ) ) 
(define (initialize) 
(set! s *()) 
*done) 
(define (dispatch message) 
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(cond ((eq? message ‘push) push) 


((eq? message ‘pop) (pop) ) 


((eq? message “initialize) (initialize) ) 
(else (error "Unknown request -- STACK" 
message) )) ) 
dispatch) ) 
下 面 过 程 用 于 访问 堆栈 : 


(define (pop stack) 
(stack ‘pop)) 


(define (push stack value) 
( (stack *push) value) ) 


基本 机 器 

过 程 mnake-new-machine 如 图 $-13 所 示 ， 它 构造 起 一 个 对 象 ， 其 内 部 状态 包括 了 一 个 堆 
栈 ， 另外 还 有 一 个 初始 为 空 的 指令 序列 和 一 个 操作 的 表 ， 开 始 时 这 个 表 里 只 包含 一 个 初始 化 
堆栈 的 操作 ， 还 有 一 个 寄存 器 的 列表 ， 初 始 时 包含 两 个 分 别称 为 Elag 和 pc (表示 “程序 计数 
#”, program counter) 的 寄存 器 。 内 部 过 程 a1locate-register 用 于 向 寄存 器 列表 中 加 
入 新 项 ， 内 部 过 程 10ookup-register 在 这 个 列表 里 查找 寄存 器 。 

寄存 器 fl1ag 用 于 控制 被 模拟 机 器 的 分 支 动作 。test 指 令 设 置 f1ag 的 内 容 ， 表 示 检 测 的 
结果 〈 真 或 者 假 )。bzanch 指 令 通 过 检查 flag 的 内 容 确 定 是 否 需要 转移 。 

在 机 器 的 运行 中 ,pc 寄存 器 决定 了 指令 的 执行 顺序 。 这 一 顺序 由 内 部 过 程 execute 实 现 。 
在 这 个 模拟 模型 里 ， 每 条 机 器 指令 就 是 一 个 数据 结构 ， 其 中 包含 了 一 个 无 参 过 程 ， 称 为 指令 
执行 过 程 ， 调 用 这 一 过 程 就 能 模拟 相应 指令 的 执行 。 在 模拟 运行 时 ，Pc 总 是 指向 指令 序列 里 
下 一 条 需要 执行 的 指令 的 开始 位 置 。execute 取 得 这 条 指令 ， 通 过 调用 与 之 对 应 的 指令 执行 
过 程 ， 完 成 相应 的 执行 。 这 一 循环 重复 进行 ， 直 到 再 也 没有 需要 执行 的 指令 为 止 ( 也 就 是 说 ， 
直到 pc 指向 了 指令 序列 的 结束 )。 

作为 操作 的 一 部 分 ， 每 个 指令 执行 过 程 都 将 修改 pc， 使 之 指向 下 一 条 需要 执行 的 指令 。 
branch 和 goto 指 令 直 接 修改 pc， 使 之 指向 一 个 新 的 位 置 ， 其 他 所 有 指令 都 简单 地 增加 pc 的 
值 ， 使 它 指向 序列 中 的 下 一 条 指令 。 可 以 看 到 ， 每 次 对 execute 的 调用 都 将 再 次 调用 
execute， 但 这 并 不 会 产生 一 个 无 穷 循环 ， 因 为 指令 执行 过 程 的 执行 会 改变 pc 的 内 容 。 

make-new-machine 返 回 一 个 dispatch 过 程 ， 这 一 过 程 实现 对 内 部 状态 的 消息 传递 访 
问 。 请 注意 ， 启 动 这 一 机 器 就 是 把 pc 设置 到 指令 序列 的 开始 并 调用 execute。 

为 了 方便 起 见 ， 一 部 机 器 除了 有 设置 和 检查 寄存 器 内 容 的 过 程 之 外 ， 我 们 还 为 start 的 
操作 提供 另 一 个 过 程 性 界面 ， 如 5.2 节 开始 时 所 描述 的 : 

(define (start machine) 

(machine ‘start) ) 
(define (get-register-contents machine register-name) 


(get-contents (get-register machine register-name) ) ) 


(define (set-register-contents! machine register-name value) 
(set-contents! (get-register machine register-name) value) 


*done) 
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(define (make-new-machine) 
(let ((Pc (make-register "pc) ) 
(flag (make-register ‘flag) ) 
(stack (make-stack) ) 
(the-instruction-sequence ’())) 
(let ((the-ops 
(list (list ’initialize-stack 
(lambda () (stack ’initialize))))) 
(register-table 
(list (list ‘pe pc) (list ‘flag flag)))) 
(define (allocate-register name) 
(if (assoc name register-table) 
(error "Multiply defined register: " name) 
(set! register-table 
(cons (list name (make-register name) ) 
register-table) ) ) 
"register-allocated) 
(define (lookup-register name) 
(let ((val (assoc name register-table) ) ) 
(if val 
(cadr val) 
(error "Unknown register:" name) ))) 
(define (execute) 
(let ((insts (get-contents pc))) 
(if (null? insts) 
*done 
(begin 


((instruction-execution-proc (car insts) ) ) 
(execute) ) ) ) ) 


(define (dispatch message) 
(cond ((eq? message ‘start) 
(set-contents! pc the-instruction-sequence) 
(execute) ) 
((eq? message ’install-instruction-sequence) 
(lambda (seq) (set! the-instruction-sequence seq) ) ) 
((eq? message “allocate-register) allocate-register) 
((eq? message 'get-register) lookup-register) 
( (eq? message ’install-operations) 
(lambda (ops) (set! the-ops (append the-ops ops) ))) 
( (eq? message ‘stack) stack) 
((eq? message ’operations) the-ops) 
(else (error "Unknown request -- MACHINE" message) ) ) ) 
dispatch) ) ) 





图 5-13 过 程 make-new-machine， 它 实现 基本 机 器 模型 


这 些 过 程 (以 及 5.2 和 5.3 节 里 的 许多 其 他 过 程 ) 里 都 使 用 了 下 面 过 程 ， 其 中 用 给 定 的 名 字 在 一 
部 给 定 的 机 器 里 查看 有 关 寄 存 器 的 内 容 : 


(define (get-register machine reg-name) 


((machine ‘get-register) reg-name) ) 
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5.2.2 汇编 程序 


这 一 汇编 程序 将 一 部 机 器 的 控制 器 表达 式 序 列 翻译 为 与 之 对 应 的 机 器 指令 的 表 ， 每 条 指 
令 都 带 着 相应 的 执行 过 程 。 从 整体 上 看 ， 这 个 汇编 程序 很 像 我 们 在 第 4 章 里 研究 过 的 各 种 求 值 
器 一 一 它 有 一 个 输入 语言 (目前 情况 下 就 是 寄存 器 机 器 语言 )， 以 及 对 于 这 一 语言 里 的 每 个 类 
型 必须 执行 的 适当 动作 。 

为 每 条 指令 生成 一 个 执行 过 程 的 技术 ， 也 就 是 我 们 在 4.1.7 节 里 采用 的 ， 为 加 快 求 值 器 的 
速度 ， 把 分 析 工 作 与 运行 时 的 执行 动作 分 离 的 技术 。 正 如 在 第 4 章 已 经 看 到 过 的 ， 对 于 Scheme 
表达 式 的 大 部 分 的 有 用 分 析 ， 都 可 以 在 不 知道 变量 实际 值 的 情况 下 完成 。 与 此 类 似 ， 在 这 里 ， 
对 寄存 器 机 器 语言 表达 式 的 许多 有 用 分 析 ， 也 可 以 在 不 知道 机 器 寄存 器 的 实际 内 容 的 情况 下 
完成 。 举 例 来 说 ， 我 们 可 以 用 指向 寄存 器 对 象 的 指针 代替 对 寄存 器 的 引用 ， 可 以 用 指向 标号 
所 指定 的 指令 序列 中 的 位 置 的 指针 代替 对 相应 标号 的 引用 。 

在 能 够 开始 生成 指令 执行 过 程 之 前 ， 这 个 汇编 程序 还 必须 知道 所 有 标号 的 引用 位 置 。 为 
此 它 首先 扫描 控制 器 的 正文 ， 从 指令 序列 中 分 辨 出 各 个 标号 。 在 扫描 这 一 正文 的 过 程 中 ， 汇 
编程 序 构造 起 一 个 指令 的 表 和 另 一 个 列表 ， 列 表 里 为 每 个 标号 关联 一 个 指 到 指令 表 里 的 指针 。 
汇编 程序 而 后 扩充 这 样 得 到 的 指令 表 ， 为 每 条 指令 插入 一 个 执行 过 程 。 

过 程 assemble 是 这 个 汇编 程序 的 主要 入 口 ， 它 以 一 个 控制 器 正文 和 相应 机 器 模型 作为 
参数 ， 返 回 存 储 在 模型 里 的 指令 序列 。assemble 调 用 extract-labels， 这 个 过 程 根 据 所 
提供 的 控制 器 正文 构造 出 初始 的 指令 表 和 标号 列表 。extract-1labels 的 第 二 个 参数 是 一 个 
过 程 ， 需 要 调用 它 去 处 理 上 面 得 到 的 结果 。 这 个 过 程 使 用 update-insts! 生成 指令 执行 过 
程 ， 将 其 插入 指令 表 里 ， 并 返回 修改 之 后 的 表 。 


(define (assemble controller-text machine) 
(extract-labels controller-text 
(lambda (insts labels) 
(update-insts! insts labels machine) 


insts))) 


extract-labels 的 参数 是 一 个 表 text (也 就 是 控制 器 指令 表达 式 的 序列 ) 和 一 个 过 程 
receive。receive 将 被 用 两 个 值 调 用 : (1) 一 个 指令 数据 结构 的 表 insts， 其 中 每 个 指令 
数据 结构 包含 一 条 来 自 text 的 指令 ; (2) 一 个 名 字 为 1abels 的 表格 ， 其 中 是 来 自 Eext 的 各 
个 标号 ， 它 们 都 关联 于 相应 标号 在 表 insts 里 的 位 置 。 
(define (extract-labels text receive) 
(if (null? text) 
(receive *() *()) 
(extract-labels (cdr text) 
(lambda (insts labels) 
(let ((next-inst (car text))) 
(if (symbol? next-inst) 
(receive insts 
(cons (make-label-entry next-inst 
insts) 
labels) ) 
(receive (cons (make-instruction next-inst) 
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insts) 
labels))))))) 


extract-1labels 的 工作 方式 是 顺序 扫 拉 text 里 的 各 个 元 素 ， 逐 新 积累 起 insts 和 
labels, 如果 一 个 元 素 是 个 符号 (因此 就 是 一 个 标号 )， 它 就 将 适当 的 条 目 加 入 表格 labels， 
否则 就 把 这 个 元 素 加 入 到 insts 表 里 2 。 

update-insts! 修 改 指令 表 ， 原 来 这 里 只 包含 指令 的 正文 ， 现 在 要 加 入 对 应 的 执行 过 程 : 


(define (update-insts! insts labels machine) 
(let ((pc (get-register machine "pc) ) 
(flag (get-register machine ’flag) ) 
(stack (machine ’stack) ) 
(ops (machine ’operations) ) ) 
(for-each 
(lambda (inst) 
(set-instruction-execution-proc! 
inst 
(make-execution-procedure 
(instruction-text inst) labels machine 
pc flag stack ops) )) 
insts) )) 


机 器 指令 的 数据 结构 也 就 是 指令 正文 和 对 应 的 执行 过 程 的 对 偶 。 在 extract-labels 构 
造 这 些 指令 时 ， 这 些 执行 过 程 还 不 能 用 。 它 们 是 后 来 由 update-insts:! 插 和 人 的。 
(define (make-instruction text) 


(cons text °*())) 


2 在 这 里 使 用 receive 过 程 ， 是 作为 一 种 有 效 地 返回 两 个 值 (labels 和 insts) 的 方式 ， 这 样 就 不 必 做 出 一 
个 复合 数据 结构 去 保存 它们 。 另 一 实现 方式 是 返回 这 两 个 值 的 序 对 : 
(define (extract-labels text) 
(if (null? text) 
(cons *() *()) 
(let ((result (extract-labels (cdr text)))) 
(let ((insts (car result)) (labels (cdr result) )) 
(let ((mext-inst (car text))) 
(if (symbol? next-inst) 
(cons insts 
(cons (make-label-entry next-inst insts) labels) ) 
(cons (cons (make-instruction next-inst) insts) 


labels))))))) 
汇编 程序 应 该 采用 如 下 方式 调用 它 : 


(define (assemble controller-text machine) 
(let ((result (extract-labels controller-text))) 
(let ((insts (car result)) (labels (cdr result))) 
(update-insts! insts labels machine) 


insts))) 


你 也 可 以 认为 ， 这 里 对 receive 的 使 用 展示 了 一 个 返回 多 个 值 的 优雅 方法 ， 或 者 简单 地 将 它 看 成 不 过 是 一 个 
程序 设计 技巧 。 向 receive 这 样 的 参数 被 作为 下 一 个 被 调用 过 程 ， 这 种 过 程 通常 称 为 “继续 ”过 程 。 请 回忆 
一 下 ， 在 4.3.3 节 的 amb 求 值 器 里 实现 回溯 控制 结构 时 ， 使 用 的 也 是 这 种 继续 过 程 。 
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(define (instruction-text inst) 


(car inst)) 


(define (instruction-execution-proc inst) 


(cdr inst)) 


(define (set-instruction-execution-proc! inst proc) 
(set-cdr! inst proc)) 


我 们 的 模拟 器 并 不 使 用 这 些 指令 正文 ， 但 还 是 把 它们 保存 在 这 里 。 将 指令 正文 留 到 排除 程序 
错误 时 ， 可 能 带 来 许多 方便 ( 见 练习 5.16)。 

标号 列表 里 的 元 素 是 序 对 : 

(define (make-label-entry label-name insts) 


(cons label-name insts)) 


下 面 过 程 用 于 在 这 个 列表 里 查找 条 目 : 


(define (lookup-label labels label-name) 


(let ((val (assoc label-name labels) ) ) 


(if val 
(cdr val) 
(error "Undefined label -- ASSEMBLE" label-name) ) ) ) 
练习 5.8 下 面 寄存 器 机 器 代码 有 歧义 ， 因 为 其 中 的 标号 here 有 不 止 一 个 定义 : 
start 


(goto (label here) ) 
here 

(assign a (const 3)) 

(goto (label there) ) 
here 

(assign a (const 4)) 

(goto (label there) ) 
there 


对 于 上 面 写 出 的 模拟 器 ， 当 控制 到 达 there 时 ， 寄存 器 a 的 内 容 是 什么 ”请 修改 过 程 
extract-labels, 使 汇编 程序 在 发 现 同一 标号 用 于 指明 两 个 不 同位 置 时 ， 能 发 出 一 个 错 


误 信 号 。 
5.2.3 为 指令 生成 执行 过 程 


汇编 程序 调用 make-execution-procedure， 为 一 条 指令 生成 一 个 执行 过 程 。 这 很 像 
4.1.7 节 里 求 值 器 中 的 analyze 过 程 。 这 一 过 程 也 基于 指令 的 类 型 ， 把 生成 适当 的 执行 过 程 的 
工作 分 派出 去 。 


(define (make-execution-procedure inst labels machine 
pc flag stack ops) 
(cond ((eq? (car inst) ’assign) 
(make-assign inst machine labels ops pc) ) 
((eq? (car inst) "test) 
(make-test inst machine labels ops flag pc) ) 
((eq? (car inst) "branch) 


(make-branch inst machine labels flag pc) ) 
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((eq? (car inst) "goto) 

(make-goto inst machine labels pc) ) 
((eq? (car inst) "save) 

(make-save inst machine stack pc) ) 
( (eq? (car inst) ‘restore) 
(make-restore inst machine stack pc) ) 
((eq? (car inst) perform) 
(make-perform inst machine labels ops pc) ) 
(else (error "Unknown instruction type -- ASSEMBLE" 
inst)))) 


对 于 这 个 寄存 器 机 器 语言 里 的 每 类 指令 ， 在 这 里 都 有 一 个 生成 器 ， 其 功能 就 是 构造 出 适 
当 的 执行 过 程 。 这 些 过 程 的 细节 由 相应 寄存 器 机 器 语言 里 每 条 有 具体 指令 的 语法 和 意义 确定 。 
我 们 采用 数据 抽象 ， 将 寄存 器 机 器 表达 式 的 语法 细节 与 通用 的 执行 机 制 隔离 开 ， 就 像 前 面 对 
4.1.2 节 的 求 值 器 所 采用 的 做 法 ， 这 里 用 一 些 语 法 过 程 提取 出 一 条 指令 里 的 各 个 部 分 ， 并 对 它 
们 进行 分 类 。 

assign 指 令 

过 程 make-assign 处 理 assign 指 令 : 


(define (make-assign inst machine labels operations pc) 
(let ((target 
(get-register machine (assign-reg-name inst) ) ) 
(value-exp (assign-value-exp inst) )) 
(let ((value-proc 
(if (operation-exp? value-exp) 
(make-operation-exp 
value-exp machine labels operations) 
(make-primitive-exp 
(car value-exp) machine labels) ))) 
(lambda () ; execution procedure for assign 
(set-contents! target (value-proc) ) 
(advance-pc pc))))) 


make-assign 用 了 几 个 选择 函数 ， 从 assign 指 令 里 提取 出 目标 寄存 器 的 名 字 (指令 的 第 二 
WICH) 和 值 表达 式 〈 形 成 指令 里 剩余 部 分 的 表 ) : 
(define (assign-reg-name assign-instruction) 


(cadr assign-instruction) ) 


(define (assign-value-exp assign-instruction) 


(cddr assign-instruction) ) 


get-register 用 寄存 器 名 的 名 字 去 查找 ， 产 生 对 应 的 目标 寄存 器 对 象 。 如 果 有 关 的 值 是 一 
个 操作 的 结果 ， 这 个 值 表达 式 就 被 送 给 make -operation-exp， 否则 就 送 给 make - 
primitive-exp。 这 些 过程 (下 面 给 出 ) 还 要 进一步 分 析 值 表达 式 ， 并 为 它 生 成 一 个 执行 
过 程 。 这 是 一 个 称 为 value-proc 的 无 参 过 程 ， 在 模拟 中 ， 当 需要 为 寄存 器 赋值 生成 实际 的 
值 时 就 会 调用 这 个 过 程 。 请 注意 ， 查 找 寄存 器 名 字 和 分 析 值 表达 式 的 工作 ， 都 只 需 在 汇编 时 
做 一 次 ， 而 不 是 在 指令 模拟 时 每 次 做 。 这 样 将 能 节省 工作 ， 也 是 我 们 采用 执行 过 程 的 原因 。 
这 一 做 法 与 4.1.7 节 的 求 值 器 里 将 程序 分 析 工 作 从 执行 中 分 离 出 来 有 着 直接 的 对 应 。 
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由 make-assign 返 回 的 结果 就 是 assign 指 令 的 执行 过 程 。 当 这 个 过 程 被 调用 时 (由 机 
器 模型 的 execute 过 程 调用 ) ， 它 将 用 执行 value-pProc 得 到 的 结果 设置 目标 寄存 器 的 内 容 。 
而 后 通过 运行 下 面 过 程 更 新 pc， 使 之 指向 下 一 条 指令 。 


(define (advance-pc pc) 


(set-contents! pc (cdr (get-contents pc)))) 


advance-pc 是 每 条 指令 的 正常 结束 操作 ， 除 了 branch 和 goto 之 外 。 


test、branch 和 goto 指 令 

make-test 以 类 似 方式 处 理 test 指 令 。 它 提取 出 描述 了 需要 检测 的 条 件 的 表达 式 ， 并 
为 它 生 成 一 个 执行 过 程 。 在 模拟 时 ， 对 应 于 有 关 条 件 的 过 程 被 调用 ， 检 测 结果 赋 给 fl1ag 寄 存 
器 ， 而 后 更 新 pc: 


(define (make-test inst machine labels operations flag pc) 
(let ((condition (test-condition inst) )) 
(if (operation-exp? condition) 
(let ((condition-proc 
(make-operation-exp 
condition machine labels operations) ) ) 
(lambda () 
(set-contents! flag (condition-proc) ) 
(advance-pc pc))) 
(error "Bad TEST instruction -- ASSEMBLE" inst) ))) 


(define (test-condition test-instruction) 


(cdr test-instruction) ) 


branch 指 令 的 执行 过 程 检查 fl1ag 寄 存 器 的 内 容 ， 或 者 是 将 pc 的 内 容 设置 为 分 支 的 目标 
(如 果 需 要 执行 分 支 )， 或 者 是 简单 地 更 新 pc (如 果 不 要 分 支 )。 请 注意 ， 一 条 branch 指 令 里 
所 指定 的 目标 必须 是 一 个 标号 ，make-branch 过 程 要 求 这 件 事 。 还 请 注意 标号 也 是 在 汇编 
时 查找 ， 而 不 是 在 模拟 pranch 指 令 的 时 候 再 查找 。 


(define (make-branch inst machine labels flag pc) 
(let ((dest (branch-dest inst))) 
(if (label-exp? dest) 


(let ((insts 
(lookup-label labels (label-exp-label dest) ))) 
(lambda () 


(if (get-contents flag) 
(set-contents! pc insts) 
(advance-pc pc)))) 
(error "Bad BRANCH instruction -- ASSEMBLE" inst) ))) 


(define (branch-dest branch-instruction) 


(cadr branch-instruction) ) 


goto 指 令 的 情况 与 分 支 类 似 ， 这 里 的 目标 可 以 用 一 个 标号 或 者 一 个 寄存 器 描述 ， 而 且 也 
不 需要 检测 条 件 。 这 里 总 将 pc 设置 为 新 的 目标 位 置 。 
(define (make-goto inst machine labels pc) 


(let ((dest (goto-dest inst))) 
(cond ((label-exp? dest) 
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(let ((insts 
(lookup-label labels 
(label-exp-label dest)))) 
(lambda () (set-contents! pc insts)))) 
((register-exp? dest) 
(let ((reg 


(get-register machine 
(register-exp-reg dest) ))) 


(lambda () 
(set-contents! pc (get-contents reg) )))) 
(else (error "Bad GOTO instruction -- ASSEMBLE" 


inst))))) 


(define (goto-dest goto-instruction) 


(cadr goto-instruction) ) 


其 他 指令 
堆栈 指令 save 和 restore 简 单 地 对 指定 寄存 器 使 用 堆栈 ， 并 且 更 新 pc: 


(define (make-save inst machine stack pc) 


(let ((reg (get-register machine 
(stack-inst-reg-name inst)))) 


(lambda () 
(push stack (get-contents reg)) 


(advance-pc pc)))) 


(define (make-restore inst machine stack pc) 


(let ((reg (get-register machine 
(stack-inst-reg-name inst)))) 


(lambda () 
(set-contents! reg (pop stack)) 


(advance-pc pc)))) 


(define (stack-inst-reg-name stack-instruction) 


(cadr stack-instruction) ) 


最 后 一 类 指令 由 make-perform 处 理 ， 它 为 需要 执行 的 动作 生成 有 关 执 行 过 程 。 在 模拟 
时 执行 相应 的 动作 过 程 并 更 新 pc。 


(define (make-perform inst machine labels operations pc) 


(let ((action (perform-action inst))) 
(if (operation-exp? action) 
(let ((action-proc 
(make-operation-exp 
action machine labels operations))) 
(lambda () 
(action-proc) 


(advance-pc pc))) 


(error "Bad PERFORM instruction -- ASSEMBLE" inst) ))) 


(define (perform-action inst) (cdr inst) ) 


子 表达 式 的 执行 过 程 
在 为 一 个 寄存 器 赋值 (make-assign), 或 者 为 其 他 操作 提供 输入 时 (make-operation- 
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exp， 见 下 )， 可 能 需要 使 用 一 个 reg、label 或 者 const 表 达 式 的 值 。 下 面 过 程 为 这 些 表达 
式 生 成 出 一 个 执行 过 程 ， 在 模拟 中 产生 出 这 些 子 表达 式 的 值 : 


(define (make-primitive-exp exp machine labels) 
(cond ((constant-exp? exp) 

(let ((c (constant-exp-value exp))) 
(lambda () c))) 

((label-exp? exp) 

(let ((insts 

(lookup-label labels 
(label-exp-label exp) ))) 

(lambda () insts))) 

((register-exp? exp) 

(let (( (get-register machine 


(register-exp-reg exp) ))) 


(lambda () (get-contents r)))) 
(else 
(error "Unknown expression type -- ASSEMBLE" exp) )) ) 


reg、label 和 const 表 达 式 的 语法 形式 由 下 面 过 程 确 定 : 


(define (register-exp? exp) (tagged-list? exp 'reg)) 
(define (register-exp-reg exp) (cadr exp) ) 

(define (constant-exp? exp) (tagged-list? exp ‘const) ) 
(define (constant-exp-value exp) (cadr exp) ) 

(define (label-exp? exp) (tagged-list? exp "label) ) 


(define (label-exp-label exp) (cadr exp) ) 


在 assign、perform 和 test 指 令 里 , 可 能 需要 将 一 个 机 器 操作 (由 一 个 op 表达 式 描述 ) 
的 应 用 到 某 些 操作 对 象 ( 由 reg 和 const 表 达 式 描述 )。 下 面 过 程 为 一 个 “操作 表达 式 ”( 一 
个 包含 着 一 条 指令 里 的 操作 和 操作 对 象 表达 式 的 表 ) 生成 一 个 执行 过 程 : 


(define (make-operation-exp exp machine labels operations) 
(let ((op (lookup-prim (operation-exp-op exp) operations) ) 

(aprocs 

(map (lambda (e) 

(make-primitive-exp e machine labels) ) 
(operation-exp-operands exp) ))) 
(lambda () 
(apply op (map (lambda (p) (p)) aprocs))))) 


操作 表达 式 的 语法 由 下 面 过 程 确 定 : 


(define (operation-exp? exp) 
(and (pair? exp) (tagged-list? (car exp) ’op))) 


(define (operation-exp-op operation-exp) 
(cadr (car operation-exp) ) ) 


(define (operation-exp-operands operation-exp) 
(cdr operation-exp) ) 


可 以 看 到 ， 这 里 对 于 操作 表达 式 的 处 理 很 像 4.1.7 节 的 求 值 器 里 的 analyze-application 过 程 
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里 对 过 程 应 用 的 处 理 。 我 们 要 为 每 个 操作 对 象 生 成 一 个 执行 过 程 。 模 拟 时 将 调用 这 些 对 应 于 操 
作对 象 的 过 程 ， 得 到 它们 的 值 ， 而 后 将 模拟 有 关 操作 的 Scheme 过 程 应 用 于 这 些 值 。 找 出 模拟 过 
程 的 方式 ， 就 是 用 操作 的 名 字 到 机 器 的 操作 表格 里 查找 : 


(define (lookup-prim symbol operations) 
(let ((val (assoc symbol operations) ) ) 
(if val 
(cadr val) 


(error "Unknown operation -- ASSEMBLE" symbol) ) ) ) 


练习 5.9 ”在 上 面 对 于 机 器 操作 的 处 理 中 ， 除 了 允许 它们 对 常量 和 寄存 器 的 内 容 进行 操作 
外 ， 还 允许 它们 处 理 标号 。 请 修改 上 述 表达 式 处 理 过 程 ， 加 上 一 个 条 件 ， 要 求 这 些 操作 只 能 
用 于 寄存 器 和 常量 。 

练习 5.10 请 为 寄存 器 机 器 指令 设计 一 种 新 的 语法 形式 ， 而 后 修改 这 个 模拟 器 ， 使 模拟 
器 能 采用 你 的 新 语法 。 你 能 实现 你 的 新 语法 ， 而 且 在 修改 中 除了 语法 过 程 之 外 不 修改 本 节 的 
模拟 器 里 的 任何 部 分 吗 ? 

练习 5.11 ”我 们 在 5.1.4 节 引入 save 和 restore 时 ， 并 没有 说 明 如 果 试 图 恢复 一 个 并 不 是 
以 前 最 后 保存 的 寄存 器 ， 那 会 出 现 什么 情况 。 例 如 下 面 的 序列 : 


(save y) 
(save x) 


(restore y) 


对 于 这 里 restore 的 意义 有 几 种 合理 的 可 能 性 : 

a) (restore y) 把 最 后 存 入 堆栈 里 的 值 放 和 人 y， 无 论 这 个 值 原来 来 自 哪 个 寄存 器 。 这 
也 是 上 面 模 拟 器 中 的 行为 方式 。 请 说 明 如 何 利 用 这 种 方式 的 优点 ， 从 5.1.4 节 (参见 图 5-12) 
的 斐 波 那 契 机 器 中 删 去 一 条 指令 。 

b) (restore y) 把 最 后 存 和 堆栈 里 的 值 放 入 y， 但 只 是 在 这 个 值 原 来 确实 来 自 y 的 情况 
下 ; 否则 就 发 出 一 个 错误 消息 。 请 修改 模拟 器 ， 使 之 按 这 种 方式 活动 。 你 需要 修改 save， 使 
它 不 但 把 值 存 人 堆栈， 还 要 存 人 寄存 器 的 名 字 。 

c) (restore y) 把 来 自 y 的 最 后 存 和 堆栈 里 的 值 放 入 y， 而 不 管 在 保存 y 之 后 又 有 哪些 
寄存 器 的 值 存 入 或 者 恢复 。 请 修改 模拟 器 ， 使 它 能 按照 这 种 方式 活动 。 你 将 需要 为 每 个 寄存 
器 关联 一 个 堆栈 ， 还 需要 修改 initialize-stack 操 作 ， 让 它 初始 化 所 有 的 寄存 器 堆栈 。 

练习 5.12 ”这 个 模拟 器 可 用 于 帮助 我 们 确定 为 实现 一 个 采用 给 定 控制 器 的 机 器 所 需要 的 
数据 通路 。 请 扩充 这 个 汇编 程序 ， 将 下 面 信息 存储 到 机 器 模型 里 : 

“一 个 指令 的 表 ， 其 中 删除 了 所 有 的 重复 ， 并 按照 指令 的 类 型 保存 (assign、goto 等 

等 ) ， 

。 一 个 用 于 保存 人 口 点 的 寄存 器 的 表 (其 中 没有 重复 )， 这 些 入 口 点 都 有 goto 指 令 引 用 ， 

* 一 个 使 用 了 save 或 者 restore 的 寄存 器 的 表 (其 中 没有 重复 ) ; 

。 对 于 每 个 寄存 器 ， 一 个 对 它 的 赋值 来 源 的 表 (其 中 没有 重复 )。 例 如 ， 对 于 图 5-11 的 阶 

乘机 器 ， 寄 存 器 val 的 赋值 来 源 包括 (const 1) 和 ((op *) (reg n) (reg 

val) )。 i 
请 扩充 有 关机 器 的 消息 传递 界面 ， 提 供 对 这 些 新 信息 的 访问 机 制 。 为 了 测试 你 的 分 析 器 ， 请 
定义 图 $-12 的 斐 波 那 契 机 器 ， 并 检查 所 列 出 的 各 个 表 。 


372 PIÈ FHFEMSELHHH 


练习 5.13 ”请 修改 上 面 的 模拟 器 ， 使 它 可 以 直接 利用 控制 器 序列 去 确定 机 器 里 需要 哪些 
寄存 器 ， 不 必 另 将 一 个 寄存 器 表 作 为 nake -machine 的 参数 ， 不 采用 在 make-machine 里 预 
先 分 配 这 些 寄存 器 的 方式 ， 你 可 以 在 汇编 指令 的 过 程 中 ， 第 一 次 遇 到 一 个 寄存 器 时 完成 它 的 
分 配 。 


5.2.4 监视 机 器 执行 


模拟 的 用 途 不 仅 在 于 可 用 于 验证 所 提出 的 机 器 的 正确 性 ， 还 能 帮助 度量 机 器 的 性 能 。 举 
例 说 ， 我 们 可 以 在 自己 的 模拟 程序 里 安装 一 个 “测量 仪器 *"， 记 录 在 计算 中 使 用 堆栈 操作 的 次 
数 。 要 做 好 这 件 事 ， 我 们 应 该 修改 被 模拟 的 堆栈 ， 记 录 将 寄存 器 保存 到 堆栈 里 的 次 数 和 堆栈 
达到 的 最 大 深度 的 轨迹 ， 如 下 面 所 示 。 我 们 还 需要 在 基本 机 器 模型 里 增加 一 个 操作 ， 用 于 对 
应 对 于 堆栈 的 统计 数据 ， 并 在 make -new-machine 里 将 the-ops 初 始 化 为 : 


(list (list ’initialize-stack 
(lambda () (stack *initialize) )) 
(list ’print-stack-statistics 
(lambda () (stack ’print-statistics) ))) 


这 里 是 make-stack 的 新 定义 : 


(define (make-stack) 
(let (te 7.0) 
(number-pushes 0) 
(max-depth 0) 
(current-depth 0)) 
(define (push x) 
(set! s (cons x s)) 
(set! number-pushes (+ 1 number-pushes) ) 
(set! current-depth (+ 1 current-depth) ) 
(set! max-depth (max current-depth max-depth) ) ) 
(define (pop) 
(if (null? s) 
(error "Empty stack -- POP") 
(let ((top (car s))) 
(set! s (cdr s)) 
(set! current-depth (- current-depth 1) ) 
top) ) ) 
(define (initialize) 
(set! s *()) 
(set! number-pushes 0) 
(set! max-depth 0) 
(set! current-depth 0) 
*done) 
(define (print-statistics) 
(newline) 
(display (list ‘total-pushes “= number-pushes 
*maximum-depth ’= max-depth) ) ) 
(define (dispatch message) 
(cond ((eq? message *push) push) 
((eq? message "pop) (pop) ) 
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( (eq? message initialize) (initialize) ) 
( (eq? message ‘print-statistics) 
(print-statistics)) 
(else 
(error "Unknown request -- STACK" message)))) 
dispatch) ) 


练习 5.15 到 5.19 描 述 了 其 他 一 些 在 监视 和 排除 程序 错误 方面 很 有 用 的 特征 ， 可 以 考虑 将 它们 加 
入 寄存 器 机 器 模拟 器 中 。 

练习 5.14 ”请 度量 由 图 5-11 所 示 的 阶乘 机 器 对 各 种 小 的 n 值 计算 n! 时 ， 所 执行 的 堆栈 压 入 
次 数 和 最 大 深度 。 根 据 你 得 到 的 数据 确定 有 关 的 公式 ， 对 于 任何 n>1， 基 于 nn 描述 压 入 操作 的 
次 数 和 在 计算 n! 时 的 最 大 堆栈 深度 。 请 注意 ， 这 两 个 公式 都 是 n 的 线性 函数 ， 因 此 请 设法 确定 
其 中 的 两 个 常数 。 为 了 打印 统计 数据 ， 你 将 需要 扩充 这 一 阶乘 机 器 ， 增 加 初始 化 堆栈 和 打印 
统计 结果 的 指令 。 你 还 可 能 想 修改 有 关机 器 ， 使 它 能 反复 地 将 值 读 入 n， 计算 其 阶乘 并 打印 结 
R (就 像 我 们 在 图 5-4 里 对 GCD 机 器 所 做 的 那样 )， 使 你 以 后 再 也 不 必 反 复 去 调用 get - 
register-contents, set-register-contents! 和 start。 

练习 5.15 给 寄存 器 机 器 模拟 器 增加 指令 计数 功能 。 也 就 是 说 ， 让 这 一 机 器 模型 维持 所 
执行 指令 的 数目 。 扩 充 这 一 机 器 模型 ， 使 它 能 接受 一 个 新 消息 ， 打 印 出 当时 的 指令 计数 值 并 
将 计数 器 重新 设置 为 0。 

练习 5.16 ”扩充 上 述 模拟 器 ， 提 供 指 令 追 踪 功 能 。 也 就 是 说 ， 在 每 条 指令 被 执行 之 前 ， 
让 模拟 器 打印 出 这 一 指令 的 正文 。 让 扩充 后 的 机 器 模型 能 接受 trace-on 和 trace-off 消 息 ， 
并 能 相应 地 打开 或 者 关闭 追踪 功能 。 

练习 5.17 扩充 练习 5.16 的 指令 追踪 功能 ， 使 得 在 打印 一 条 指令 之 前 ， 模 拟 器 先 打印 出 在 
控制 序列 里 正好 位 于 这 条 指令 之 前 的 标号 。 在 做 这 件 事情 时 ， 请 小 心地 保证 它 不 会 干扰 了 指 
令 计 数 功能 (练习 5.15)。 你 需要 让 模拟 器 保存 必要 的 标号 信息 。 

练习 5.18 ”请 修改 第 5.2.1 市 里 的 make -register 过 程 ， 使 寄存 器 可 以 被 追踪 。 寄 存 器 
应 该 能 接受 打开 和 关闭 追踪 的 消息 。 当 一 个 寄存 器 被 追踪 时 ， 一 旦 给 这 个 寄存 器 赋值 ， 就 会 
打印 出 寄存 器 的 名 字 ， 寄 存 器 原来 的 内 容 和 当时 将 要 赋值 的 新 内 容 。 请 扩充 机 器 模型 的 界面 ， 
以 允许 你 打开 或 者 关闭 对 任何 特定 寄存 器 的 追踪 。 

练习 5.19 Alyssa P. Hacker 希 望 在 模拟 器 里 有 断 点 功能 ， 以 帮助 她 排除 机 器 设计 中 的 错 
误 。 你 现在 被 雇佣 来 为 她 安装 这 种 特征 。 她 希望 能 够 描述 控制 序列 里 的 任何 位 置 ， 使 模拟 器 
能 停止 在 那里 ， 并 使 她 能 够 检测 机 器 的 状态 。 你 需要 实现 一 个 过 程 : 

(set-breakpoint <machine> <label> <n>) 
它 将 在 第 n 条 指令 之 前 的 给 定 标 号 后 面 设置 一 个 断 点 。 例 如 ， 

(set-breakpoint gcd-machine ‘test-b 4) 
将 在 gcda-machine 里 给 寄存 器 a 赋 值 前 安装 一 个 断 点 。 当 模拟 器 到 达 这 个 断 点 时 ， 它 应 打印 
那个 标号 和 断 点 的 偏 移 量 ， 并 停止 指令 的 执行 。 这 样 Alyssa 就 可 以 用 get -register- 
contents 和 set-register-contents! 去 操作 被 模拟 机 器 的 状态 。 此 后 她 应 该 能 让 机 器 
继续 执行 ， 用 

(proceed-machine <machine>) 


她 还 应 该 可 以 用 下 面 方式 删除 某 个 特定 断 点 
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(cancel-breakpoint <machine> <label> <n>) 


或 者 用 下 面 方式 删除 所 有 断 点 : 


(cancel-all-breakpoints <machine>) 


5.3 存储 分 配 和 废料 收集 


在 5.4 节 里 ， 我 们 将 要 说 明 如 何 把 一 个 Scheme 求 值 器 实现 为 一 部 寄存 器 机 器 。 为 了 简化 这 
一 讨论 ， 下 面 将 假定 在 我 们 的 寄存 器 机 器 里 可 以 安装 好 一 个 表 结 构 存 储 器 ， 其 中 对 于 表 结 构 
数据 的 基本 操作 都 是 机 器 的 基本 过 程 。 当 我 们 需要 集中 精力 考虑 Scheme 解释 器 里 的 控制 机 制 
时 ， 假 定 存在 这 样 一 个 存储 器 是 一 种 很 有 用 的 抽象 ， 但 这 并 没有 反映 当前 计算 机 中 实际 的 基 
本 数据 操作 的 情况 。 为 了 得 到 有 关 一 个 Lisp 系 统 如 何 工 作 的 一 种 更 完整 的 认识 ， 我 们 还 必须 
去 考察 表 结 构 怎 样 以 一 种 与 常规 的 计算 机 存储 器 相 容 的 方式 表示 。 

有 关 表 结构 的 实现 需要 考虑 两 方面 问题 。 首 先是 一 个 纯粹 的 表示 问题 : 如 何 去 表 示 Lisp 
序 对 的 “盒子 和 指针 ”结构 ， 其 中 只 使 用 到 典型 计算 机 存储 器 的 存储 单元 和 寻 址 能 力 。 第 二 
个 问题 ， 是 需要 关心 如 何 将 对 存储 的 管理 作为 一 个 计算 过 程 。Lisp 系 统 的 操作 强烈 地 依赖 于 
连续 创建 新 数据 对 象 的 能 力 ， 包 括 那些 被 解释 的 Lisp 过 程 里 显 式 创 建 的 各 种 对 象 ， 以 及 由 解 
释 器 本 身 创 建 的 对 象 ， 例 如 环境 和 参数 表 等 等 。 如 果 计 算 机 里 有 数量 无 穷 的 可 以 快速 寻 址 的 
存储 器 ， 那 么 连续 不 断 地 创建 新 对 象 就 不 会 有 问题 。 但 是 ， 实 际 的 计算 机 存储 器 只 有 有 穷 的 
规模 〈 实 在 可 惜 )。 因 此 Lisp 系 统 需要 提供 一 种 自动 存储 分 配 功能 ， 以 支撑 一 种 无 穷 存储 器 的 
假象 。 当 一 个 数据 对 象 不 再 需要 时 ， 分 配给 它 的 存储 就 自动 回收 ， 并 可 用 于 构造 新 的 数据 对 
象 。 存 在 着 多 种 能 提供 这 样 的 自动 存储 分 配 的 技术 。 我 们 将 要 在 这 一 节 里 讨论 的 方法 称 为 刻 
料 收集 。 


5.3.1 将 存储 看 作 向 量 


常规 计算 机 的 存储 器 可 以 看 作 是 一 串 排 列 整齐 的 小 隔 间 ， 每 个 小 隔 间 里 可 以 保存 一 点 信 
息 。 这 里 的 每 个 小 隔 间 有 一 个 具有 唯一 性 的 名 字 ， 称 为 它 的 地 址 或 者 位 置 。 典 型 的 存储 器 系 
统 提供 了 两 个 基本 操作 ， 一 个 能 取出 保存 在 一 个 特定 位 置 的 数据 ， 另 一 个 能 将 新 的 数据 赋 给 
指定 的 位 置 。 我 们 可 以 做 存储 器 地 址 的 增 量 操作 ， 以 支持 对 某 一 组 小 隔 间 的 顺序 访问 。 更 一 
般 的 情况 是 ， 许 多 重要 的 数据 操作 都 要 求 将 存储 器 地 址 也 作为 数据 来 看 待 和 处 理 ， 以 便 可 以 
将 地 址 保存 到 存储 位 置 里 ， 并 能 在 机 器 的 寄存 器 里 对 它们 做 各 种 操作 。 表 结构 的 表示 就 是 这 
种 地 址 算术 的 一 个 具体 应 用 。 

为 了 模拟 计算 机 的 存储 器 ， 我 们 采用 一 种 新 的 数据 结构 ， 称 为 向 量 。 抽 象 地 看 ， 一 个 向 
量 也 是 一 个 复合 数据 对 象 ， 其 中 各 个 元 素 都 可 以 通过 一 个 整数 下 标 访问 ， 这 种 访问 所 需 的 时 
间 量 与 具体 下 标 无 关 辑 。 为 描述 存储 器 操作 ， 我 们 用 Scheme 里 的 两 个 完成 向 量 操作 的 过 程 ， 

e (vector-ref <vector> <n>) 返回 向 量 里 的 第 ?个 元 素 。 

e (vector-set! <vector> <n><value>) 将 向 量 里 的 第 7 个 元 素 设置 为 指定 值 。 
举例 说 ， 如 果 v 是 一 个 向 量 ， 那 么 ，(vector-ref v 5) 将 取得 向 量 v 里 的 第 5 个 元 素 ， 而 





290 我 们 也 可 以 将 存储 器 表示 为 数据 项 的 表 。 但 是 这 样 做 时 ， 访 问 时 间 就 不 会 与 下 标 无 关 了 ， 因 为 要 访问 其 中 的 
第 n 个 元 素 需 要 做 n 一 1 次 cdr 操 作 。 
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(vector-set! v 5 7) 把 向 量 v 里 的 第 5 个 元 素 修改 为 7。”! 对 于 计算 机 存储 器 而 言 ， 这 种 
访问 可 以 通过 地 址 算术 实现 ， 其 中 采用 描述 一 个 向 量 在 存储 器 里 的 开始 位 置 的 基 址 加 上 一 个 
下 标 ， 这 种 下 标 描述 的 是 向 量 里 某 个 特定 元 素 的 偏 移 量 。 


Lisp 数 据 的 表示 

我 们 可 以 用 向 量 实现 表 结 构 存 储 器 所 需 的 基本 序 对 结构 。 让 我 们 设想 计算 机 的 存储 器 被 
分 成 了 两 个 向 量 ，the-cars 和 the-cdrs。 这 时 我 们 就 可 以 采用 下 面 方式 表示 表 结 构 了 : 
指向 序 对 的 指针 就 是 到 这 两 个 向 量 的 下 标 ， 一 个 序 对 的 car 就 是 向 量 the-cars 里 具有 指定 
下 标的 项 ， 该 序 对 的 cdr 部 分 就 是 向 量 the-cdrs 里 具有 指定 下 标的 项 。 我 们 还 需要 为 那些 
不 是 序 对 的 对 象 (例如 数 和 符号 ) 确定 表示 方式 ， 需 要 有 一 种 方式 来 区 分 是 这 种 数据 还 是 那 
种 数据 。 完 成 这 些 事情 的 方法 很 多 ， 但 它们 都 可 以 归结 为 采用 某 种 带 类 型 的 指针 ， 也 就 是 说 ， 
现在 需要 扩充 指针 的 概念 ， 使 之 包含 有 关 数 据 类 型 的 信息 空 。 数 据 类 型 使 系统 能 辨别 是 指向 
序 对 的 指针 〈 它 包括 “ 序 对 ”数据 类 型 和 一 个 到 存储 器 向 量 的 下 标 ) ， 还 是 指向 其 他 种 类 的 数 
据 的 指针 ( 它 包含 有 关 某 种 数据 类 型 的 信息 和 某 些 用 于 表示 该 类 型 的 数据 的 其 他 东西 )。 认 为 
两 个 数据 对 象 是 同一 个 东西 (eq? ) 的 条 件 就 是 它们 的 指针 相同 交 。 图 5-14 显 示 的 是 采用 这 种 
方法 表示 表 ((1 2) 3 4) 的 情况 ， 这 个 表 的 盒子 和 指针 表示 也 显示 在 图 中 。 图 中 用 字母 前 
组 标明 类 型 信息 。 这 样 ， 指 向 下 标 为 5 的 序 对 的 指针 标的 是 p5， 空 表 用 指针 e0 表 示 ， 指 向 数 4 
的 指针 标的 是 用 n4 。 在 盒子 和 指针 图 里 ， 我 们 在 每 个 序 对 的 左下 方 标 了 一 个 向 量 下 标 ， 表 示 
这 个 序 对 的 car 和 ”cdr 存储 的 地 方 。 在 the-cars 和 the-cdrs 里 空白 的 地 方 可 能 保存 了 其 
他 数据 结构 的 序 对 (在 这 里 不 关心 它们 )。 


(( 27 3 4) 
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the-cdrs 





图 5-14 表 ((1 2) 3 4) 的 方块 指针 图 和 存储 器 向 量 表示 


”为 完整 起 见 ， 我 们 还 要 描述 一 个 构造 向 量 的 make-vector 操 作 。 但 在 目前 的 应 用 里 ， 我 们 只 是 使 用 向 量 去 
模拟 计算 机 存储 器 的 固定 划分 情况 。 

29) 这 与 我 们 在 第 2 章 为 处 理 通用 操作 而 引进 的 “ 带 标志 数据 ”的 思想 完全 一 样 。 当 然 ， 在 这 里 的 数据 类 型 位 于 
基本 的 机 器 层面 上 ， 而 不 是 在 表 的 基础 上 构造 出 来 的 。 

298 类 型 信息 可 以 采用 各 种 方式 编码 ， 有 具体 做 法 依赖 于 Lisp 系 统 的 实现 所 在 的 机 器 细节 。Lisp 程 序 执行 的 效率 在 
很 大 程度 上 依赖 于 所 做 出 的 这 种 选择 有 多 么 聪明 ， 但 是 ， 想 把 好 的 选择 形式 化 为 一 般 性 的 设计 原则 却 非 常 困 
难 。 实 现 带 类 型 指针 的 最 直接 方式 是 在 每 个 指针 里 都 分 配 固定 的 一 组 二 进 制 位 作为 类 型 域 ， 用 于 做 类 型 的 编 
码 。 在 设计 这 样 的 表示 时 ， 必 须 处 理 的 重要 问题 包括 下 面 这 些 : 表示 类 型 需要 多 少 个 二 进 制 位 ?向 量 的 下 标 
必须 有 多 大 ?用 于 对 指针 的 类 型 域 操作 的 基本 机 器 指令 的 效率 如 何 ? 有 些 机 器 为 有 效 操作 类 型 域 提供 了 特殊 
的 硬件 ， 这 种 机 器 也 被 称 为 是 带 标志 体系 结构 的 机 器 。 
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指向 一 个 数值 的 指针 ， 例 如 n4 ， 也 完全 可 能 同时 包含 着 指明 数值 对 象 的 类 型 信息 以 及 数 4 
的 表示 本 身 *。 如 果 需 要 处 理 的 数值 太 大 ， 无 法 在 固定 大 小 的 指针 空间 里 表示 ， 可 以 用 一 个 
大 数 数据 类 型 ， 此 时 就 是 让 指针 指向 一 个 表 ， 在 其 中 存储 这 个 大 数 里 的 各 个 部 分 ”。 

一 个 符号 也 可 以 表示 为 一 个 带 类 型 的 指针 ， 它 指向 一 个 字符 序列 ， 这 个 字符 序列 形成 了 
该 符号 的 输出 表示 形式 。 这 一 序列 是 由 Lisp 读 入 程序 在 输入 时 第 一 次 遇 到 这 一 字符 序列 时 构 
造 起 来 的 。 因 为 我 们 希望 同一 个 符号 的 两 个 实例 被 eq? 认 定 为 “同一 个 ”符号 ， 而 希望 eq? 只 
是 简单 地 检测 指针 相等 ， 因 此 我 们 就 必须 保证 ， 当 读 入 程序 两 次 看 到 同一 个 符号 时 ， 它 一 定 
能 用 同一 个 指针 (指向 相应 的 字符 序列 ) 表示 这 两 个 出 现 。 为 了 做 到 这 一 点 ， 读 入 程序 一 直 
维护 着 它 所 遇 到 的 所 有 符号 的 一 个 表格 ， 按 照 传统 ， 这 称 为 对 象 表 (obarray ) 。 当 读 入 程序 遇 
到 了 一 个 字符 串 ， 并 考虑 据 此 构造 一 个 符号 时 ， 它 就 会 去 检查 对 象 表 ， 看 看 前 面 是 否 已 经 看 
到 过 同样 的 字符 串 。 如 果 前 面 没 看 到 过 ， 它 就 用 这 一 字符 串 构造 出 一 个 新 符号 (指向 新 的 字 
符 序 列 的 带 类 型 指针 )， 并 将 这 个 指针 加 入 对 象 表 里 。 如 果 读 入 程序 已 经 看 到 过 这 个 字符 串 ， 
它 就 直接 返回 保存 在 对 象 表 里 的 符号 指针 。 将 字符 串 用 这 种 唯一 指针 取代 的 过 程 称 为 加 入 


(interning) 一 个 符号 。 


基本 表 操 作 的 实现 

有 了 上 面 的 表示 方式 ， 我 们 就 可 以 将 寄存 器 机 器 里 的 各 个 “基本 ” 表 操 作 代 换 为 一 个 或 
者 几 个 基本 向 量 操作 了 。 下 面 将 使 用 两 个 寄存 器 the-cars 和 the-cdrs， 用 它们 标识 与 之 
对 应 的 内 存 问 量 , 假定 vector-ref 和 vector-set1! 是 可 以 使 用 的 基本 疝 量 操作 。 我 们 还 
要 假定 有 对 指针 的 算术 操作 (增加 一 个 指针 的 值 ， 用 一 个 序 对 的 指针 作为 向 量 的 下 标 ， 或 者 
加 起 两 个 数 ) ， 它 们 都 将 自动 地 应 用 到 带 类 型 指针 的 下 标 部 分 。 

举例 说 ， 我 们 可 以 让 寄存 器 机 器 支持 下 面 的 指令 : 


(assign <regi> (op car) (reg <reg:>)) 
(assign <reg;> (op cdr) (reg <reg,>) ) 
如 果 我 们 分 别 将 它们 实现 为 : 
(assign <reg;> (op vector-ref) (reg the-cars) (reg <reg)>) ) 
(assign <reg;> (op vector-ref) (reg the-cdrs) (reg <reg)>) ) 
指令 : 
(perform (op set-car!) (reg <regi>) (reg <reg:>)) 
(perform (op set-cdr!) (reg <regl>) (reg <reg:>)) 
将 实现 为 
(perform 
(op vector-set!) (reg the-cars) (reg <reg,>) (reg <reg>) ) 


”有 关 数 值 如 何 表示 的 决定 ， 也 确定 了 我 们 能 否 用 eq? 〈 它 检测 指针 的 相等 ) 检测 两 个 数值 的 相等 与 否 。 如 采 
指针 里 包含 的 是 数值 本 身 ， 那 么 相等 的 数值 就 会 有 相同 的 指针 值 。 但 是 如 果 指 针 里 包含 的 是 保存 数 的 位 置 的 
下 标 ， 那 么 ， 要 想 保证 相等 的 数 也 具有 相同 的 指针 ， 我 们 就 需要 小 心安 排 ， 不 能 让 同一 个 数 在 入 多 个 位 置 
里 。 

5 这 就 像 是 将 一 个 数 写 成 一 个 数字 的 序列 ， 除 了 这 里 的 每 个 “数字 ”有 所 不 同 之 外 ， 它 的 取 值 可 以 是 位 于 0 到 
某 个 可 能 保存 在 一 个 指针 里 的 最 大 的 数 之 间 的 一 个 值 。 
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(perform 
(op vector-set!) (reg the-cdrs) (reg <reg;>) (reg <reg2>) ) 


执行 cons 时 需要 分 配 一 个 闲置 未 用 的 下 标 ， 将 cons 的 参数 存 和 人 向 量 the-cars 和 the- 
cdrs 里 由 这 个 下 标 确定 的 位 置 。 我 们 还 要 假定 有 一 个 特殊 的 寄存 器 £ree， 它 保存 着 一 个 序 
对 指针 ， 总 是 指向 下 一 个 可 用 下 标 ， 而 且 我 们 可 以 增加 这 一 指针 的 下 标 部 分 ， 以 便 找到 下 一 
个 自由 的 位 置 %*。 举 例 说 ， 指 令 : 


(assign <reg,;> (op cons) (reg <reg,>) (reg <reg3>)) 
E PE AY) Pa) BR ESL” 
(perform 
(op vector-set!) (reg the-cars) (reg free) (reg <reg2>) ) 
(perform 
(op vector-set!) (reg the-cdrs) (reg free) (reg <reg,>) ) 


(assign <reg,;> (reg free) ) 
(assign free (op +) (reg free) (const 1)) 


操作 eq? 


(op eq?) (reg <reg1>) (reg <reg:>) 


简单 检测 寄存 器 的 所 有 域 是 否 相 等 ， 而 像 pair?、null?、symbol? 和 number? 一 类 谓词 都 
只 检测 指针 的 类 型 域 。 

堆栈 的 实现 

虽然 我 们 的 寄存 器 机 器 里 使 用 了 堆栈 ,但 在 这 里 却 不 需要 做 任何 特殊 事情 ， 因 为 堆栈 可 
以 用 表 来 模拟 。 堆 栈 可 以 是 一 个 用 于 保存 值 的 表 ， 由 一 个 特定 寄存 器 the-stack 指 向 。 这样， 
(save <reg>) 就 可 以 实现 为 : 


(assign the-stack (op cons) (reg <reg>) (reg the-stack)) 


类 似 地 ，(restore <reg>) 可 以 实现 为 : 


(assign <reg> (op car) (reg the-stack)) 
(assign the-stack (op cdr) (reg the-stack)) 


而 (perform (op initialize-stack)) 可 以 实现 为 : 


(assign the-stack (const ())) 


这 些 操作 都 可 以 进一步 基于 上 面 给 出 的 向 量 操作 给 出 解释 。 在 常规 计算 机 体系 结构 里 ， 堆 栈 
另行 分 配 为 一 个 单独 的 向 量 常 有 很 大 优越 性 。 采 用 这 种 做 法 ， 对 于 堆栈 的 压 入 和 弹出 操作 都 
可 以 通过 增加 或 者 减少 向 量 下 标的 方式 实现 。 

练习 5.20 ”请 画 出 由 下 面 表达 式 产 生 的 表 结构 的 盒子 和 指针 表示 ， 以 及 对 应 的 存储 器 向 
量 表示 的 图 形 (就 像 图 5-4 里 那样 )。 


(define x (cons 1 2)) 
(define y (list x x)) 


2% 也 有 找 自由 存储 的 其 他 方式 。 举 例 说 ， 我 们 也 可 以 将 所 有 未 用 的 序 对 链接 起 来 ， 形 成 一 个 自由 表 。 在 这 里 的 
自由 位 置 是 连续 的 (并 因此 可 以 通过 增加 指针 值 的 方式 访问 )， 是 因为 这 里 采用 了 一 种 紧缩 式 的 废料 收集 程 
Æ, 我 们 将 在 5.3.2 节 看 到 有 关 的 情况 。 

27 从 本 质 上 说 ， 这 就 是 基于 set -car! 和 set-cdr! 的 cons 实 现 ， 如 3.3.1 节 所 述 。 在 那里 的 实现 中 所 用 的 
get -new-pair， 现 在 通过 free 指 针 实现 了 。 
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假定 free 指 针 开始 时 的 值 是 pl1。 表 示 x 和 y 的 值 的 是 哪些 指针 ? 

练习 5.21 为 下 面 过 程 实现 寄存 器 机 器 。 假 定 表 结 构 存 储 操作 可 以 作为 机 器 的 基本 操作 
使 用 : 

a) 递归 的 count -leaves: 


(define (count-leaves tree) 
(cond ((null? tree) 0) 
((not (pair? tree)) 1) 
(else (+ (count-leaves (car tree)) 


(count-leaves (cdr tree)))))) 


b) 递归 的 count -leaves， 带 有 一 个 显 式 的 计数 器 : 
(define (count-leaves tree) 
(define (count-iter tree n) 
(cond ((null? tree) n) 
( (not (pair? tree)) (+ n 1)) 
(else (count-iter (cdr tree) 
(count-iter (car tree) n))))) 
(count-iter tree 0)) 


练习 5.22 练习 3.12 和 3.3.1 节 给 出 了 一 个 append 过 程 ， 它 连接 起 两 个 表 ， 构 成 一 个 新 
表 ; 还 有 另 一 个 过 程 append!， 它 直接 将 两 个 表 粘 连 到 一 起 。 请 为 实现 这 两 个 操作 各 设计 一 
个 寄存 器 机 器 ， 假 定 表 结构 存储 操作 是 可 用 的 基本 操作 。 


5.3.2 维持 一 种 无 穷 存储 的 假象 


在 5.3.1 节 所 勾画 的 表示 方式 能 够 解决 表 结 构 的 问题 ， 当 然 这 里 还 需要 有 一 个 前 提 ， 那 就 
是 需要 有 无 穷 数 量 的 存储 。 如 果 采 用 实际 的 计算 机 ， 我 们 最 终 总 会 用 光 所 有 用 于 构造 新 序 对 
的 自由 空间 ”。 然 而 ， 典 型 计算 中 产生 的 大 部 分 序 对 只 是 用 于 保存 计算 的 中 间 结 果 ， 在 这 些 
结果 被 访问 之 后 ， 有 关 的 序 对 就 不 再 有 用 了 一 一 它们 变 成 了 废料 。 例 如 ， 计 算 

(accumulate + 0 (filter odd? (enumerate-interval 0 n))) 

将 构造 起 两 个 表 : 枚 举 出 的 表 和 对 枚 举 进行 过 滤 的 结果 表 。 在 这 里 的 累计 工作 完成 之 后 ， 这 
两 个 表 就 都 不 需要 了 ， 为 它们 分 配 的 存储 可 以 回收 。 如 果 我 们 能 做 出 一 种 安排 ， 周 期 性 地 收 
集 起 所 有 的 废料 ， 而 且 对 存储 的 这 种 重复 使 用 的 速度 与 构造 新 序 对 的 速率 大 臻 差不多， 那么 
我 们 就 能 维持 一 种 假象 ， 好 像 这 里 存在 着 无 穷 数 量 的 存储 器 。 

为 了 回收 这 些 序 对 ， 我 们 必须 有 一 种 方式 来 确定 原先 分 配 的 哪些 序 对 已 经 不 再 需要 了 
(这 一 说 法 实际 上 意味 着 它们 的 内 容 对 今后 的 计算 不 再 有 影响 了 )。 我 们 下 面 要 考察 的 方法 称 
为 废料 收集 。 废 料 收集 是 基于 如 下 的 认识 : 在 Lisp 解 释 过 程 中 的 任何 时 刻 ， 有 可 能 影响 未 来 
的 计算 过 程 的 对 象 ， 也 就 是 从 当前 机 器 寄存 器 里 的 指针 出 发 ， 经 过 一 系列 car 和 car 操作 能 够 


298 这 句 话 将 来 也 可 能 不 成 立 ， 因 为 存储 器 有 可 能 变 得 足够 大 ， 以 至 在 一 部 计算 机 的 存在 期 间 不 可 能 用 完 它 。 举 
例 说 ， 一 年 里 大 约 有 3 x 105 微 秒 ， 因 此 如 果 我 们 每 个 微 秒 做 一 次 cons， 大 约 需 要 有 10"” 个 存储 单元 就 可 以 构 
造 出 一 台 机 器 ， 它 可 以 运行 30 年 而 不 会 用 光 所 有 的 存储 器 。 按 照 今 天 的 标准 ， 这 样 的 存储 器 似乎 太 大 了 ， 但 
在 物理 上 这 并 不 是 不 可 能 的 。 而 在 另 一 方面 ， 处 理 器 的 速度 也 在 变 得 更 快 ， 明 天 的 一 台 计 算 机 可 能 有 着 一 大 
批 处 理 器 ， 在 一 个 内 存 上 并 行 操作 ， 因 此 使 用 存储 的 速度 也 可 能 远 远 快 于 上 面 的 假定 。 
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达到 的 那些 对 象 ”。 所 有 不 能 以 这 种 方式 访问 的 对 象 都 可 以 回收 了 。 

执行 废料 收集 的 方法 也 很 多 。 我 们 将 要 在 这 里 考察 的 方法 称 为 停止 并 复制 ， 其 基本 思想 
就 是 将 存储 器 分 成 两 半 ， 分 为 “工作 存储 区 ”和 “自由 存储 区 ”。 当 cons 需 要 构造 序 对 时 ， 
它 就 在 工作 存储 区 里 分 配 它们 。 当 工作 存储 区 满 的 时 候 就 执行 废料 收集 ， 确 定位 于 工作 存储 
器 里 的 所 有 有 用 序 对 的 位 置 ， 并 将 它们 复制 到 自由 存储 区 里 的 一 些 连续 位 置 去 。 确 定 有 用 序 
对 的 方式 是 从 机 器 的 寄存 器 出 发 ， 追 踪 所 有 的 car 和 cdr 指针 。 由 于 我 们 不 复制 废料 ， 因 此 可 
以 预期 还 会 剩 下 一 些 自由 存储 ， 可 供 分 配给 新 的 序 对 。 此 外 ， 原 来 工作 存储 区 里 也 不 再 有 有 
用 的 东西 了 ， 因 为 其 中 有 用 的 序 对 都 已 复制 。 这 样 ， 如 果 我 们 交换 工作 存储 区 和 自由 存储 区 
的 角色 ， 计 算 就 可 以 继续 进行 下 去 ， 在 新 的 工作 存储 区 〈 它 也 就 是 原来 的 自由 存储 区 ) 里 分 
配 新 的 序 对 。 当 这 一 存储 区 满 时 ， 我 们 又 可 以 将 其 中 有 用 的 序 对 复制 到 新 的 自由 存储 区 ( 它 
也 就 是 原来 的 工作 存储 区 ) 3°. 


停止 并 复制 废料 收集 的 实现 

现在 我 们 要 用 自己 的 寄存 器 机 器 语言 ， 给 出 这 种 停止 并 复制 算法 的 更 多 细节 。 现 在 假定 
存在 着 一 个 称 为 foot 的 寄存 器 ， 其 中 包含 一 个 指针 ， 它 指向 了 一 个 结构 ， 该 结构 最 终 能 够 指 
向 所 有 可 以 访问 的 数据 。 这 件 事情 很 容易 安排 ， 我 们 只 需 在 废料 收集 即将 开始 时 将 机 器 里 所 
有 寄存 器 的 内 容 保存 到 一 个 预先 分 配 好 的 表 里 ， 并 让 root 指 向 这 个 表 "。 我 们 还 假定 ， 除 了 
当前 的 工作 存储 区 外 ， 还 存在 着 一 个 自由 存储 区 ， 可 以 把 有 用 的 数据 复制 进去 。 当 前 工作 存 
储 区 由 两 个 向 量 组 成 ， 其 基 址 分 别 存放 在 称 为 Lhe-cars 和 the-cdrs 的 寄存 器 里 ， 自 由 存 
储 区 的 基 址 存放 在 寄存 器 new-cars 和 new-cdrs 里 。 

当 计算 耗 尽 了 当前 工作 存储 区 里 的 所 有 自由 单元 时 ， 就 触发 了 废料 收集 。 也 就 是 说 ， 事 
情 发 生 在 某 次 cons 操 作 企 图 去 增加 free 指 针 ， 使 它 超出 当前 工作 存储 向 量 范围 的 时 候 。 当 
废料 收集 完成 时 ，root 指 针 将 指向 新 的 存储 区 ， 从 root 出 发 可 以 访问 的 所 有 对 象 都 已 经 移 
入 新 的 存储 区 。 而 free 指 针 指 向 新 存储 区 里 的 下 一 个 位 置 ， 新 的 序 对 将 从 那里 分 配 。 此 外 ， 
工作 存储 区 和 自由 存储 区 的 角色 也 交换 了 一 一 新 的 序 对 将 在 新 的 存储 区 里 分 配 ， 从 free 指 针 
所 指 的 位 置 开 始 。( 原 先 的 ) 工作 存储 区 现在 已 经 变 成 可 用 的 新 存储 区 ， 它 将 用 于 下 一 次 废料 


299 假定 这 里 的 堆栈 按照 5.3.1 节 的 描述 用 表 的 形式 表示 ， 因 此 位 于 堆栈 里 的 数据 项 都 可 以 通过 堆栈 寄存 器 访问 。 
这 一 思想 是 Minsky 发 明 并 最 早 实现 的 ， 作 为 MIT 电 子 学 实验 室 里 为 PDP-1 所 做 的 Lisp 系 统 的 一 部 分 。Fenichel 
和 Yochelson (1969) 进一步 发 展 了 这 一 思想 ， 并 将 它 用 于 Multics 分 时 系统 中 的 Lisp 实 现 。 后 来 Baker (1978) 
开发 出 这 一 思想 的 一 个 “实时 ”版 本 ， 其 中 不 需要 在 废料 收集 时 将 计算 停 下 来 。Baker 的 思想 又 得 到 Hewitt、 
Lieberman 和 Moon 的 进一步 发 展 (参见 Lieberman and Hewitt 1983) ， 以 利用 实际 中 的 一 种 情况 : 计算 中 得 到 
的 一 些 结构 更 具 变动 性 ， 而 另 一 些 结构 则 更 持久 些 。 
另 一 种 常用 的 废料 收集 技术 是 标记 一 清扫 方法 。 其 工作 过 程 包括 追踪 从 机 器 寄存 器 出 发 可 以 访问 的 所 有 
结构 ， 在 遇 到 每 个 结构 时 做 好 标记 。 而 后 扫描 整个 存储 区 ， 将 所 有 没有 标记 的 位 置 作为 废料 “ 扫 入 ”自由 空 
间 ， 使 其 可 以 重新 使 用 。 有 关 标 记 一 清扫 方法 的 更 完整 讨论 可 参见 Allen 1978, 
Minsky-Fenichel-Yochelson 的 算法 已 经 成 为 实用 的 大 型 存储 系统 的 主导 算法 ， 因 为 它 只 需要 检查 存储 器 
里 的 有 用 部 分 。 标 记 一 清扫 方法 的 情况 与 此 不 同 ， 那 里 的 清扫 阶段 必须 检查 存储 区 的 所 有 部 分 。 停 止 并 复制 
方法 的 另 一 优势 在 于 它 是 一 种 紧缩 型 废料 收集 算法 。 也 就 是 说 ， 在 废料 收集 阶段 结束 时 ， 有 用 数据 都 被 移 到 
一 片 连续 存储 位 置 中 ， 所 有 的 废料 都 被 挤 了 出 来 。 对 于 使 用 虚拟 存储 器 的 机 器 而 言 ， 这 样 可 能 得 到 很 可 观 的 
性 能 提升 ， 因 为 在 这 种 系统 里 ， 访 问 非常 分 散 的 存储 地 址 可 能 需要 更 多 的 换 页 操作 。 
301 这 一 寄存 器 表 里 并 不 包含 用 于 存储 分 配 系统 的 寄存 器 一 一 root 、the-cars、the-cdrs, 以 及 这 一 节 里 引 
进 的 其 他 寄存 器 。 
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收集 。 图 5-15 显 示 的 是 在 一 次 废料 收集 之 前 和 之 后 的 存储 安排 情况 。 











废料 收集 之 前 
the-cars 

有 用 数据 与 废料 混合 工作 存储 区 
the-cdrs | 

free 

new-cars en esa bar 
new-cdrs 

废料 收集 之 后 
ences 废弃 存储 区 新 空间 
new-cdrs 存储 区 
the-cars 
the-cdrs 





free 


图 5-15 废料 收集 过 程 完成 存储 区 的 重新 配置 


废料 收集 过 程 中 的 状态 控制 也 就 是 维持 两 个 指针 ，free 和 scan。 它 们 被 初始 化 到 新 存 
储 区 的 开始 位 置 。 在 算法 开始 时 ， 我 们 把 root 所 指向 的 序 对 ( 根 ) 重新 分 配 到 新 存储 区 的 开 
始 位 置 。 在 复制 了 这 个 序 对 之 后 ，root 指 针 也 将 被 调整 为 指向 这 一 新 位 置 ，free 指 针 的 值 
被 增加 。 此 外 ， 还 要 在 这 一 序 对 原来 的 位 置 加 上 标记 ， 说 明 这 个 位 置 的 内 容 已 经 移 走 了 。 标 
记 方 法 如 下 : 在 原 序 对 的 car 位 置 里 放 一 个 特殊 标记 ， 表 示 这 是 一 个 已 经 移 走 的 对 象 (按照 
传统 ， 这 种 对 象 称 为 破碎 的 心 ) ”， 在 其 car 位置 里 放 一 个 前 向 指针 ， 指 向 这 个 对 象 移动 后 
的 新 位 置 。 

在 为 根 重新 分 配 之 后 ， 废 料 收集 程序 就 进入 了 它 的 基本 循环 。 在 这 个 算法 的 每 一 步 ， 扫 
描 指 针 scan (初始 时 指向 重新 分 配 的 根 ) 指向 的 是 一 个 本 身 已 经 移入 新 存储 区 的 对 象 ， 但 它 
的 car 和 cdr 指 针 仍然 指 着 老 存 储 区 里 的 对 象 。 现 在 要 重新 分 配 这 样 的 被 指 对 象 ， 并 相应 增加 


302 术语 破碎 的 心 是 David Cressey 创 造 的 ， 他 写 出 了 MDL 的 废料 收集 系统 。MDL 是 20 世 纪 70 年 代 早 期 在 MIT 开 
发 的 一 种 Lisp 方 言 。 
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scan 指 针 的 值 。 为 了 重新 分 配 一 个 对 象 (例如 由 我 们 正在 扫描 的 那个 序 对 的 car 指 针 指 向 的 
对 象 ) ， 我 们 需要 检查 它 ， 看 看 这 一 对 象 是 否 已 经 移 走 (看 这 个 对 象 的 car 位 置 是 否 存 放 着 一 
个 破碎 的 心 标记 ) 。 如 果 该 对 象 还 没有 移 走 ， 我 们 就 将 它 复制 到 由 Ezee 所 指 的 位 置 ， 更 新 
free， 在 这 个 对 象 的 老 位 置 里 设置 破碎 的 心 标 志和 前 向 指针 ， 并 更 新 指向 这 个 对 象 的 指针 
(在 现在 的 假设 里 ， 也 就 是 正 被 扫描 的 序 对 里 的 car 指 针 )， 使 之 指向 刚刚 确定 的 新 位 置 。 如 
果 这 一 对 象 已 经 移 走 ， 那 么 就 利用 它 的 前 向 指针 (可 以 从 破碎 的 心中 的 car 位 置 找到 ) 替换 
正 被 扫描 的 序 对 里 的 指针 。 最 终 所 有 可 访问 的 对 象 都 完成 了 移动 和 扫描 ， 此 时 scan 指 针 将 超 
过 free 指 针 ， 这 一 过 程 就 结束 了 。 

我 们 可 以 用 一 部 寄存 器 机 器 的 指令 序列 描述 这 种 停止 并 复制 算法 。 重 新 分 配 一 个 对 象 的 
基本 步骤 由 一 个 称 为 elocate-old-result-in-new 的 子 程序 完成 。 这 个 子 程序 的 参数 
是 指向 需要 移动 的 对 象 的 指针 ， 它 来 自 一 个 称 为 olda 的 寄存 器 。 子 程序 为 指定 对 象 重新 分 配 
存储 (在 这 一 过 程 中 ， 也 就 是 增 大 free 的 值 )， 将 重新 分 配 后 的 对 象 的 地 址 放 入 另 一 个 称 为 
new 的 寄存 器 ， 最 后 利用 分 支 指令 ， 按 照 保 存在 寄存 器 relocate-continue 里 的 入 口 点 返 
回 。 在 开始 进行 废料 收集 上 时， 我 们 在 初始 化 Eree 和 scan 之 后 调用 这 个 子 程序 ， 为 root 指 针 
做 重新 分 配 。 在 完成 了 root 的 重新 分 配 后 ， 我 们 就 将 root 指 针 设 置 到 新 的 根 位 置 ， 而 后 进 
入 废料 收集 程序 的 主 循环 。 

begin-garbage-collection 

(assign free (const 0)) 

(assign scan (const 0)) 

(assign old (reg root) ) 

(assign relocate-continue (label reassign-root) ) 

(goto (label relocate-old-result-in-new) ) 
reassign-root 

(assign root (reg new) ) 

(goto (label gc-loop) ) 

在 废料 收集 程序 的 主 循环 里 ， 我 们 必须 检查 是 否 还 存在 着 需要 扫描 的 对 象 。 完 成 此 事 的 
方式 就 是 检查 scan 指 针 是 否 已 经 与 Eree 指 针 重合 。 如 果 这 两 个 指针 相等 ， 那 么 所 有 可 以 访 
问 对 象 都 已 完成 了 重新 分 配 ， 现 在 就 可 以 分 支 到 gc-f1ip 去 了 。 在 那里 需要 做 一 些 清理 工作 ， 
使 我 们 能 继续 进行 前 面 中 断 下 来 的 计算 。 如 果 还 有 需要 扫描 的 序 对 ， 我 们 就 调用 子 程序 ， 为 
下 一 个 序 对 的 car 做 重新 分 配 (将 那个 指针 caz 放 入 old)， 并 设置 relocate-continue 寄 
存 器 ， 使 子 程序 能 够 返回 到 更 新 car 指 针 的 位 置 。 

gc-loop 

(test (op =) (reg scan) (reg free)) 
(branch (label gc-flip)) 
(assign old (op vector-ref) (reg new-cars) (reg scan)) 


(assign relocate-continue (label update-car)) 


(goto (label relocate-old-result-in-new)) 


在 update-car 之 后 ， 我 们 修改 被 扫描 的 这 个 序 对 的 car 指 针 ， 而 后 去 处 理 这 个 序 对 的 
cdr 指 针 。 这 次 完成 重新 分 配 之 后 返回 到 update-cdr。 在 对 cdr 的 重新 分 配 和 更 新 之 后 ， 
对 于 这 一 序 对 的 扫描 已 经 完成 ， 此 时 就 可 以 继续 进行 主人 循环 了 。 


update-car 
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(perform 

(op vector-set!) 
(assign old 
(assign relocate-continue 


(goto 


update-cdr 

(perform 
(op vector-set!) 
(assign scan (op +) 


(goto (label gc-loop) ) 


(reg new-cars) 


(op vector-ref) 


(reg new-cdrs) 


(reg scan) 
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(label relocate-old-result-in-new) ) 


(reg scan) (reg new) ) 
(reg new-cdrs) (reg scan) ) 
(label update-cdr) ) 
(reg scan) (reg new) ) 
(const 1) ) 


子 程序 relocate-old-result-in-new 按 如 下 方式 重新 分 配对 象 : 如 果 要 求 重新 分 


配 的 对 象 (由 old 指 向 ) 不 是 序 对 


， 那 么 子 程序 就 返回 指向 该 对 象 的 同一 个 指针 ， 并 不 做 任 


何 修改 (在 new 里 )。 举 例 说 ， 如 果 现 在 扫描 到 一 个 序 对 ， 其 car 部 分 是 数 4。 如 果 我 们 像 
5.3.1 节 所 言 ， 将 这 个 car 部 分 表示 为 nL4， 那 么 我 们 当然 希望 “重新 分 配 ” 后 的 car 指 针 仍 然 
是 n4。 如 果 情 况 不 是 这 样 (过 到 的 是 序 对 )， 那 么 就 必须 执行 重新 分 配 操作 。 如 果 要 求 重新 分 
配 的 位 置 里 包含 着 一 个 破碎 的 心 标记 ， 那 就 说 明 该 序 对 已 经 移 走 了 ， 因 此 需要 提取 出 其 中 的 
前 向 地 址 (从 破碎 的 心里 的 car 位 置 )， 并 在 new 里 返回 这 个 地 址 。 如 果 指 针 o1d 指 向 的 是 一 
个 尚未 移动 的 序 对 ， 那 就 把 这 个 序 对 移 到 新 存储 区 里 的 第 一 个 自由 位 置 (由 free 指向 ) ， 将 
破碎 的 心 标志 和 前 向 指针 存 入 这 一 序 对 的 老 位 置 ， 设 置 好 这 个 破碎 的 心 。relocate-old- 
result-in-new 用 寄存 器 oldcr 保 存 由 old 指 向 的 对 象 的 car 或 者 cdr”。 


relocate-old-result-in-new 


(test (op pointer-to-pair?) 


(branch (label pair)) 


(assign new (reg old)) 


(reg old) ) 


(goto (reg relocate-continue) ) 


pair 
(assign oldcr 
(test (op broken-heart?) 


(op vector-ref) 


(branch (label already-moved) ) 


(assign new (reg free)) ; 
Update free pointer. 


af 


(assign free (op +) 


(reg free) 


;; Copy the car and cdr to new memory. 


(perform (op vector-set!) 

(reg new-cars) 
(assign oldcr 
(perform (op vector-set!) 

(reg new-cdrs) 
;; Construct the broken heart. 
(perform (op vector-set!) 


(reg the-cars) 


(op vector-ref) 


(reg new) 


(reg old) 


(reg the-cars) (reg old)) 
(reg oldcr) ) 
new location for pair 
(const 1)) 
(reg new) (reg oldcr)) 
(reg the-cdrs) (reg old)) 


(reg oldcr) ) 


(const broken-heart) ) 


58 这 一 废料 收集 程序 使 用 了 一 个 低级 谓词 pointer-to-pair?， 而 没有 用 表 结 构 操 作 pair?， 这 是 因为 在 真 
实 的 系统 里 ， 有 许多 不 同 的 东西 都 需要 为 了 废料 收集 而 当 作 序 对 来 处 理 。 举 例 说 ， 在 一 个 符合 IEEE 标 准 的 
Scheme 系 统 里 ， 一 个 过 程 对 象 也 可 能 被 实现 为 一 类 特别 的 “ 序 对 ”， 它 们 就 不 会 满足 pair? 谓 词 。 如 果 只 是 
为 了 模拟 ， 那 么 我 们 就 可 以 用 pair? 实 现 pointer-to-pair?。 
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(perform 
(op vector-set!) (reg the-cdrs) (reg old) (reg new) ) 
(goto (reg relocate-continue) ) 
already-moved 
(assign new (op vector-ref) (reg the-cdrs) (reg old) ) 
(goto (reg relocate-continue) ) 

在 这 一 废料 收集 过 程 的 最 后 ， 我 们 还 需要 交换 老 存 储 区 和 新 存储 区 的 角色 ， 为 此 只 需 交 
换 指 针 的 值 : 将 the-cars 与 new-cars 交 换 ，the-cdrs 与 new-cdrs 交 换 。 这 样 就 已 经 做 
好 了 准备 ， 可 以 在 下 次 存储 区 耗 尽 时 执行 下 一 次 废料 收集 了 。 

gc-flip 

(assign temp (reg the-cdrs) ) 
(assign the-cdrs (reg new-cdrs) ) 
(assign new-cdrs (reg temp) ) 
(assign temp (reg the-cars) ) 
(assign the-cars (reg new-cars) ) 
(assign new-cars (reg temp) ) 


5.4 显 式 控制 的 求 值 器 


在 5.1 节 里 ， 我 们 看 到 如 何 将 简单 的 Scheme 程序 变换 为 寄存 器 机 器 的 描述 。 下 面 将 要 对 一 
个 更 复杂 的 程序 做 这 种 变换 。 这 里 将 要 处 理 的 就 是 4.1.1 节 到 4.1.4 节 讨论 的 元 循环 求 值 器 ， 该 
程序 说 明了 一 个 Scheme 解 释 器 的 行为 可 以 怎样 用 一 对 过 程 eval 和 apply 描 述 。 在 本 节 里 ， 
我 们 将 要 开发 一 个 显 式 控 制 求 值 器 ， 用 以 说 明 求 值 过 程 中 所 用 的 过 程 调用 的 参数 传递 的 基础 
机 制 ， 说 明 如 何 基 于 寄存 器 和 堆栈 操作 描述 这 种 机 制 。 除 此 之 外 ， 显 式 控制 求 值 器 还 可 以 作 
为 Scheme 解 释 器 的 一 种 实现 ， 而 且 ， 描 述 这 一 实现 时 所 用 的 语言 也 非常 接近 常规 计算 机 的 本 
机 机 器 语言 。 这 个 求 值 器 可 以 在 5.2 节 的 寄存 器 机 器 模拟 器 上 执行 。 换 一 个 看 法 ， 它 也 可 以 用 
作 构 造 一 个 机 器 语言 的 Scheme 求 值 器 实现 的 出 发 点 ， 或 者 甚至 是 作为 一 个 求 值 Scheme 表达 式 
的 特殊 机 器 的 出 发 点 。 图 5-16 显 示 的 就 是 这 样 一 个 硬件 实现 : 一 片 作为 Scheme 求 值 器 的 硅 心 
片 。 这 一 芯片 的 设计 者 就 是 从 描述 一 部 寄存 器 机 器 的 数据 通路 和 控制 器 规范 开始 ， 类 似 于 我 
们 将 要 在 本 节 里 描述 的 求 值 器 ， 而 后 利用 设计 自动 化 工具 程序 ， 构 造 出 集成 电路 的 布线 ”。 


寄存 器 和 操作 

在 设计 显 式 控制 求 值 器 时 ， 我 们 必须 描述 用 于 这 部 寄存 器 机 器 的 各 种 操作 。 在 采用 抽象 
语法 的 方式 描述 元 循环 求 值 器 时 使 用 了 一 些 过 程 ， 例 如 quoted? 和 make-procedure。 为 
了 实现 相应 的 寄存 器 机 器 ， 我 们 就 需要 将 这 些 过 程 展 开 为 基本 的 表 结 构 操 作 序列 ， 在 我 们 的 
寄存 器 机 器 上 实现 这 些 操作 。 当 然 ， 这 样 做 会 使 这 个 求 值 器 变 得 非常 长 ， 使 它 的 基本 结构 被 
许多 细节 和 弄 得 很 不 清楚 。 为 使 这 一 展示 更 清晰 一 些 ， 我 们 将 把 4.1.2 市 中 给 出 的 语法 过 程 ， 以 
及 在 4.1.3 和 4.1.4 节 给 出 的 表示 环境 和 其 他 运行 时 数据 的 过 程 ， 都 作为 这 一 寄存 器 机 器 的 基本 
操作 。 如 果 要 完整 地 描述 这 一 求 值 器 ,使 它 能 用 低级 的 机 器 语言 编程 实现 ,或 者 在 硬件 中 实 
现 ， 我 们 就 需要 用 更 基本 的 操作 取代 这 些 操作 ， 还 要 用 到 5.3 节 所 解释 的 表 结构 实现 。 

我 们 的 Scheme 求 值 器 寄存 器 机 器 里 包含 了 一 个 堆栈 和 七 个 寄存 器 : exp, env, val, 
continue、proc、argl 和 unev。exp 用 于 掌握 住 被 求 值 的 表达 式 ，env 里 包含 着 这 一 求 


% 有 关 这 个 芯片 及 其 设计 方法 的 更 多 信息 ， 可 以 参见 Batali, et al. 1982, 
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值 的 进行 所 在 的 环境 。 在 求 值 结束 时 ，val1 里 包含 着 通过 在 指定 环境 里 求 值 表 达 式 得 到 的 结 
果 。continue 寄 存 器 用 于 实现 递归 ， 就 像 5.1.4 节 里 所 解释 的 那样 (这 一 求 值 器 需要 调用 其 
自身 ， 因 为 对 一 个 表达 式 的 求 值 将 要 求 对 其 中 的 子 表达 式 求 值 )。 寄 存 器 proc、argl 和 
unev 用 在 求 值 组 合式 的 时 候 。 
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图 5-16 实现 了 一 个 Scheme 求 值 器 的 芯片 


我 们 将 不 再 画 数 据 通路 图 去 说 明 求 值 器 里 的 寄存 妖 与 操作 如 何 连 接 ， 也 不 准备 罗列 出 这 
一 机 器 中 所 有 操作 。 这 些 都 隐 含 在 求 值 器 的 控制 器 里 ， 下 面 要 介绍 它 的 各 方面 细节 。 


5.4.1 显 式 控制 求 值 器 的 内 核 


一 求 值 器 的 核心 部 分 是 从 eval-dispatch 开 始 的 指令 序列 ， 它 对 应 于 4.1.1 节 中 描述 
的 元 循环 求 值 器 里 的 eval 过 程 。 当 控制 器 从 eval-dispatch 开 始 工作 时 ， 它 将 在 由 env 确 
定 的 环境 里 对 由 exp 确 定 的 表达 式 求 值 。 当 这 一 求 值 完 成 时 ， 控 制 器 将 进入 保存 在 寄存 器 
continue 里 的 入 口 点 ， 而 val 寄 存 器 里 保存 着 表达 式 的 值 。 就 像 元 循环 求 值 器 里 的 eval 一 
样 ，eval-dispatch 的 结构 也 是 一 个 基于 被 求 值 表达 式 的 类 型 的 分 情况 分 析 沪 。 


eval-dispatch 
(test (op self-evaluating?) (reg exp)) 
(branch (label ev-self-eval) ) 
(test (op variable?) (reg exp) ) 
(branch (label ev-variable) ) 
(test (op quoted?) (reg exp) ) 
(branch (label ev-quoted) ) 
(test (op assignment?) (reg exp) ) 
(branch (label ev-assignment) ) 
(test (op definition?) (reg exp) ) 
(branch (label ev-definition) ) 


(test (op if?) (reg exp)) 


305 在 这 个 求 值 器 里 ， 分 派 采 用 一 系列 test 和 branch 指 令 描 述 。 也 可 以 换 一 种 方式 ， 采 用 一 种 数据 导向 的 风格 

写 出 它 来 (在 真实 的 系统 里 常常 是 这 样 )， 以 避免 执行 一 系列 检测 的 需要 ， 并 能 有 利于 定义 新 的 表达 式 类 型 。 

一 台 特 别 为 运行 Lisp 而 设计 的 机 器 中 很 可 能 包含 一 条 aispatch-on-type 指 令 ， 它 能 有 效 地 执行 这 种 数据 
导向 的 分 派 工作 。 
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(branch (label ev-if)) 
(test (op lambda?) (reg exp)) 
(branch (label ev-lambda) ) 
(test (op begin?) (reg exp) ) 
(branch (label ev-begin) ) 
(test (op application?) (reg exp) ) 
(branch (label ev-application) ) 
(goto (label unknown-expression-type) ) 
简单 表达 式 的 求 值 
数 和 字符 串 〈 它 们 都 是 自 求 值 的 ) 、 变 量 、 引 号 式 和 1ambda 表 达 式 中 都 没有 需要 进一步 
求 值 的 子 表达 式 ， 对 于 它们 ， 求 值 器 简单 地 将 正确 的 值 放 入 val 寄 存 器 里 ， 并 从 continue 
所 描述 的 入 口 点 继续 执行 下 去 。 对 简单 表达 式 的 求 值 由 下 面 的 控制 器 代码 完成 : 
ev-self-eval 
(assign val (reg exp) ) 
(goto (reg continue) ) 
ev-variable 
(assign val (op lookup-variable-value) (reg exp) (reg env)) 
(goto (reg continue) ) 
ev-quoted 
(assign val (op text-of-quotation) (reg exp) ) 
(goto (reg continue) ) 
ev-lambda 
(assign unev (op lambda-parameters) (reg exp) ) 
(assign exp (op lambda-body) (reg exp) ) 
(assign val (op make-procedure) 
(reg unev) (reg exp) (reg env) ) 
(goto (reg continue) ) 


请 注意 ev-l1ambda 怎 样 利 用 unev 和 和 exp 寄存器 保存 参数 和 1ambda 表 达 式 的 体 ， 使 它们 可 以 
作为 参数 ， 与 env 里 的 环境 一 起 传递 给 make -procedure 操 作 。 


过 程 应 用 的 求 值 

过 程 应 用 由 组 合式 描述 ， 其 中 包含 了 运算 符 和 运算 对 象 。 这 个 运算 符 是 一 个 子 表达 式 ， 
其 值 是 一 个 过 程 ， 而 运算 对 象 是 一 些 子 表达 式 ， 它 们 的 值 就 是 这 个 过 程 应 该 作用 于 的 实际 参 
数 。 在 元 循环 求 值 器 里 ，eval 处 理 过 程 应 用 的 方式 是 递归 地 调用 自己 ， 去 求 值 组 合式 里 的 每 
个 元 素 ， 而 后 将 结果 送 给 apply， 由 它 去 执行 实际 过 程 应 用 。 显 式 控制 求 值 器 也 需要 做 同样 
的 事情 ， 那 些 递归 调用 都 通过 goto 指 令 实现 ， 还 需要 用 堆栈 保存 起 一 些 寄存 器 ， 以 便 在 递归 
调用 返回 之 后 恢复 它们 。 在 每 个 调用 之 前 ， 我 们 都 需要 仔细 辩 明 哪些 寄存 器 必须 保存 (因为 
后 面 还 需要 它们 的 值 ) °°. 

在 对 过 程 应 用 求 值 时 ， 我 们 首先 求 值 运算 符 以 产生 出 一 个 过 程 ， 这 个 过 程 后 来 要 被 应 用 
于 求 值得 到 的 那些 实际 参数 。 为 了 完成 运算 符 的 求 值 ， 我 们 需要 将 它 移入 exp 寄 存 器 并 转 回 


0 在 把 用 过 程 性 语言 (例如 Lisp) 描述 的 算法 翻译 为 寄存 器 机 器 语言 时 ， 这 个 问题 特别 重要 ， 其 中 的 细 枝 末节 
很 多 。 如 果 不 采 用 只 保存 必须 保存 的 东西 的 方式 ， 我 们 也 可 以 在 每 次 递归 调用 之 前 保存 所 有 寄存 器 (除了 
val 之 外 )。 这 种 方式 称 为 框架 堆栈 方式 ， 它 当然 能 工作 ， 但 是 却 可 能 保存 了 一 些 并 不 必须 保存 的 寄存 器 。 
对 那 种 堆栈 操作 代价 昂贵 的 系统 ， 这 样 做 可 能 对 系统 性 能 产生 很 大 影响 。 将 那些 后 面 不 再 需要 的 检查 保存 起 
来 ， 还 可 能 维持 了 一 些 原本 可 以 经 过 废料 收集 ， 回 到 自由 空间 重复 使 用 的 无 用 数据 。 
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到 eval-dispatch。 位 于 env 寄 存 器 里 的 环境 就 是 求 值 这 个 运算 符 时 所 需要 的 正确 环境 。 
但 是 我 们 还 是 需要 保存 起 这 一 环境 ， 以 便 将 来 用 于 运算 对 象 的 求 值 。 在 这 里 还 必须 把 运算 对 
象 提取 出 来 存 人 unev， 并 将 它 保存 到 堆栈 里 。 还 要 设 好 continue， 使 得 eval-dispatch 
能 在 运算 符 求 值 完毕 之 后 回 到 ev-appl-did-operator。 在 做 这 件 事 情 之 前 ， 必 须 先 把 
continue 的 原 值 存 人 堆栈 ， 这 个 值 告诉 控制 器 在 完成 过 程 应 用 之 后 应 转向 何 处 。 
ev-application 

(save continue) 

(save env) 

(assign unev (op operands) (reg exp) ) 

(save unev) 

(assign exp (op operator) (reg exp) ) 

(assign continue (label ev-appl-did-operator) ) 

(goto (label eval-dispatch) ) 


在 对 于 运算 符 子 表达 式 的 求 值 返回 后 ， 我 们 需要 继续 去 求 值 组 合式 里 的 各 个 运算 对 象 ， 
并 将 求 出 的 实际 参数 积累 到 一 个 表 里 ， 保 存 到 arg1l 中 。 为 此 ， 我 们 需要 首先 恢复 未 求 值 的 运 
算 对 象 及 其 求 值 环境 ， 并 将 arg1 初 始 化 为 一 个 空 表 。 而 后 将 proc 寄 存 器 设置 为 求 值 运算 符 
产生 出 的 那个 过 程 。 如 果 当 时 没有 运算 对 象 ， 我 们 就 直接 转 到 apply-dispatch。 如 果 有 运 
算 对 象 ， 那 么 就 将 proc 保 存 到 堆栈 里 ， 并 开始 执行 参数 求 值 循环 。 
ev-appl-did-operator 
(restore unev) ; the operands 
(restore env) 
(assign argl (op empty-arglist) ) 
(assign proc (reg val) ) ; the operator 
(test (op no-operands?) (reg unev) ) 
(branch (label apply-dispatch) ) 
(save proc) 


每 执行 一 次 参数 求 值 循环 ， 完 成 对 取 自 unev 里 的 表 里 的 一 个 参数 的 求 值 ， 并 把 结果 积累 
到 argl 里 。 在 求 值 一 个 运算 对 象 时 ， 我 们 也 把 它 放 入 exp 寄 存 器 ， 并 在 设置 cont inue 寄 存 
器 后 转 到 eval-dispatch， 以 便 这 个 积累 实际 参数 的 阶段 还 能 继续 下 去 。 在 转移 之 前 ， 还 
需要 保存 至 今 已 积累 起 来 的 实际 参数 (保存 在 argl 里 )， 求 值 环境 (保存 在 env)， 以 及 剩 下 
的 那些 尚未 求 值 的 参数 (保存 在 unev)。 对 于 最 后 一 个 参数 的 求 值 是 一 种 特别 情况 ， 由 下 面 
的 ev-appl-last-arg 处 理 。 


ev-appl-operand-loop 
(save argl) 
(assign exp (op first-operand) (reg unev) ) 


307 我 们 需要 为 4.1.3 节 里 求 值 器 的 数据 结构 过 程 增加 下 面 两 个 操作 参数 表 的 过 程 : 
(define (empty-arglist) *()) 
(define (adjoin-arg arg arglist) 
(append arglist (list arg))) 
还 需要 增加 下 面 的 语法 过 程 ， 以 检查 组 合式 的 最 后 参数 : 
(define (last-operand? ops) 
(null? (cdr ops))) 


5.4 BAAI KIRE 387 


(test (op last-operand?) (reg unev)) 

(branch (label ev-appl-last-arg)) 

(save env) 

(save unev) 

(assign continue (label ev-appl-accumulate-arg) ) 
(goto (label eval-dispatch) ) 


在 完成 了 对 一 个 运算 对 象 的 求 值 后 ， 这 个 值 就 被 累积 到 arg1 的 表 里 ， 而 后 将 这 一 参数 从 
unev 里 尚未 求 值 的 运算 对 象 表 中 删除 ， 并 继续 对 下 面 的 参数 求 值 。 


ev-appl-accumulate-arg 
(restore unev) 
(restore env) 
(restore argl) 
(assign argl (op adjoin-arg) (reg val) (reg argl)) 
(assign unev (op rest-operands) (reg unev) ) 
(goto (label ev-appl-operand-loop) ) 


最 后 一 个 参数 的 求 值 需要 不 同 的 处 理 方式 。 这 次 在 转 信 eval-dispatch 之 前 ， 已 经 不 
再 需要 保存 环境 和 未 求 值 参数 的 表 了 ， 因 为 在 最 后 一 个 运算 对 象 求 值 之 后 ， 它 们 也 都 不 需要 
了 。 这 样 ， 我 们 将 从 这 一 求 值 返回 到 一 个 特殊 的 入 口 点 ev-appl-accum-last-arg， 在 那 
里 恢复 实际 参数 表 ， 并 将 新 的 实际 参数 放 进 去 ， 恢 复 前 面 保存 的 过 程 并 转 去 执行 过 程 应 用 ”。 
ev-appl-last-arg 
(assign continue (label ev-appl-accum-last-arg)) 
(goto (label eval-dispatch)) 
ev-appl-accum-last-arg 
(restore argl) 
(assign argl (op adjoin-arg) (reg val) (reg argl)) 
(restore proc) 


(goto (label apply-dispatch) ) 


参数 求 值 循 环 的 细节 情况 确定 了 解释 器 对 组 合式 中 各 个 运算 对 象 的 求 值 顺序 (M, ME 
到 右 或 者 从 右 到 左 一 一 见 练习 3.8) 。 元 循环 求 值 器 并 没有 明确 规定 这 一 顺序 ， 而 是 由 它 的 实现 
所 在 的 那个 基础 Scheme 继承 得 到 自己 的 控制 结构 ?9。 因 为 fizst-operand 选 择 函 数 (AE 
ev-appl-operand-loop 里 ， 用 于 从 unev 提 取 顺 序 的 各 个 运算 对 象 ) 用 car 实 现 ， 而 选择 
函数 rest -operands 用 cdr 实 现 ， 现在 这 个 显 式 控制 求 值 器 将 采用 从 左 到 右 的 顺序 求 值 组 
合式 里 的 各 个 运算 对 象 。 

过 程 应 用 

入 口 点 apply-dispatch 对 应 于 元 循环 求 值 器 的 apply 过 程 。 在 我 们 到 达 apply - 
dispatch 的 时 候 ， 寄 存 器 proc 里 包含 着 需要 应 用 的 过 程 ，arg1 里 包含 着 过 程 将 要 去 应 用 
的 已 经 求 出 值 的 实际 参数 表 。 保 存 起 的 continue 值 (最 开始 是 返回 到 eval-dispatch， 


308 对 最 后 参数 采用 这 种 特殊 的 优化 处 理 方式 ， 称 为 表 求 值 的 尾 递 归 ( 见 Wand 1980)。 如 果 我 们 把 对 于 第 一 个 参 
数 的 求 值 也 作为 特殊 情况 对 待 ， 那 么 就 可 能 使 参数 表 的 求 值 更 加 高 效 。 因 为 这 将 使 我 们 可 以 推迟 对 arg1 的 
初始 化 ， 直 到 做 完 第 一 个 参数 的 求 值 ， 因 此 也 避免 了 保存 arg1 的 工作 。 在 5.5 节 的 编译 器 执行 了 这 种 优化 
(请 与 5.5.3 节 的 construct-arglist 过 程 做 一 个 比较 )。 

”在 元 循环 求 值 器 里 ， 运 算 对 象 的 求 值 顺 序 是 由 4.1.1 节 中 位 于 过 程 1ist -of -values 里 的 cons 对 参数 的 求 值 
顺序 确定 的 (参见 练习 4.1)。 
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在 ev-application 保 存 的 ) 在 堆栈 里 ， 它 告诉 我 们 在 得 到 了 过 程 应 用 的 结果 之 后 应 该 返回 
到 哪里 。 当 这 次 应 用 完成 后 ， 控 制 器 将 转移 到 由 保存 起 的 continue 值 所 确定 的 入 口 点 ， 过 
程 应 用 的 结果 存放 在 val 里 。 就 像 元 循环 求 值 器 里 的 apply 一 样 ， 现 在 也 有 两 种 情况 需要 考 
虑 ， 因 为 被 应 用 的 过 程 可 能 是 基本 过 程 ， 也 可 能 是 组 合 过程 。 
apply-dispatch 

(test (op primitive-procedure?) (reg proc)) 

(branch (label primitive-apply)) 

(test (op compound-procedure?) (reg proc)) 

(branch (label compound-apply)) 

(goto (label unknown-procedure-type)) 


我 们 假定 每 个 基本 过 程 的 实现 方式 都 保证 它 能 从 azg1 获 取 自 己 的 实际 参数 表 ， 并 将 结果 
存 人 val 里 。 为 了 描述 这 一 机 器 如 何 处 理 基本 过 程 ， 我 们 就 必须 提供 一 个 控制 器 的 指令 序列 ， 
实现 每 一 个 基本 过 程 ， 并 为 primitive-apply 做 好 一 种 安排 使 之 能 分 派 到 由 proc 的 内 容 
确定 的 基本 过 程 的 指令 序列 。 由 于 我 们 感 兴趣 的 是 求 值 过 程 的 结构 ， 而 不 是 基本 过 程 的 细节 ， 
这 里 将 不 做 上 面 所 说 的 事情 ， 而 仅仅 用 一 个 apply-primitive-procedure 操 作 ， 表 示 把 
proc 里 的 过 程 应 用 于 arg1 里 的 实际 参数 。 为 了 能 用 5.2 布 的 模拟 器 去 模拟 这 个 求 值 器 ， 我 们 
用 了 一 个 过 程 apply-primitive-procedure， 它 基于 基础 的 Scheme 系 统 去 执行 有 关 的 过 
程 应 用 ， 这 与 在 前 面 4.1.4 节 元 循环 求 值 器 里 的 做 法 一 样 。 在 计算 出 基本 过 程 应 用 的 值 之 后 ， 
我 们 恢复 寄存 器 continue ， 并 转 到 它 所 指定 的 入 口 点 。 

primitive-apply 

(assign val (op apply-primitive-procedure) 
(reg proc) 
(reg argl)) 

(restore continue) 

(goto (reg continue) ) 

在 应 用 一 个 组 合 过 程 时 ， 这 里 采用 的 做 法 也 与 元 循环 求 值 器 里 相同 。 我 们 将 构造 起 一 个 
框架 ， 其 中 把 过 程 的 形式 参数 约束 于 对 应 的 实际 参数 ， 用 这 一 框架 扩充 过 程 所 携带 的 环境 ， 
并 在 这 一 扩充 后 的 环境 里 求 值 构成 过 程 体 的 表达 式 序 列 。 有 关 表 达 式 序列 的 求 值 问 题 由 下 面 
5.4.2 节 描述 的 ev-sequence 处 理 。 

compound-apply 

(assign unev (op procedure-parameters) (reg proc)) 
(assign env (op procedure-environment) (reg proc)) 
(assign env (op extend-environment) 

(reg unev) (reg argl) (reg env) ) 
(assign unev (op procedure-body) (reg proc) ) 
(goto (label ev-sequence) ) 


在 这 个 解释 器 里 ， 只 有 在 compound-apply 处 需要 给 env 寄 存 器 赋 一 个 新 值 。 正 如 在 元 
循环 求 值 器 里 一 样 ， 这 个 新 环境 是 在 过 程 所 携带 的 环境 的 基础 上 构造 起 来 的 ， 加 入 了 实际 参 
数 表 与 相应 的 变量 表 的 约束 。 


5.4.2 序列 的 求 值 和 尾 递归 
在 显 式 控制 求 值 器 里 ， 位 于 ev-sequence 的 部 分 与 元 循环 求 值 器 里 的 eval-sequence 
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过 程 类 似 。 它 处 理 过 程 体 里 或 者 显 式 的 begin 表 达 式 里 的 表达 式 序列 。 
在 求 值 显 式 的 begin 表 达 式 时 ， 我 们 先 把 被 求 值 的 表达 式 序列 放 入 unev， 将 continue 
保存 到 堆栈 里 ， 而 后 转 跳 到 ev-sequence。 
ev-begin 
(assign unev (op begin-actions) (reg exp)) 
(save continue) 
(goto (label ev-sequence) ) 


对 于 过 程 体 里 的 隐 式 序列 的 处 理 ， 就 是 直接 从 compound-apply 跳 到 ev-sequence。 在 这 
一 点 ， 所 需 的 continue 已 经 保存 在 堆栈 里 ， 这 是 由 ev-application 保 存 的 。 

位 于 ev-sequence 的 入 口 和 ev-sequence-continue 形 成 了 一 个 循环 ,循环 中 顺序 
地 求 值 序列 里 的 一 个 个 表达 式 。 尚 未 求 值 的 表达 式 表 保存 在 unev。 在 对 一 个 表达 式 求 值 之 前 ， 
我 们 要 检查 这 个 序列 里 是 否 还 有 另外 的 表达 式 需 要 求 值 。 如 果 有 ， 那 么 就 把 剩 下 的 未 求 值 表 
EA (在 unev 里 ) 和 当时 的 环境 (在 env 里 ) 保存 到 堆栈 ， 因 为 在 求 值 那些 表达 式 时 还 需要 
用 这 个 环境 。 然 后 去 调用 eval-daispatch 完 成 表达 式 的 求 值 。 从 这 一 求 值 返回 后 ， 在 ev- 
sequence-continue 处 恢复 保存 起 来 的 两 个 寄存 器 。 

对 序列 里 最 后 一 个 表达 式 采 用 了 不 同 的 处 理 方 式 ， 由 入 口 点 eV-sequence-last-exp 
处 理 。 因 为 到 这 时 ， 求 值 完 这 个 表达 式 后 已 经 没有 其 他 表达 式 了， 因此 在 转 入 eval - 
dispatch 之 前 就 不 需要 保存 unev 和 env。 整 个 序列 的 值 也 就 是 最 后 这 个 表达 式 的 值 ， 因 此 ， 
在 对 最 后 这 个 表达 式 的 求 值 完成 后 已 经 不 必 再 做 其 他 事情 ， 只 需要 从 当时 堆栈 里 保存 的 入 口 
点 继续 下 去 (这 是 由 ev-application 或 者 ev-begin 保 存 的 )。 此 时 不 应 该 采用 准备 好 
continue 为 eval-dispatch 做 好 返回 这 里 的 安排 ， 而 后 从 堆栈 里 恢复 continue 并 从 这 
个 入 口 点 继续 的 方式 ; 而 是 在 转 到 eval-dispatch 前 ， 直 接 从 堆栈 里 恢复 continue。 这 
就 使 eval-dispatch 在 完成 了 这 里 的 表达 式 求 值 之 后 ， 能 够 从 continue 里 的 那个 入 口 点 
继续 下 去 。 

ev-sequence 

(assign exp (op first-exp) (reg unev)) 

(test (op last-exp?) (reg unev) ) 

(branch (label ev-sequence-last-exp) ) 

(save unev) 

(save env) 

(assign continue (label ev-sequence-continue) ) 

(goto (label eval-dispatch) ) 
ev-sequence-continue 

(restore env) 

(restore unev) 

(assign unev (op rest-exps) (reg unev) ) 

(goto (label ev-sequence) ) 
ev-sequence-last-exp 


(restore continue) 
(goto (label eval-dispatch) ) 


尾 递归 
在 第 1 章 里 我 们 说 过 ， 由 例如 下 面 过程 描 述 的 计算 


(define (sqrt-iter guess x) 


390 $F FHEMSLHHH 


(if (good-enough? guess x) 
guess 
(sqrt-iter (improve guess x) 
x))) 


实际 上 是 一 个 迭代 过 程 。 即 使 这 个 过 程 定 义 在 语法 上 是 递归 的 (基于 它 自 身 定义 )， 从 逻辑 上 
说 ， 求 值 器 在 从 对 sqzrt-itez 的 一 个 调用 转 到 下 一 个 调用 时 ， 完 全 不 必 保 存 信息 :"。 如 果 一 
个 求 值 器 在 执行 像 sgqrt-iter 这 样 的 过 程 时 ， 采 用 的 方式 能 使 在 该 过 程 继续 调用 自身 时 不 需 
要 增加 存储 ， 这 种 求 值 器 就 称 为 尾 递归 求 值 器 。 在 第 4 章 里 求 值 器 的 元 循环 实现 中 ， 我 们 并 没 
有 描述 清楚 该 求 值 器 是 否 为 尾 递归 的 ， 因 为 那个 求 值 器 从 基础 Scheme 系统 继承 了 保存 状态 的 
机 制 。 对 于 现在 的 显 式 控制 求 值 器 ， 我 们 当然 就 可 以 追踪 全 部 的 求 值 过 程 ， 仔 细 观 察 在 过 程 
调用 时 堆栈 里 的 信息 堆积 情况 。 

我 们 这 里 的 求 值 器 确实 是 尾 递 归 的 ， 因 为 在 求 值 一 个 序列 里 的 最 后 一 个 表达 式 时 ， 求 值 
器 是 直接 转 到 eval-dispatch， 并 没有 把 任何 信息 存 和 堆栈。 这 样 ， 对 于 序列 里 最 后 一 
表达 式 的 求 值 一 一 即使 这 是 一 次 过 程 调用 (就 像 在 sqrt-iter 里 ,过程 体 里 的 最 后 表达 式 也 
就 是 那里 的 if 表 达 式 ， 该 表达 式 将 归结 到 一 个 对 sqrt-iter 的 调用 ) 一 一 也 不 会 导致 向 堆栈 
里 积累 任何 信息 ”。 

如 果 我 们 不 想 利 用 这 一 情况 带 来 的 益处 (在 这 里 完全 不 必 保 存 信息 )， 那 么 也 可 以 采用 如 
下 方式 实现 eval-sequence， 以 同样 方式 统一 处 理 序 列 里 所 有 的 表达 式 一 一 将 寄存 器 内 容 
存 和 人 堆栈， 求 值 表 达 式 ， 返 回 时 恢复 寄存 器 。 重 复 地 这 样 做 ， 直 至 完成 所 有 表达 式 的 求 值 ”。 

ev-sequence 

(test (op no-more-exps?) (reg unev) ) 

(branch (label ev-sequence-end) ) 

(assign exp (op first-exp) (reg unev) ) 

(save unev) 

(save env) 

(assign continue (label ev-sequence-continue) ) 

(goto (label eval-dispatch) ) 
ev-sequence-continue 

(restore env) 

(restore unev) 

(assign unev (op rest-exps) (reg unev) ) 

(goto (label ev-sequence) ) 
ev-sequence-end 

(restore continue) 


(goto (reg continue) ) 


这 看 起 来 好 像 只 是 对 前 面 有 关 序 列 求 值 的 代码 做 了 一 点 小 变动 ， 仅 有 的 不 同 点 就 是 对 序 


在 5.1 节 里 ,我们 已 经 看 到 过 如 何在 一 个 寄存 器 机 器 里 实现 这 种 计算 过 程 ， 那 里 并 没有 堆栈 ， 计 算 过 程 的 状态 
都 保存 在 一 组 固定 的 寄存 器 里 。 

1 用 在 ev-sequence 里 的 尾 递 归 实 现 ， 是 许多 编译 程序 里 所 采用 的 一 种 有 名 的 优化 技术 的 变形 。 在 编译 一 个 
过 程 时 ， 如 果 这 一 过 程 的 最 后 是 一 个 过 程 调用 ， 那 么 就 可 以 用 直接 跳 到 该 过 程 人 口 点 来 取代 这 个 调用 。 像 我 
们 在 本 节 中 所 做 的 这 样 ， 将 这 一 策略 构筑 到 解释 器 里 ， 就 为 整个 语言 提供 了 统一 的 优化 。 

?no-more-exps? 可 以 采用 下 面 的 定义 : 


(define (no-more-exps? seq) (null? seq)) 
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列 里 最 后 一 个 表达 式 也 像 对 其 他 表达 式 一 样 处 理 ， 使 之 穿 过 保存 和 恢复 循环 。 对 于 任何 表达 
式 ， 修 改 后 的 解释 器 仍 将 给 出 同样 的 值 。 但 是 ， 对 于 尾 递归 实现 而 言 ， 这 一 改动 却 是 致命 的 ， 
因为 如 果 现 在 要 返回 ， 那 就 必须 是 在 序列 里 的 最 后 一 个 表达 式 完成 求 值 之 后 ， 因 为 这 时 才能 
恢复 所 保存 的 (无 用 的 ) 寄存 器 值 。 在 嵌 套 的 过 程 调 用 中 ， 这 些 额 外 的 保存 值 就 会 积累 起 来 。 
由 于 这 种 情况 ， 像 sqrt -iter 一 类 的 过 程 所 需 的 空间 也 就 会 正比 于 迭代 的 次 数 ， 而 不 再 是 常 
空间 了 。 这 种 差异 可 能 变 得 非常 重要 ， 举 例 来 说 ， 在 采用 尾 递 归 时 ， 一 个 无 穷 循 环 也 可 以 
只 通过 过 程 调用 机 制 来 表述 : 

(define (count n) 

(newline) 

(display n) 

(count (+ n 1))) 
如 果 没 有 尾 递归 ， 这 个 过 程 最 终 会 用 光 所 有 的 堆栈 空间 ， 而 要 想 表述 迭代 型 的 计算 ， 就 必须 
有 过 程 调用 之 外 的 其 他 机 制 了 。 


5.4.3 条件、 赋值 和 定义 


与 元 循环 求 值 器 的 情况 一 样 ， 这 里 对 各 种 特殊 形式 的 处 理 ， 也 是 通过 有 选择 地 求 值 表达 
式 里 的 一 些 部 分 。 对 于 if 表 达 式 ， 我 们 必须 求 值 其 谓词 部 分 ， 并 基于 谓词 的 值 确定 是 求 值 它 
的 推论 部 分 呢 ， 还 是 求 值 它 的 替代 部 分 。 

在 求 值 其 谓词 部 分 之 前 ， 我 们 需要 把 if 表达 式 本 身 保存 起 来 ， 以 便 后 来 可 以 从 中 提取 出 
推论 部 分 或 者 替代 部 分 。 我 们 也 要 保存 当时 的 环境 ， 后 面 求 值 推论 部 分 或 者 替代 部 分 时 还 需 
要 用 它 。 还 要 保存 起 continue， 因 为 将 来 还 要 根据 它 返 回 到 等 着 这 个 if 的 值 的 那个 表达 式 
去 ， 继 续 进 行 该 表达 式 的 求 值 。 

ev-if 

(save exp) ; save expression for later 
(save env) 

(save continue) 

(assign continue (label ev-if-decide) ) 

(assign exp (op if-predicate) (reg exp) ) 

(goto (label eval-dispatch)) ; evaluate the predicate 

当 我 们 从 对 谓词 的 求 值 返 回 时 ， 需 要 检查 得 到 的 值 是 真 还 是 假 ， 并 根据 这 一 检查 的 结果 ， 
把 表达 式 的 推论 部 分 或 者 替代 部 分 放 和 exp 里 ， 而 后 转向 eval-dispatch。 请 注意 ， 在 这 
里 重新 恢复 了 env 和 continue， 就 是 为 设置 好 eval-dispatch, 使 之 具有 正确 的 环境 以 及 
接受 if 表 达 式 值 的 正确 继续 位 置 。 

ev-if-decide 

(restore continue) 

(restore env) 

(restore exp) 

(test (op true?) (reg val)) 

(branch (label ev-if-consequent)) 
ev-if-alternative 

(assign exp (op if-alternative) (reg exp)) 


(goto (label eval-dispatch)) 


ev-if-consequent 
(assign exp (op if-consequent) (reg exp) ) 
(goto (label eval-dispatch) ) 


赋值 和 定义 

赋值 由 ev-assignment 处 理 ， 当 eval-dispatch 在 exp 里 遇 到 了 赋值 表达 式 ， 控 制 
就 会 转 到 这 里 。 位 于 ev-assignment 的 代码 首先 求 出 赋值 中 表达 式 部 分 的 值 ， 而 后 把 这 一 
新 值 装 入 环境 里 。 这 里 假定 set -variable-value! 是 一 个 可 用 的 机 器 操作 。 


ev-assignment 


(assign unev (op assignment-variable) (reg exp)) 
(save unev) ; save variable for later 
(assign exp (op assignment-value) (reg exp) ) 
(save env) 


(save continue) 

(assign continue (label ev-assignment-1) ) 

(goto (label eval-dispatch)) ; evaluate the assignment value 
ev-assignment-1 

(restore continue) 

(restore env) 

(restore unev) 

(perform 

(op set-variable-value!) (reg unev) (reg val) (reg env) ) 

(assign val (const ok) ) 

(goto (reg continue) ) 


定义 的 处 理 方 式 与 此 类 似 : 


ev-definition 


(assign unev (op definition-variable) (reg exp) ) 
(save unev) ; save variable for later 
(assign exp (op definition-value) (reg exp) ) 
(save env) 


(save continue) 

(assign continue (label ev-definition-1) ) 

(goto (label eval-dispatch)) ; evaluate the definition value 
ev-definition-1 

(restore continue) 

(restore env) 

(restore unev) 

(perform 

(op define-variable!) (reg unev) (reg val) (reg env)) 
(assign val (const ok) ) 
(goto (reg continue) ) 


练习 5.23 请 扩充 这 个 求 值 器 ， 以 处 理 conda、1let 等 等 的 派生 表达 式 〈( 见 4.1.2 节 )。 你 可 
以 假定 cond- >if 等 等 语法 变换 都 是 可 用 的 机 器 操作 ， 以 “蒙混 过 关 ”3。 

练习 5.24 ”请 将 cond 直 接 实现 为 一 个 新 的 特殊 形式 ， 而 不 是 将 它 归 结 到 i£。 你 将 不 得 不 
构造 一 个 循环 ， 顺 序 检查 cond 里 各 个 子 句 的 谓词 ， 直 至 找到 一 个 真 的， 而 后 用 ev - 


"这 并 不 真 的 就 是 “蒙混 过 关 ”。 在 实际 从 空白 开始 实现 时 ， 我 们 很 可 能 在 用 这 种 显 式 控制 求 值 器 先 去 解释 一 
个 Scheme 程 序 ， 完 成 例如 cond- >if 这 样 的 源 代码 层次 的 变换 ， 在 实际 执行 前 先 运行 这 个 程序 。 
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sequence 去 求 值 这 一 子 句 中 的 动作 序列 。 
练习 5.25 请 基于 4.2 节 的 惰性 求 值 器 修改 这 个 求 值 器 ， 使 它 能 采用 正则 顺序 去 求 值 。 


5.4.4 求 值 器 的 运行 


有 了 这 个 显 式 控制 求 值 器 之 后 ， 我 们 从 第 1 章 开 始 的 一 个 开发 也 就 到 达 了 终点 。 在 此 期 间 ， 
我 们 研究 了 求 值 过 程 的 一 系列 越 来 越 精确 的 模型 。 我 们 从 相对 非 形式 的 代 换 模型 开始 ， 而 后 
在 第 3 章 里 将 其 扩充 为 一 个 环境 模型 ， 使 我 们 能 够 处 理 状态 和 变化 。 在 第 4 章 的 元 循环 求 值 器 
里 ， 我 们 用 Scheme 本 身 作 为 语言 ， 以 便 把 表达 式 求 值 过 程 中 环境 结构 的 构造 情况 显 式 地 表现 
出 来 。 现 在 有 了 寄存 器 机 器 ， 我 们 已 经 更 加 仔细 地 观看 了 求 值 器 里 有 关 存 储 管理 、 参 数 传递 
和 控制 的 机 制 。 在 每 一 个 新 的 描述 层次 上 ， 我 们 都 提出 了 一 些 问题 ， 并 解决 了 一 些 意义 含糊 
的 情况 ， 而 在 前 面 的 对 求 值 过 程 的 处 理 不 那么 精确 的 层次 上 ， 这 些 根本 就 不 会 出 现 。 为 了 理 
解 显 式 控 制 求 值 器 的 行为 ， 我们 可 以 去 模拟 执行 它 ， 并 监视 其 执行 过 程 。 

现在 要 为 我 们 的 求 值 器 机 器 安装 一 个 驱动 循环 ， 它 扮演 着 4.1.4 市 里 driver-1oop 过 程 
的 角色 。 这 一 求 值 器 将 反复 打印 出 提示 ， 读 入 一 个 表达 式 ， 通 过 转 到 eval -dispatch 去 求 
值 这 个 表达 式 ， 最 后 打印 出 结果 。 下 面 的 指令 序列 形成 了 这 一 显 式 控制 求 值 器 中 控制 器 序列 
的 最 前 面 一 部 分 *": 

read-eval-print-loop 

(perform (op initialize-stack)) 
(perform 
(op prompt-for-input) (const ";;; EC-Eval input:")) 
(assign exp (op read)) 
(assign env (op get-global-environment)) 
(assign continue (label print-result)) 


(goto (label eval-dispatch)) 


print-result 


(perform 
(op announce-output) (const ";;; EC-Eval value:")) 
(perform (op user-print) (reg val)) 


(goto (label read-eval-print-loop) ) 


当 我 们 在 一 个 过 程 中 遇 到 了 错误 时 (例如 ， 由 apply-dispatch 指 明 的 “未 知 过 程 类 型 
错误 ")， 我 们 需要 打印 错误 信息 并 返回 到 驱动 循环 "。 
unknown-expression-type 


(assign val (const unknown-expression-type-error)) 
(goto (label signal-error)) 


u 在 这 里 ， 我 们 假定 read 和 若干 打印 操作 都 可 以 作为 机 器 的 基本 操作 使 用 ， 这 样 的 假定 在 模拟 中 很 有 用 ， 但 
在 实践 中 却 是 不 实际 的 。 这 些 操作 实际 上 都 是 非常 复杂 。 在 实践 中 ， 我 们 同样 需要 基于 低级 的 输入 输出 操作 
实现 它们 ， 这 种 低级 操作 的 例子 如 将 一 个 字符 送 到 某 设 备 ， 或 者 从 某 设备 取 一 个 字符 。 

为 了 支持 get-global-environment 操 作 ， 我 们 定义 : 


(define the-global-environment (setup-environment)) 


(define (get-global-environment) 


the-global-environment) 


315 也 存在 一 些 特殊 错误 ， 我 们 可 能 更 希望 由 解释 器 去 处 理 它们 。 但 这 种 事情 不 那么 简单 。 请 看 练习 5.30。 
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unknown-procedure-type 
(restore continue) ; clean up stack (from apply-dispatch) 
(assign val (const unknown-procedure-type-error) ) 
(goto (label signal-error) ) 

signal-error 


(perform (op user-print) (reg val) ) 
(goto (label read-eval-print-loop) ) 


为 了 模拟 的 需要 ， 我 们 在 每 次 穿 过 这 一 驱动 循环 时 都 做 一 次 堆栈 的 初始 化 ， 因 为 在 出 现 
错误 〈 例 如 遇 到 未 定义 的 变量 ) 导致 循环 中 断 之 后 ， 堆 栈 有 可 能 不 空 ”。 
如 果 把 从 5.4.1 节 到 5.4.4 节 的 代码 片段 组 合 到 一 起 ， 我 们 就 构造 出 了 一 个 求 值 器 机 器 模型 。 
现在 就 可 以 用 5.2 节 里 的 寄存 器 机 器 模拟 器 去 运行 它 了 。 
(define eceval 
(make-machine 


*(exp env val proc argl continue unev) 
eceval-operations 

"H 
read-eval-print-loop 


< 如 上 给 出 的 完整 的 机 器 控制 器 > 
) ) ) 


我 们 还 必须 定义 一 些 Scheme 过 程 ， 去 模拟 这 个 求 值 器 里 使 用 的 所 有 基本 操作 。 这 些 也 就 是 我 
们 在 4.1 节 定义 元 循环 模拟 器 时 所 定义 的 那些 过 程 ， 还 有 在 5.4 节 的 各 个 脚注 里 定义 的 那些 过 
程 。 

(define eceval-operations 


(list (list "self-evaluating? self-evaluating) 


<eceval 机 器 操作 的 完整 列表 >) ) 
现在 我 们 已 经 可 以 初始 化 有 关 的 全 局 环境 ， 并 运行 这 个 求 值 器 了 : 


(define the-global-environment (setup-environment)) 


(start eceval) 


;;; EC-Eval input: 
(define (append x y) 
(if (null? x) 
Y 
(cons (car x) 
(append (cdr x) y)))) 

;;; EC-Eval value: 
ok 


777 EC-Eval input: 
(append ’(a b c) '(d e f)) 
i7; EC-Eval value: 

(a ib & de £) 


当然 ， 以 这 种 方式 求 值 表达 式 ， 所 需 的 时 间 将 远 远 长 于 我 们 直接 把 它们 送 给 Scheme， 因 


e 我 们 也 可 以 仅仅 在 出 现 错误 之 后 才 去 初始 化 堆栈 。 但 是 ， 在 驱动 循环 里 完成 此 事 ， 能 使 我 们 更 方便 地 监视 求 
值 器 的 执行 ， 下 面 将 讨论 这 方面 的 问题 。 
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为 在 这 个 模拟 过 程 中 涉及 许多 层次 。 我 们 的 表达 式 由 显 式 控 制 求 值 器 求 值 ， 这 个 求 值 器 是 通 
过 一 个 Scheme 程序 模拟 的 ， 而 那个 程序 本 身 又 被 Scheme 解释 器 求 值 。 

监视 求 值 器 的 执行 性 能 

模拟 可 以 成 为 指导 求 值 器 的 实际 实现 的 一 种 有 力 工 具 。 模 拟 不 仅 使 人 更 容易 去 探索 寄存 
器 机 器 设计 的 各 种 变形 ， 也 使 人 更 容易 监视 被 模拟 求 值 器 的 执行 性 能 。 举 例 说 ， 性 能 中 的 一 
个 重要 因素 就 是 求 值 器 对 于 堆栈 的 使 用 是 否 非常 有 效 。 我 们 只 需要 用 一 个 特殊 的 模拟 器 版 本 
定义 求 值 器 寄存 器 机 器 ， 在 其 中 收集 有 关 堆 栈 使 用 的 各 种 统计 信息 〈 见 5.2.4 节 )， 并 且 在 这 个 
求 值 器 的 print-result 入 口 点 增加 了 一 条 打印 统计 信息 的 指令 ， 就 可 以 观察 在 求 值 各 种 表 
达 式 时 堆栈 操作 的 执行 次 数 了 : 


print-result 


(perform (op print-stack-statistics) ); added instruction 
(perform 
(op announce-output) (const ";;; EC-Eval value:")) 


; same as before 


与 求 值 器 的 交互 ， 现 在 看 起 来 是 下 面 的 样子 : 

;;; EC-Eval input: 

(define (factorial n) 

(if (= n 1) 
1 
(* (factorial (- n 1)) n))) 

(total-pushes = 3 maximum-depth = 3) 

i737 EC-Eval value: 

ok 

777 EC-Eval input: 

(factorial 5) 

(total-pushes = 144 maximum-depth = 28) 

377 EC-Eval value: 

120 
注意 ， 求 值 器 的 驱动 循环 将 在 每 次 交互 开始 时 重新 初始 化 堆栈 ， 因 此， 这 样 打印 出 的 统计 信 
息 也 就 是 在 对 前 一 表达 式 求 值 中 所 用 的 堆栈 操作 次 数 。 

练习 5.26 ”请 利用 上 述 的 受 监视 堆栈 考察 求 值 器 的 尾 递归 性 质 ( 见 5.4.2 节 )。 启 动 求 值 器 
并 定义 下 面 取 自 1.2.1 节 的 迭代 型 factorial 过 程 : 

(define (factorial n) 

(define (iter product counter) 
(if (> counter n) 
product 
(iter (* counter product) 


(+ counter 1)))) 
(iter 1 1)) 


用 一 个 比较 小 的 n 值 运行 这 一 过 程 。 记 录 下 对 每 个 值 计算 n! 时 的 最 大 堆栈 深度 和 压 栈 次 数 。 
a) 你 会 发 现 求 值 na! 时 的 最 大 堆栈 深度 是 与 无 关 的 。 这 个 深度 是 什么 ? 
b) 根据 你 得 到 的 数据 确定 一 个 公式 ， 对 于 任何 n>1， 它 都 基于 n 的 值 描 述 了 在 求 值 n! 中 所 
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用 的 总 的 压 栈 操作 次 数 。 请 注意 ， 这 里 的 次 数 应 该 是 n 的 一 个 线性 函数 ， 因 此 你 需要 确定 其 中 
的 两 个 常量 。 
练习 5.27 与 练习 5.26 做 一 个 比较 ， 研究 下 面 这 个 采用 递归 方式 求 阶乘 的 过 程 的 行为 : 
(define (factorial n) 
(if (= nm 1) 
i. 
(* (factorial (- n 1)) n))) 
i ct Ze HER bie kite, MEREM, CER Bin ect RR HEY ee ARE 
ALAM As Bete Be, HREM Any Be OXE RGR ER PERN). EPR ATR ER HE 
下 面 表 里 ， 在 表 中 各 个 空格 里 填 人 基于 "的 适当 表达 式 。 


最 大 深度 压 栈 次 数 








递归 的 阶乘 
迭代 的 阶乘 





堆栈 的 最 大 深度 是 求 值 器 在 执行 计算 中 所 用 存储 空间 量 的 一 个 度量 ， 压 栈 次 数 则 对 应 于 求 值 
所 需 的 时 间 。 

练习 5.28 ”请 修改 上 面 求 值 器 的 定义 ， 像 5.4.2 节 所 说 的 那样 修改 eval-sequence, 使 
求 值 器 不 再 是 尾 递归 的 。 重 新 运行 你 在 练习 5.26 和 练习 5.27 里 做 的 试验 ， 以 此 说 明 上 面 两 个 
factorial 过 程 版 本 现在 需要 的 空间 都 随 输入 线性 增长 。 

练习 5.29 请 监视 在 树 型 递归 的 斐 波 那 契 计 算 中 堆栈 操作 的 情况 : 

(define (fib n) 

(i= fe ñ 2) 


n 
(+ (fib {(- n 1)) (£ib (= n 2))))) 


a) 给 出 一 个 基于 mn 的 公式 ， 描 述 对 ?>2 计 算 Fib(a) 时 所 需 的 最 大 堆栈 深度 。 提 示 : 在 1.2.2 
节 我 们 曾经 说 过 ， 这 一 过 程 所 需 的 空间 随 着 "线性 增长 。 

b) 给 出 一 个 基于 7 的 公式 ， 描 述 对 "> 2 计算 Fib(a) 时 所 需 的 全 部 压 栈 操作 次 数 。 你 将 发 
现 这 一 压 栈 次 数 (对 应 于 计算 所 需 的 时 间 ) 将 随 着 "指数 地 增长 。 提 示 : 令 S(n) 是 计算 Fib(n) 
中 所 用 的 压 栈 次 数 ， 你 应 能 论证 ， 存 在 着 某 个 与 无 关 的 “开销 ”常数 k， 可 以 基于 S(n 一 1)， 
S(n—2) 和 常数 k 写 出 一 个 表示 S(n) 的 公式 。 请 给 出 这 个 公式 ， 并 说 明 k 是 什么 。 而 后 说 明 S(n) 
可 以 表述 为 a Fib(n+1)+b， 并 请 给 出 a 和 5b 的 值 。 

练习 5.30 ”我 们 的 求 值 器 现在 只 能 捕捉 两 类 错误 并 发 出 信号 一 一 未 知 的 表达 式 类 型 ， 以 及 
未 知 的 过 程 类 型 。 其 他 错误 将 使 这 个 求 值 器 退出 读 入 一 求 值 一 打印 循环 。 当 我 们 用 寄存 器 机 
器 模拟 器 运行 这 个 求 值 器 时 ， 这 些 错 误 都 只 能 由 基础 的 Scheme 系统 去 捕捉 。 这 种 情况 类 似 于 
当 用 户 程 序 出 了 一 个 错时 计算 机 就 会 垮台 ”。 做 好 一 个 真正 的 处 理 错 误 的 系统 是 一 个 大 项 目 ， 
但 理解 在 这 里 会 遇 到 什么 问题 ， 却 很 值得 花 一 点 时 间 。 


30 非常 遗憾 ， 这 正 是 常规 的 基于 编译 的 语言 系统 (例如 C) 的 普遍 情况 。 在 UNIX 里 出 现 这 种 情况 时 系统 会 “内 
核 卸 载 "， 在 DOS/Windows 里 它 将 变 成 大 灾难 。Macintosh 机 器 将 显示 出 一 个 爆炸 的 炸弹 图 画 ， 并 给 人 提供 重 
新 引导 计算 机 的 机 会 一 一 如 果 你 幸运 的 话 。 
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a) 出 现在 求 值 过 程 中 的 错误 ， 例 如 企图 访问 未 约束 的 变量 ， 可 以 通过 修改 查询 操作 的 
方式 捕 提 。 可 以 让 它 在 过 到 这 种 情况 时 返回 一 个 可 辨认 的 条 件 码 ， 要 求 这 个 条 件 码 不 是 任何 
用 户 变 量 的 可 能 值 。 这 样 ， 求 值 器 就 可 以 检查 这 一 条 件 码 ， 如 果 需 要 时 就 转 到 signal - 
error 去 。 请 在 上 面 求 值 器 里 找 出 所 有 需要 修改 的 地 方 ， 并 设法 更 正之 。 为 此 需要 做 很 多 
工作 。 

b) 更 糟糕 的 是 处 理由 基本 操作 的 应 用 产生 出 错误 信号 的 问题 ， 例 如 要 用 0 去 除 ， 或 者 企图 
去 求 一 个 符号 的 car。 在 专业 水 平 的 高 质量 系统 里 ， 系 统 将 检查 每 个 基本 操作 的 应 用 ， 因 为 
安全 性 也 是 这 些 基本 操作 的 一 部 分 。 举 个 例子 ， 在 每 次 调用 car 之 前 都 需要 确认 其 参数 确实 
是 序 对 。 如 果 参 数 不 是 序 对 ， 那 么 这 一 应 用 就 会 将 一 个 可 辨认 的 条 件 码 返回 给 求 值 器 ， 导 致 
求 值 器 报告 一 个 错误 。 我 们 也 可 以 在 寄存 器 机 器 模拟 器 中 安排 好 这 些 事 情 ， 在 那里 让 每 个 基 
本 过 程 检查 自己 的 参数 的 可 用 性 ， 在 出 问题 时 返回 适当 的 可 辨认 的 条 件 码 。 这 样 ， 求 值 器 里 
的 primitive-apply 代 码 就 可 以 检查 这 里 的 条 件 码 ， 在 需要 时 转 到 signal-error。 请 构 
造 起 这 一 结构 并 使 之 能 够 工作 。 这 是 一 个 很 大 的 工作 课题 。 
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5.4 节 的 显 式 控制 求 值 器 是 一 部 寄存 器 机 器 ， 它 的 控制 器 能 解释 Scheme 程序 。 在 这 一 节 里 ， 
我 们 将 要 看 到 的 是 如 何在 一 部 控制 器 不 是 Scheme 解释 器 的 寄存 器 机 器 上 运行 Scheme 程序 。 

显 式 控制 求 值 器 是 一 部 通用 机 器 一 一 它 可 以 执行 用 Scheme 语言 描述 的 任何 计算 过 程 。 该 
求 值 器 的 控制 器 与 它 的 数据 通路 和 谐 地 相互 配合 ， 以 执行 所 需要 的 计算 过 程 。 也 就 是 说 ， 这 
一 求 值 器 的 数据 通路 也 是 通用 的 : 只 要 给 出 一 个 适当 的 控制 器 ， 它 们 就 是 以 执行 我 们 所 需要 
的 任何 计算 ”。 

作为 商品 的 通用 计算 机 也 是 寄存 器 机 器 ， 它 们 的 组 织 形式 也 是 围绕 着 一 组 寄存 器 和 一 组 
操作 ， 这 些 东西 构成 了 一 个 高 效 而 又 方便 的 数据 通路 集合 。 通 用 计算 机 的 控制 器 也 是 一 个 寄 
存 器 机 器 语言 的 解释 器 ， 该 语言 与 我 们 前 面 看 到 的 东西 类 似 。 这 样 的 一 个 语言 被 称 为 这 台 计 
算 机 的 本 机 语言 ， 或 称 为 机 器 语言 。 用 这 种 机 器 语言 写 出 的 程序 就 是 指令 的 序列 ， 它 们 使 用 
这 部 机 器 的 数据 通路 。 例 如 ， 我 们 完全 可 以 将 显 式 控 制 求 值 器 的 指令 序列 看 作 是 某 台 通用 计 
算 机 的 一 个 机 器 语言 程序 ， 而 不 是 看 作 一 部 特定 的 解释 器 机 器 的 控制 器 。 

为 了 在 高 级 语言 和 寄存 器 机 器 语言 之 间 的 砚 沟 上 架设 起 一 座 桥梁 ， 存 在 着 两 种 常见 的 策 
略 。 显 式 控制 求 值 器 展示 的 是 一 种 称 为 解释 的 策略 。 此 时 我 们 用 有 关机 器 的 本 机 语言 写 出 一 
个 解释 器 ， 它 设法 配置 好 这 部 机 器 ， 使 它 能 够 执行 某 个 语言 ( 称 为 源 语言 ) 的 程序 ， 而 这 一 
源 语 言 可 能 与 执行 求 值 的 机 器 的 本 机 语言 完全 不 同 。 这 种 源 语言 的 基本 过 程 被 实现 为 一 个 子 
程序 库 ， 用 给 定 机 器 的 本 机 语言 写 出 。 被 解释 的 程序 ( 称 为 源 程序 ) 用 一 个 数据 结构 表示 。 
解释 器 遍历 这 种 数据 结构 ， 分 析 源 程序 的 情况 。 在 这 样 做 的 过 程 中 ， 它 需要 调用 取 自 库 的 适 
当 的 基本 子 程序 ， 以 模拟 源 程序 所 要 求 的 行为 。 

在 这 一 节 里 ， 我 们 将 要 探讨 另 一 种 称 为 编译 的 策略 。 一 个 针对 某 种 给 定 源 语言 和 某 种 给 


玉 这 只 是 一 个 理论 性 的 结论 。 我 们 并 不 想 断 言说 ， 对 于 作为 一 种 通用 计算 机 而 言 ， 这 一 求 值 器 的 数据 通路 是 特 
别 方便 的 或 者 特别 有 效 的 数据 通路 集合 。 举 例 说 ， 对 于 实现 高 性 能 的 浮 点 计算 ， 或 者 其 中 包含 大 量 对 二 进 制 
序列 操作 的 计算 ， 这 组 数据 通路 就 不 是 很 好 。 
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定 机 器 的 编译 器 ， 能 够 将 源 程序 翻译 为 用 这 部 机 器 的 本 机 语言 写 出 的 等 价 程序 ( 称 为 目标 程 
序 )。 我 们 在 这 一 节 里 将 要 实现 的 编译 器 ， 能 够 将 用 Scheme 写 出 的 程序 ， 翻 译 为 可 以 用 显 式 控 
制 求 值 器 的 数据 通路 执行 的 指令 序列 3。 

与 解释 方式 相 比 ， 采 用 编译 方式 可 以 大 大 提高 程序 执行 的 效率 ， 我 们 将 在 下 面 有 关 编 
译 器 的 综述 里 解释 有 关 情 况 。 另 一 方面 ， 解 释 器 则 为 程序 开发 和 排除 错误 提供 了 一 个 更 强 
大 的 环境 ， 因 为 被 执行 的 源 代码 在 运行 期 间 都 是 可 用 的 ， 可 用 去 检查 和 修改 。 此 外 ， 由 于 
整个 基本 操作 的 库 都 在 那里 ， 我 们 可 以 在 排除 错误 的 过 程 中 构造 新 程序 ， 随 时 把 它们 加 入 
系统 中 。 

由 于 看 到 了 编译 和 解释 的 互补 优势 ， 现 代 程 序 开发 环境 很 推崇 一 种 混合 的 策略 。Lisp 解 
释 器 通常 都 采用 一 种 组 织 方式 ， 使 得 解释 性 程序 和 编译 性 程序 可 以 相互 调用 。 这 就 使 程序 员 
可 以 编译 那些 自己 认为 已 经 排除 了 错误 的 程序 部 分 ， 从 而 取得 编译 方式 的 效率 优势 ， 而 让 那 
些 正在 进行 交互 式 开发 和 排 错 的 ， 还 在 不 断 变化 的 程序 部 分 的 执行 仍然 维持 在 解释 模式 之 中 。 
在 下 面 的 编译 器 实现 完成 之 后 ， 在 5.5.7 节 里 ， 我 们 将 要 说 明 如 何 将 它 与 解释 器 连接 ， 产 生出 
一 个 集成 的 编译 器 一 解释 器 开发 环境 。 

有 关 编 译 器 的 综述 

从 结构 和 所 执行 的 功能 上 看 ， 我 们 的 编译 器 都 很 像 前 面 的 解释 器 。 正 因为 此 ， 在 这 个 编 
译 器 里 分 析 表 达 式 的 机 制 将 与 解释 器 中 使 用 的 东西 类 似 。 进 一 步 说 ， 为 了 使 编译 代码 与 解释 
代码 方便 地 互 连 ， 我 们 将 按照 下 面 方式 设计 这 一 编译 器 ， 使 它 产 生 的 代码 遵循 与 解释 器 相同 
的 寄存 器 使 用 规则 : 执行 环境 仍 保存 在 env 寄 存 器 里 ， 实 际 参 数 表 在 azg1 寄 存 器 里 积累 ， 被 
应 用 的 过 程 存在 proc 寄 存 器 里 ， 过 程 通 过 val 返 回 它们 的 值 ， 过 程 将 要 使 用 的 返回 地 址 保存 
在 continue 里 。 一 般 而 言 ， 这 个 编译 器 将 把 一 个 源 程序 翻译 为 一 个 目标 程序 ， 该 目标 程序 
所 执行 的 寄存 器 操作 ， 从 本 质 上 说 ， 也 就 是 解释 器 求 值 同一 个 源 程序 时 所 执行 的 操作 。 

这 一 描述 提出 了 一 种 实现 基本 编译 器 的 策略 : 我 们 应 该 以 与 解释 器 同样 的 方式 去 遍历 表 
达 式 。 当 遇 到 解释 器 在 求 值 表 达 式 时 应 该 执行 一 条 寄存 器 指令 时 ， 我 们 不 是 去 执行 这 条 指令 ， 
而 是 将 它 收 集 到 一 个 序列 里 。 这 样 得 到 的 指令 序列 就 是 我 们 所 需要 的 目标 代码 。 现 在 就 可 以 
看 到 编译 器 优 于 解释 器 的 地 方 了 。 解 释 器 在 每 次 求 值 一 个 表达 式 时 一 一 例如 ，(E 84 96), 
都 需要 去 做 对 这 个 表达 式 的 分 类 工作 (发 现 这 是 一 个 过 程 应 用 ) ， 需 要 检查 表达 式 的 表 是 否 结 
R (发 现 这 里 存在 两 个 运算 对 象 )。 而 在 采用 编译 器 的 情况 下 ， 对 这 一 表达 式 的 分 析 只 需要 做 
一 次 ， 也 就 是 在 编译 期 间 生 成 指令 序列 的 时 候 。 在 由 编译 器 产生 出 的 目标 代码 里 ， 只 包含 了 
那些 对 运算 符 和 两 个 运算 对 象 求 值 的 指令 ， 以 及 将 有 关 的 过 程 (在 proc 里 ) 应 用 于 实际 参数 
(在 argl 里 ) 的 指令 。 

这 里 所 看 到 的 ， 实 际 上 也 就 是 我 们 在 4.1.7 节 实现 分 析 型 求 值 器 时 所 采用 的 同一 类 优化 技 
术 。 但 是 ， 在 编译 性 的 代码 里 还 存在 进 一 ed en 6 性。 在 解释 器 运行 时 ， 它 需要 按 
照 一 种 能 够 适用 于 该 语言 里 的 所 有 表达 式 的 方式 工作 。 一 段 给 定 的 编译 代码 的 情况 则 与 此 完 


a 实际 上 ， 运 行 这 种 编译 产生 的 代码 的 机 器 可 以 比 相 应 的 解释 器 机 器 更 简单 ， 因 为 我 们 并 没有 使 用 其 中 的 exp 
和 unev 寄 存 器 。 解 释 器 里 用 这 些 寄存 器 保存 未 求 值 的 表达 式 。 采 用 了 编译 器 之 后 ， 这 些 表达 式 都 被 构造 到 
寄存 器 机 器 需要 去 执行 的 编译 结果 代码 里 了 。 由 于 同样 的 原因 ， 我们 也 不 再 需要 处 理 表达 式 语 法 的 机 器 操作 。 
但 是 编译 结果 代码 里 将 使 用 另外 几 个 机 器 操作 (用 于 表示 编译 后 的 过 程 对 象 )， 它 们 没有 出 现在 显 式 控制 求 
值 器 机 器 里 。 
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全 不 同 ， 因 为 它 的 目标 就 是 执行 某 个 特定 的 表达 式 。 这 种 差异 可 能 产生 极 大 的 影响 ， 例 如 在 
用 堆栈 保存 寄存 器 方面 。 当 解释 器 求 值 一 个 表达 式 时 ， 它 必须 为 所 有 偶然 可 能 发 生 的 情况 做 
好 准备 。 因 此 ， 在 求 值 一 个 子 表达 式 之 前 ， 解 释 器 就 必须 将 所 有 后 来 可 能 需要 的 寄存 器 存 人 
堆栈 ， 因 为 在 子 表达 式 里 可 能 做 任何 求 值 工 作 。 而 在 另 一 面 ， 编 译 器 就 可 以 去 考察 它 所 处 理 
的 特定 表达 式 ， 在 产生 出 的 代码 里 避免 所 有 并 不 必要 的 堆栈 操作 。 

作为 这 方面 情况 的 一 个 例子 ， 现 在 考虑 组 合式 (£ 84 96)。 在 解释 器 求 值 这 个 组 合式 的 
运算 符 之 前 ， 它 需要 为 这 个 求 值 做 好 准备 ， 将 保存 着 运算 对 象 和 环境 的 寄存 器 都 存 入 堆栈 ， 
因为 这 些 值 后 来 还 要 使 用 。 而 后 解释 器 去 做 运算 符 的 求 值 ， 在 val 里 得 到 求 值 的 结果 ， 人 恢复 
所 有 保存 在 堆栈 里 的 寄存 器 值 ， 最 后 把 val 里 的 结果 移 到 proc。 然 而 ， 在 需要 处 理 的 这 个 特 
定 表达 式 里 ， 运 算 符 也 就 是 符号 E， 对 于 它 的 求 值 由 机 器 操作 lookup-variable-value 完 
成 ， 在 此 过 程 中 根本 不 会 修改 任何 寄存 器 。 我 们 将 要 在 本 节 里 实现 的 编译 器 就 能 利用 这 一 事 
实 ， 在 产生 出 的 代码 里 ， 它 将 用 下 面 指令 完成 对 这 个 运算 符 的 求 值 工作 : 

(assign proc (op lookup-variable-value) (const f) (reg env)) 
这 一 代码 不 仅 避 免 了 原本 就 没有 必要 的 保存 和 恢复 工作 ， 而 且 直 接 将 找 出 的 值 赋 给 proc。 而 
解释 器 是 先 在 val 里 得 到 这 个 值 ， 而 后 又 把 它 移 到 proc。 

编译 器 还 能 优化 对 环境 的 访问 。 通 过 对 代码 的 分 析 ， 在 许多 情况 下 ， 编 译 器 可 以 确定 在 
哪个 框架 保存 着 某 个 特定 值 ， 并 直接 访问 这 一 框架 ， 而 不 需要 去 执行 ]ookup-variable- 
value 搜 索 。 我 们 将 在 5.5.6 节 讨论 如 何 实现 这 种 变量 访问 。 当 然 ， 在 那 之 前 ， 我 们 还 是 准备 
集中 精力 ， 讨 论 如 何 完 成 上 面 所 描述 的 寄存 器 和 堆栈 优化 。 编 译 器 还 可 以 执行 许多 其 他 优化 
工作 ， 例 如 将 某 些 基本 操作 “在 线 处 理 ”， 而 不 是 使 用 一 次 通用 的 apply 机 制 ( 见 练习 5.38)。 
但 我 们 将 不 在 这 里 强调 这 些 东 西 。 这 一 节 里 的 主要 目标 ， 就 是 在 一 个 经 过 简化 (但 仍然 很 有 
意思 ) 的 上 下 文中 展示 编译 过 程 里 的 各 种 情况 。 


5.5.1 编译 器 的 结构 


在 4.1.7 闻 里 ， 我 们 修改 了 原来 的 元 循环 解释 器 ， 将 分 析 过 程 与 实际 执行 分 离开 。 在 分 析 
每 个 表达 式 后 产生 出 一 个 执行 过 程 ， 它 以 一 个 环境 作为 参数 ， 执 行 所 需 的 操作 。 在 我 们 的 编 
译 器 里 ， 也 要 做 本 质 上 与 那里 相同 的 分 析 。 但 现在 不 是 要 产生 出 一 个 执行 过 程 ， 而 是 要 生成 
出 一 些 能 够 在 我 们 的 寄存 器 机 器 上 运行 的 指令 序列 。 

这 个 编译 器 里 的 过 程 compile 完 成 最 高 层 的 分 派 ， 它 对 应 于 4.4.1 市 里 的 eval 过 程 ， 
4.1.7 节 里 的 analyze 过 程 , 以 及 在 5.4.1 节 里 的 显 式 控制 求 值 器 里 的 eval-dispatch 入 口 点 。 
这 个 编译 器 很 像 一 个 解释 器 ， 它 也 要 使 用 4.1.2 节 里 定义 的 各 种 表达 式 语 法 过 程 ”。compile 
执行 一 个 基于 被 编译 的 表达 式 语 法 类 型 的 分 情况 分 析 ， 对 于 每 种 表达 式 类 型 ， 都 将 它们 分 派 
到 一 个 特定 的 代码 生成 器 : 

(define (compile exp target linkage) 

(cond ((self-evaluating? exp) 


?0 请 注意 ， 我 们 的 编译 器 是 一 个 Scheme 程序 ， 而 那些 用 于 操作 表达 式 的 语法 过 程 ， 也 是 在 元 循环 求 值 器 里 使 用 
的 真正 的 Scheme 过 程 。 在 另 一 方面 ， 对 于 显 式 控制 求 值 器 ， 我 们 则 假定 了 同样 的 一 组 等 价 的 语法 过 程 可 用 作 
寄存 器 机 器 的 操作 。( 当 然 ， 在 Scheme 里 模拟 寄存 器 机 器 时 ， 在 我 们 的 寄存 器 机 器 模拟 器 里 使 用 的 确实 是 这 
些 真实 的 Scheme 过 程 。) 
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(compile-self-evaluating exp target linkage) ) 
((quoted? exp) (compile-quoted exp target linkage) ) 
((variable? exp) 

(compile-variable exp target linkage) ) 
((assignment? exp) 

(compile-assignment exp target linkage) ) 
((definition? exp) 

(compile-definition exp target linkage) ) 

((if? exp) (compile-if exp target linkage) ) 
((lambda? exp) (compile-lambda exp target linkage) ) 
((begin? exp) 
(compile-sequence (begin-actions exp) 
target 
linkage) ) 
((cond? exp) (compile (cond->if exp) target linkage) ) 
((application? exp) 
(compile-application exp target linkage) ) 
(else 


(error "Unknown expression type -- COMPILE" exp) )) ) 


目标 和 连接 

除了 被 编译 表达 式 之 外 ，compile 和 它 所 调用 的 代码 生成 器 还 有 另外 两 个 参数 。 一 个 是 
目标 (target), ， 它 描述 的 是 一 个 寄存 器 ， 被 编译 出 的 代码 段 应 该 将 表达 式 的 值 保 存 到 这 里 。 
还 有 一 个 称 为 连接 描述 符 (linkage)， 它 描述 的 是 相关 表达 式 的 编译 结果 代码 在 完成 自己 的 执 
行 之 后 ， 应 该 如 何 继续 下 去 。 这 一 连接 描述 符 可 以 要 求 代码 做 下 面 三 件 事情 之 一 : 

. 继续 序列 里 的 下 一 条 指令 (采用 连接 描述 符 next 表 示 )。 

* 从 被 编译 的 过 程 返回 (采用 连接 描述 符 return 表 示 )。 

。 跳 到 一 个 命名 的 入 口 点 (描述 这 种 情况 的 方式 就 是 以 指定 标号 作为 连接 描述 符 )。 

举例 来 说 ， 以 val 寄 存 器 作为 目标 ， 以 next 作 为 连接 描述 符 编译 表达 式 5 (这 是 一 个 自 求 
值 表达 式 )， 将 产生 出 下 面 的 指令 

(assign val (const 5)) 
而 用 连接 return 编 译 同一 表达 式 ， 将 产生 下 面 的 指令 序列 


(assign val (const 5)) 


(goto (reg continue)) 


对 于 第 一 种 情况 ， 执 行将 继续 去 做 序列 里 的 下 一 指令 。 对 于 第 二 种 情况 ， 我 们 将 从 一 个 过 程 
调用 里 返回 。 在 这 两 种 情况 中 ， 表 达 式 的 值 都 被 存放 在 目标 寄存 器 val 里 。 


指令 序列 和 堆栈 的 使 用 

每 个 代码 生成 器 都 返回 一 个 指令 序列 ， 其 中 包含 的 是 由 被 编译 表达 式 生 成 出 的 目标 代码 。 
由 复合 表达 式 生 成 的 代码 ， 是 通过 组 合 起 针对 其 中 的 成 分 表达 式 的 代码 生成 器 的 输出 而 建立 
起 来 的 ， 就 像 前 面 对 复 合 表达 式 的 求 值 ， 是 通过 求 值 其 中 的 成 分 表达 式 而 完成 一 样 。 

组 合 指令 序列 的 最 简单 方式 就 是 调用 一 个 名 为 append-insttruction-sedquences 的 
过 程 。 这 个 过 程 以 任意 数目 的 指令 序列 作为 参数 ， 假 定 这 些 序列 应 该 顺序 执行 。 这 一 过 程 将 
这 些 序 列 拼接 起 来 ， 返 回 这 样 组 合 而 成 的 指令 序列 。 也 就 是 说 ， 如 果 <seqgt> 和 <seqgz> 都 是 指 
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令 序列 ， 那 么 求 值 : 
(append-instruction-sequences <seqi> <seq,>) 
产生 出 的 指令 序列 就 是 


<seq\> 


<seq> 


如 果 某 个 时 候 需 要 保存 一 些 寄存 器 的 值 ， 编 译 器 的 代码 生成 器 就 会 使 用 preserving,， 
它 实现 了 一 种 更 加 精细 的 组 合 指令 序列 的 方式 。preserving 有 三 个 参数 ， 一 个 寄存 器 集合 
和 两 个 需要 顺序 执行 的 指令 序列 。preserving 组 合 这 两 个 序列 的 方式 能 够 保证 ， 如 果 其 参 
数 集合 中 的 某 个 寄存 器 的 值 在 第 二 个 指令 序列 里 需要 用 的 话 ， 这 个 值 就 不 会 受到 第 一 个 指令 
序列 执行 的 影响 。 这 也 就 是 说 ， 如 果 第 一 个 序列 里 修改 某 个 寄存 器 ， 而 第 二 个 序列 里 实际 需 
要 这 个 寄存 器 的 原 值 ， 那 么 preserving 就 会 在 把 第 一 个 序列 归并 进来 之 前 ， 在 这 个 序列 的 
外 面包 上 对 这 个 寄存 器 的 一 个 save 和 一 个 restore。 如 果 情 况 不 是 这 样 ，preserving 就 
返回 简单 连接 起 来 的 序列 。 这 样 ， 举 例 来 说 ， 对 于 : 


(preserving (list <regi> <reg.>) <seq\> <seq.>) 


根据 <seq!> 和 <seq;> 里 如 何 使 用 <reg1> 和 <reg2>， 有 可 能 产生 下 面 四 种 序列 之 一 : 


<seqi> (save <reg,>) (save <reg,>) (save <reg,>) 
<seqo> <seq\> <seq\> (save <reg)>) 
(restore <reg,>) (restore <reg)>, <seq\>) 
<seq2>) <seq2> (restore <reg,>) 


(restore <reg,>) 
<seqy> 


通过 采用 preserving 组 合 指令 序列 ， 编 译 器 就 可 以 避免 各 种 不 必要 做 的 堆栈 操作 了 。 
这 一 做 法 也 把 是 否 需要 生成 save 和 restore 指 令 的 细节 全 部 隔离 在 preserving 过 程 里 ， 
把 这 件 事 情 与 写 各 个 代码 生成 器 时 所 需要 关心 的 问题 分 离开 来 。 事 实 上 ， 各 个 代码 生成 器 都 
不 会 显 式 地 产生 save 和 restore 指 令 。 

从 原则 上 说 ， 我 们 完全 可 以 用 一 个 简单 的 指令 的 表 去 表示 一 个 指令 序列 。 如 果 采 用 这 种 
形式 ，append-instruction-sequences 组 合 指 令 序 列 的 工作 也 就 是 执行 一 次 常规 的 表 
append。 但 是 如 果真 的 那样 做 ，preserving 就 会 变 成 一 个 非常 复杂 的 操作 ， 因 为 它 将 不 
得 不 去 分 析 每 个 指令 序列 ， 设 法 确定 指令 序列 里 使 用 它 的 寄存 器 (参数 ) 的 情况 。 这 不 单 会 
使 Ppreserving 变 得 异常 复杂 ， 也 使 它 非常 低 效 ， 因 为 它 将 必须 去 分 析 自 己 的 每 个 指令 序 
列 参数 ， 即 使 这 些 参数 本 身 也 是 通过 调用 preserving 而 构造 起 来 的 ， 此 时 它们 里 的 各 个 
部 分 都 曾经 分 析 过 。 为 了 避免 这 种 重复 分 析 ， 我 们 将 为 每 个 指令 序列 关联 上 有 关 其 中 寄存 
器 使 用 的 信息 。 当 我 们 构造 起 一 个 简单 的 指令 序列 时 ， 就 会 显 式 地 提供 有 关 的 信息 ， 而 那 
些 组 合 指令 的 过 程 ， 也 会 从 各 个 成 分 序列 的 相关 信息 中 推导 出 组 合 后 产生 的 序列 的 寄存 器 
使 用 信息 。 

一 个 指令 序列 将 包含 三 部 分 信息 : 

。 它 在 序列 中 的 指令 执行 之 前 必须 初始 化 的 那些 寄存 器 的 集合 (我 们 称 这 些 寄 存 器 为 这 个 

序列 所 需要 的 ) 。 

“在 这 一 序列 中 ， 其 值 会 被 修改 的 那些 寄存 器 的 集合 。 

*。 序 列 里 的 实际 指令 (BRAES). 
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我 们 将 把 指令 序列 表示 为 一 个 包含 这 三 个 部 分 的 表 。 这 样 ， 指 令 序 列 的 构造 函数 就 是 : 
(define (make-instruction-sequence needs modifies statements) 
(list needs modifies statements)) 


举 个 例子 ， 设 想 一 个 包含 了 两 条 指令 的 序列 ， 它 在 当前 环境 里 查看 变量 x 的 值 并 将 这 个 值 
赋 给 val， 而 后 返回 。 这 个 指令 序列 要 求 寄存 器 env 和 continue 已 经 过 初始 化 ， 并 要 修改 寄 
存 器 val。 因 此 这 个 序列 可 以 如 下 构造 : 

(make-instruction-sequence ’(env continue) ’' (val) 

’( (assign val 


(op lookup-variable-value) (const x) (reg env)) 
(goto (reg continue)))) 


我 们 有 时 也 可 能 需要 构造 不 含 语句 的 指令 序列 ; 
(define (empty-instruction-sequence) 
(make-instruction-sequence *() ’() °())) 


5.5.4 节 将 给 出 各 种 组 合 指令 序列 的 过 程 。 

练习 5.31 ”在 求 值 一 个 过 程 应 用 时 ， 显 式 控制 求 值 器 总 要 在 运算 符 求 值 的 前 后 保存 和 恢 
复 env 寄 存 器 ， 在 对 每 个 运算 对 象 (除了 最 后 一 个 之 外 ) 求 值 的 前 后 保存 和 恢复 env， 在 对 每 
个 运算 对 象 求 值 的 前 后 保存 和 恢复 azg1l， 在 求 值 运算 对 象 序列 的 前 后 保存 和 恢复 pzoc。 对 
于 下 面 的 每 个 组 合式 ， 请 说 明 这 其 中 的 那些 save 和 restore 操 作 是 多 余 的 ， 因 此 可 以 由 编 
译 器 里 的 preserving 机 制 删 除 : 


(E Se y) 
(EI Ky) 
(£ (g °x) y) 
(E (g °x) ’y) 


练习 5.32 采用 了 preserving 机 制 之 后 ， 在 一 个 组 合式 的 运算 符 是 简单 符号 的 情况 下 ， 
编译 器 就 可 以 避免 在 求 值 运算 符 的 前 后 保存 和 恢复 env 寄 存 器 。 我 们 也 可 以 将 这 种 优化 构筑 
到 求 值 器 里 。 实 际 上 ，5.4 节 的 显 式 控 制 求 值 器 已 经 做 了 一 种 类 似 的 优化 ， 其 中 将 没有 运算 对 
象 的 组 合式 作为 一 种 特殊 情况 处 理 。 

a) 请 扩充 显 式 控制 求 值 器 ， 使 之 能 识别 出 运算 符 是 符号 的 组 合式 ， 作 为 一 类 特殊 的 表达 
式 ， 并 在 求 值 这 种 表达 式 时 利用 这 一 特殊 事实 。 

b) Alyssa P. Hacker 建 议 ， 求 值 器 应 该 识别 出 更 多 的 我 们 可 能 结合 到 编译 器 里 的 特殊 情况 ， 
并 据 此 完全 剔除 编译 器 的 所 有 优势 。 你 觉得 这 种 想法 怎么 样 ? 


5.5.2 表达 式 的 编译 
在 本 节 和 下 一 节 里 ， 我 们 要 实现 compile 过 程 分 派 的 那些 代码 生成 器 。 


连接 代码 的 编译 
一 般 而 言 ， 每 个 代码 生成 器 的 输出 最 后 都 将 是 一 些 指令 一 一 由 过 程 compile-1linkage 
生成 ， 实 现 所 需要 的 连接 。 如 果 这 一 连接 是 return， 那 么 我 们 就 必须 生成 指令 (goto 


(reg continue))。 这 条 指令 需要 continue 寄 存 器 ， 而 且 不 修改 任何 寄存 器 。 如 果 这 一 
连接 是 next ， 那 么 我 们 就 不 需要 包括 任何 指令 进来 。 否 则 相应 的 连接 就 是 一 个 标号 ， 需 要 产 
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生 一 条 转向 那个 标号 的 goto 指 令 。 这 条 指令 既 不 需要 也 不 修改 任何 寄存 器 ?2 。 


(define (compile-linkage linkage) 
(cond ((eq? linkage ’return) 

(make-instruction-sequence ‘(continue) ’() 
*((goto (reg continue) )))) 

( (eq? linkage ‘next) 
(empty-instruction-sequence) ) 

(else 

(make-instruction-sequence °*() °() 
“((goto (label ,linkage))))))) 


连接 代码 将 被 preserving 用 保留 continue 寄 存 器 的 方式 ， 附 加 到 相应 的 指令 序列 之 后 ， 
因为 return 连 接 将 需要 continue 寄 存 器 。 这 样 ， 如 果 这 一 指令 序列 修改 了 人 continue 寄 存 
器 ， 而 连接 代码 又 需要 它 ，continue 的 内 容 就 会 被 保存 和 恢复 。 


(define (end-with-linkage linkage instruction-sequence) 
(preserving * (continue) 
instruction-sequence 


(compile-linkage linkage) ) ) 


简单 表达 式 的 编译 
对 于 自 求 值 表达 式 、 引 号 表达 式 和 变量 ， 相 应 的 代码 生成 器 构造 出 的 指令 序列 将 所 需 的 
值 赋 给 指定 的 目标 寄存 器 ， 而 后 根据 连接 描述 符 继续 下 去 : 


(define (compile-self-evaluating exp target linkage) 
(end-with-linkage linkage 
(make-instruction-sequence °() (list target) 


‘( (assign ,target (const ,exp)))))) 


(define (compile-quoted exp target linkage) 
(end-with-linkage linkage 
(make-instruction-sequence '() (list target) 


‘( (assign ,target (const , (text-of-quotation exp))))))) 


(define (compile-variable exp target linkage) 
(end-with-linkage linkage 
(make-instruction-sequence ‘(env) (list target) 
‘( (assign ,target 
(op lookup-variable-value) 
(const ,exp) 
(reg env)))))) 


所 有 这 些 赋 值 指令 都 修改 目标 寄存 器 ， 查 找 变量 内 容 的 指令 需要 env 寄 存 器 。 

赋值 和 定义 的 处 理 方式 很 像 在 解释 器 里 的 做 法 。 我 们 要 递归 地 生成 出 那些 用 于 计算 所 需 
值 〈 准 备 赋 给 变量 ) 的 代码 ， 并 在 它 后 面 附加 一 个 包含 两 条 指令 的 序列 ， 实 际 完 成 对 变量 的 
赋值 ， 并 将 整个 表达 式 的 值 (符号 ok) 赋 给 目标 寄存 器 。 这 种 递归 编译 使 用 目标 val 和 连接 


2 这 个 过 程 里 使 用 了 Lisp 的 一 种 称 为 反 引 号 (或 者 拟 引 号 ) 的 特征 ， 这 种 特征 在 构造 表 的 时 候 非 常 方便 。 在 表 
的 前 面 放 一 个 反 引 号 很 像 是 为 它 加 了 引号 ,但 是 这 个 表 里 所 有 加 了 逗号 标记 的 东西 都 将 被 求 值 。 
举 个 例子 ， 如 果 1inkage 的 值 是 符号 branch25， 那 么 对 “((goto (label ,linkage))) 求 值 就 
会 得 到 表 ((goto (label branch25))), 与 此 类 似 ， 如 果 x 的 值 是 表 (a b c), MA ‘(1 2 , (car 
x)) 求 出 的 值 就 是 (1 2 a), 
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next， 所 以 由 此 生成 的 代码 将 把 值 放 入 val， 并 继续 去 执行 跟随 其 后 的 代码 。 这 里 采用 的 拼 
接 方式 是 保留 snv， 因 为 在 设置 或 者 定义 变量 都 需要 当时 的 环境 ， 而 产生 变量 值 的 代码 可 能 
是 任何 复杂 表达 式 的 编译 结果 ， 其 中 完全 可 能 以 任何 方式 修改 env 寄 存 器 。 
(define (compile-assignment exp target linkage) 
(let ((var (assignment-variable exp)) 
(get-value-code 
(compile (assignment-value exp) ‘val ‘next))) 
(end-with-linkage linkage 
(preserving ’ (env) 
get-value-code 
(make-instruction-sequence ’(env val) (list target) 
“((perform (op set-variable-value!) 
(const ,var) 
(reg val) 
(reg env) ) 


(assign ,target (const ok)))))))) 


(define (compile-definition exp target linkage) 
(let ((var (definition-variable exp) ) 
(get-value-code 
(compile (definition-value exp) ‘val next) ) ) 
(end-with-linkage linkage 
(preserving ’ (env) 
get-value-code 
(make-instruction-sequence ’(env val) (list target) 
‘ ( (perform (op define-variable!) 
(const ,var) 
(reg val) 
(reg env) ) 
(assign ,target (const ok)))))))) 


在 拼接 两 个 指令 序列 时 需要 env 和 val， 并 要 修改 目标 寄存 器 。 请 注意 ， 虽 然 我 们 为 这 个 序列 
保留 了 env， 但 是 却 没 有 保留 val ， 因 为 get-value-code 的 设计 将 会 显 式 地 把 它 的 返回 值 
放 入 val， 供 这 一 序列 使 用 。( 事 实 上 ， 如 果 我 们 真 去 保留 val 的 值 ， 反 而 会 引进 一 个 错误 ， 
因为 这 将 导致 在 get -value-code 运 行 之 后 又 恢复 了 val 原 来 的 内 容 。) 


条 件 表达 式 的 编译 
对 给 定 的 目标 和 连接 ， 编 译 一 个 if 表 达 式 而 产生 出 的 指令 序列 将 具有 下 面 形式 : 

< 谓词 的 编译 ， 目 标 为 val， 连 接 为 next> 

(test (op false?) (reg val)) 

(branch (label false-branch) ) 
true-branch 

< 以 给 定 目标 及 连接 或 aftez-iE 对 推论 部 分 的 编译 结果 > 
false-branch 
< 以 给 定 目标 及 连接 对 替代 部 分 的 编译 结果 > 
after-if 
为 了 生成 这 样 的 代码 ， 我 们 需要 编译 其 中 的 谓词 、 推 论 和 替代 部 分 。 为 了 将 得 到 的 代码 
与 检测 谓词 结果 的 代码 组 合 起 来 ， 这 里 还 需要 生成 几 个 新 标号 ， 用 于 标识 出 检测 的 真 假 分 支 
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和 条 件 表达 式 计 算 的 结束 位 置 。 在 安排 这 些 代码 时 ， 我 们 必须 在 谓词 检测 为 假 时 跳 过 真 分 
支 。 稍 微 复杂 一 些 的 情况 出 现在 对 于 真 分 支 的 连接 处 理 的 位 置 。 如 果 这 个 条 件 表达 式 的 连接 
是 return 或 是 标号 ， 真 分 支 和 假 分 支 都 应 该 使 用 这 个 连接 。 如 果 当 时 的 连接 是 next ， 真 分 
支 的 最 后 就 需要 一 个 跳 过 假 分 支 的 指令 ， 跳 到 标明 这 一 条 件 结束 的 标号 位 置 。 
(define (compile-if exp target linkage) 
(let ((t-branch (make-label ‘true-branch)) 
(f-branch (make-label *false-branch) ) 
(after-if (make-label ‘after-if) )) 
(let ( (consequent -linkage 
(if (eq? linkage ‘next) after-if linkage) )) 
(let ((p-code (compile (if-predicate exp) ‘val ‘next)) 
(c-code 
(compile 
(if-consequent exp) target consequent-linkage) ) 
(a-code 
(compile (if-alternative exp) target linkage) ) ) 
(preserving ’(env continue) 
p-code 
(append-instruction-sequences 
(make-instruction-sequence ’(val) *() 
“((test (op false?) (reg val) ) 
(branch (label ,f-branch) ) ) ) 
(parallel-instruction-sequences 
(append-instruction-sequences t-branch c-code) 
(append-instruction-sequences f-branch a-code) ) 
after-if)))))) 


在 谓词 的 前 后 需要 保留 env, 因为 在 真 分 支 和 假 分 支 中 都 可 能 需要 它 ， 还 需要 保留 continue， 
因为 这 些 分 支 的 连接 代码 可 能 需要 它 。 由 真 分 支 和 假 分 支 生 成 的 代码 (它们 绝 不 会 顺序 执行 
用 另 一 个 特殊 组 合 操作 Parallel1-insttruction-seduences 拼 接 起 来 ， 这 一 操作 将 在 
5.5.4 节 里 描述 。 

请 注意 ，cond 是 一 个 派生 表达 式 。 因 此 ， 为 了 处 理 它 ， 编 译 器 需要 做 的 全 部 事情 就 是 应 
用 cond->if 变 换 过 程 ( 取 自 4.1.2 节 )， 而 后 编译 得 到 的 if 表 达 式 。 


2 我 们 不 能 像 上 面 所 示 的 那样 直接 采用 标号 true-branch、false-branch 和 after-if， 因 为 在 一 个 程序 
里 完全 可 能 有 不 止 一 个 让。 因此 编译 器 需要 用 make-1abe1 过 程 生成 新 标号 。 过 程 mnake-1abel 以 一 个 符 
号 作为 参数 ， 它 将 返回 一 个 新 符号 ， 这 一 标号 以 给 定 的 符号 作为 开始 部 分 。 例 如 ， 连 续 地 反复 调用 (make- 
label ‘a) 将 返回 al1、a2 等 等 。 过 程 make-1label1 的 实现 可 以 采用 与 查询 语言 中 生成 唯一 变量 名 类 似 的 方 
式 ， 例 如 下 面 这 样 : 


(define label-counter 0) 


(define (new-label-number) 
(set! label-counter (+ 1 label-counter) ) 


label-counter) 


(define (make-label name) 
(string->symbol 
(string-append (symbol->string name) 


(number->string (new-label-number) ) ))) 
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表达 式 序 列 的 编译 

对 于 表达 式 序列 (来 自 过 程 体 或 者 显 式 的 pegin 表 达 式 ) 的 编译 与 对 它们 的 求 值 一 样 。 
首先 分 别 编译 序列 里 的 每 个 表达 式 一 一 最 后 一 个 表达 式 将 采用 整个 序列 的 连接 ， 其 他 表达 式 
都 用 next 连 接 (表示 随后 应 该 执行 序列 里 剩 下 的 部 分 )。 将 各 个 表达 式 编译 得 到 的 指令 序列 
拼接 起 来 ， 形 成 一 个 指令 序列 。 在 这 里 需要 保留 起 env (序列 的 其 余部 分 可 能 需要 它 ) 和 
continue (序列 最 后 的 连接 可 能 需要 它 )。 


(define (compile-sequence seq target linkage) 
(if (last-exp? seq) 
(compile (first-exp seq) target linkage) 
(preserving ’ (env continue) 
(compile (first-exp seq) target ‘next) 
(compile-sequence (rest-exps seq) target linkage) ))) 
lambda 表 达 式 的 编译 
lambda 表 达 式 构造 出 的 是 过 程 。 一 个 lambda 表 达 式 的 目标 代码 必须 具有 下 面 的 形式 : 
< 构造 过 程 对 象 并 将 它 赋 给 目标 寄存 器 > 
< 连接 > 
在 编译 lambda 表 达 式 时 ， 我 们 还 要 生成 出 过 程 体 的 代码 。 虽 然 这 个 体 在 过 程 构造 期 间 并 
不 执行 ， 但 是 ， 将 它 的 目标 代码 插入 到 紧 接 着 1ambda 的 代码 之 后 是 很 方便 的 。 如 果 对 于 
lambda 表 达 式 的 连接 是 一 个 标号 或 者 return， 这样 做 就 正好 合适 。 但 是 如 果 当 时 的 连接 是 
next ， 那 么 我 们 就 需要 跳 过 过 程 体 的 代码 ， 此 时 采用 一 个 转 跳 连接 ， 将 相应 的 标号 放 在 过 程 
体 的 后 面 。 这 样 ， 目 标 代码 将 具有 下 面 形 式 : 
< 构造 过 程 对 象 并 将 它 赋 给 目标 寄存 器 > 
< 给 连接 的 代码 > 或 (goto (label after-lambda) ) 
< 过 程 体 的 编译 结果 > 
after-lambda 
compile-lambda 生 成 出 构成 过 程 对 象 的 代码 ， 随 后 是 过 程 体 的 代码 。 这 种 过 程 对 象 将 
在 运行 时 构造 起 来 ， 构 造 的 方式 就 是 组 合 起 当时 的 环境 (定义 点 的 环境 ) 和 编译 后 的 过 程 体 
的 入 口 点 (一 个 新 生成 的 标号 ) 3。 
(define (compile-lambda exp target linkage) 
(let ((proc-entry (make-label ‘entry)) 
(after-lambda (make-label ‘after-lambda))) 


(let ((lambda-linkage 
(if (eq? linkage ’next) after-lambda linkage) ) ) 


2 我 们 需要 几 个 机 器 操作 ， 以 便 实现 表示 编译 后 的 过 程 的 数据 结构 ， 类 似 于 在 4.1.3 节 里 所 描述 的 复合 过 程 的 结 
构 : 
(define (make-compiled-procedure entry env) 


(list ‘compiled-procedure entry env) ) 


(define (compiled-procedure? proc) 


(tagged-list? proc ‘compiled-procedure) ) 


(define (compiled-procedure-entry c-proc) (cadr c-proc)) 


(define (compiled-procedure-env c-proc) (caddr c-proc) ) 
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(append-instruction-sequences 
(tack-on-instruction-sequence 
(end-with-linkage lambda-linkage 
(make-instruction-sequence ‘(env) (list target) 
'( (assign ,target 
(op make-compiled-procedure) 
(label ,proc-entry) 
(reg env))))) 
(compile-lambda-body exp proc-entry) ) 
after-lambda) ) ) ) 


compile-lambda 采 用 特殊 的 组 合 操作 tack-on-instruction-sedquence (5.5.44), 
将 过 程 体 代码 拼接 到 lambaa 表 达 式 的 代码 后 面 。 这 里 没有 用 appenad- instruction- 
sequences， 因 为 当 执行 进入 被 组 合 的 序列 时 ， 过 程 体 并 不 是 相应 指令 序列 的 一 部 分 。 将 它 
放 在 这 里 ， 只 不 过 因为 这 是 安放 它 的 一 个 方便 位 置 。 
compile-lambda-body 构 造 出 过 程 体 的 代码 。 这 有 段 代码 的 开始 是 一 个 入 口 点 标号 。 
随后 是 一 些 指令 ， 这 些 指令 完成 的 工作 是 将 运行 时 的 执行 环境 转换 到 求 值 过 程 体 的 正确 环 
境 一 一 也 就 是 说 ， 转 换 到 过 程 的 定义 环境 ， 还 要 完成 用 形式 参数 与 这 一 过 程 被 调用 时 的 实际 
参数 约束 的 扩充 。 在 此 之 后 就 是 构成 过 程 体 的 表达 式 序列 的 编译 结果 代码 。 这 个 序列 用 连 
接 return 和 目标 val 进 行 编译 ， 因 此 它 的 结束 是 从 过 程 里 返回 ,过程 的 结果 放 在 val 里 。 
(define (compile-lambda-body exp proc-entry) 
(let ((formals (lambda-parameters exp))) 
(append-instruction-sequences 
(make-instruction-sequence ‘(env proc argl) ’ (env) 
*(,proc-entry 
(assign env (op compiled-procedure-env) (reg proc) ) 
(assign env 

(op extend-environment ) 

(const ,formals) 

(reg argl) 

(reg env) ))) 


(compile-sequence (lambda-body exp) ‘val ‘return)))) 


5.5.3 组 合式 的 编译 


编译 过 程 中 最 本 质 的 东西 就 是 过 程 应 用 的 编译 。 一 个 组 合式 对 给 定 目 标 和 连接 的 编译 结 
果 代 码 具 有 下 面 形式 : 

< 运算 符 的 编译 结果 ， 目 标 为 proc， 连 接 为 next> 

< 求 值 运 算 对 象 并 构造 实际 参数 表 ， 放 人 arg1> 

< 用 给 定 的 目标 和 连接 编译 过 程 调用 的 结果 > 
在 求 值 运算 符 和 运算 对 象 期 间 ， 我 们 可 能 需要 保留 与 恢复 寄存 器 env、proc 和 arg1。 请 注 
意 ， 在 这 个 编译 器 中 ， 仅 有 这 一 个 地 方 使 用 的 目标 描述 不 是 val。 

这 里 所 需要 的 代码 由 compile-application 生 成 。compile-application 递 归 地 
编译 运算 符 ， 生 成 出 的 代码 把 需要 应 用 的 过 程 放 入 proc; 而 后 去 编译 各 个 运算 对 象 ， 生 成 出 
对 过 程 应 用 所 需 的 各 个 运算 对 象 求 值 的 代码 。 针 对 各 个 运算 对 象 的 指令 序列 还 要 与 在 arg1 里 
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构造 实际 参数 表 的 代码 组 合 起 来 (通过 construct-arglist)， 得 到 的 实际 参数 表 代 码 再 
与 过 程 的 代码 和 执行 过 程 调用 的 代码 (由 compile-procedure-call 生 成 ) 组 合 到 一 起 。 
在 拼接 这 一 代码 序列 的 过 程 中 ， 在 运算 符 求 值 的 前 后 必须 保留 和 恢复 env (因为 运算 符 的 求 
值 可 能 修改 env， 而 在 运算 对 象 求 值 时 还 需要 它 ) ， 在 构造 实际 参数 表 的 前 后 必须 保留 起 寄存 
器 Proc (因为 对 运算 对 象 的 求 值 中 可 能 修改 proc， 在 实际 过 程 应 用 时 还 需要 它 )。 在 整个 这 
一 段 的 前 后 需要 保留 cont inue， 因 为 过 程 调用 的 连接 需要 它 。 


(define (compile-application exp target linkage) 
(let ((proc-code (compile (operator exp) ’proc ”next) ) 
(operand-codes 
(map (lambda (operand) (compile operand ’val ’next) ) 
(operands exp) ))) 

(preserving ‘(env continue) 

proc-code 

(preserving ’(proc continue) 
(construct-arglist operand-codes) 


(compile-procedure-call target linkage) ))) ) 


构造 实 参 表 的 代码 将 对 每 个 运算 对 象 求 值 ， 结 果 放 入 val， 而 后 把 这 个 值 cons 到 在 arg1 
里 积累 起 来 的 实 参 表 中 。 因 为 这 里 是 顺序 地 将 实 参 cons 到 argl 上， 因此 我 们 就 必须 从 最 后 
一 个 参数 开始 ， 第 一 个 参数 最 后 做 ,这 样 才能 使 实际 参数 在 结果 表 里 出 现 的 顺序 是 从 第 一 个 
到 最 后 一 个 。 为 了 不 浪费 一 条 指令 去 做 将 arg1 初 始 化 为 空 表 ， 准 备 好 这 一 系列 求 值 的 工作 ， 
我 们 让 第 一 个 代码 序列 构造 出 初始 的 argl。 这 样 ， 实 际 产 生 表 构造 的 一 般 形式 就 是 : 

< 最 后 运算 对 象 的 编译 结果 ， 目 标 为 val> 


(assign argl (op list) (reg val)) 
< 下 一 运算 对 象 的 编译 结果 ， 目 标 为 val> 
(assign argl (op cons) (reg val) (reg argl)) 


< 第 一 个 运算 对 象 的 编译 结果 ， 目 标 为 val> 

(assign argl (op cons) (reg val) (reg argl)) 
除了 第 一 个 运算 对 象 之 外 ， 在 每 个 运算 对 象 求 值 的 前 后 都 必须 保留 和 恢复 argl (以 保证 至 今 
已 经 积累 起 的 实际 参数 不 会 丢失 ) ; 除了 最 后 一 个 参数 之 外 ， 在 每 个 运算 对 象 求 值 的 前 后 都 
必须 保留 和 恢复 env (以 便 后 续 的 运算 对 象 求 值 中 使 用 )。 

由 于 对 第 一 个 参数 需要 特殊 处 理 ， 并 需要 在 不 同 的 地 方 保留 argl 和 env， 编 译 这 段 实 参 
代码 中 有 些小 麻烦 。construct-arglist 过 程 以 求 值 各 个 运算 对 象 的 代码 段 为 参数 。 如 果 
根本 就 没有 运算 对 象 ， 它 就 直接 送出 下 面 指令 : 

(assign argl (const ())) 
否则 ，construct-arglist 就 用 最 后 一 个 实际 参数 创建 起 初始 化 azg1 的 代码 ， 并 拼接 起 
求 值 其 他 参数 得 到 的 代码 ， 并 将 它们 顺序 结合 到 arg1 里 。 为 了 从 后 向 前 处 理 各 个 实际 参数 ， 
我 们 必须 把 compile-application 提 供 的 运算 对 象 代码 序列 的 表 反 转 过 来 。 

(define (construct-arglist operand-codes) 

(let ((operand-codes (reverse operand-codes) ) ) 


(if (null? operand-codes) 


(make-instruction-sequence °() ’(argl) 
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’'( (assign argl (const ())))) 
(let ((code-to-get-last-arg 
(append-instruction-sequences 
(car operand-codes) 
(make-instruction-sequence ’(val) ’(argl) 
’( (assign argl (op list) (reg val))))))) 
(if (null? (cdr operand-codes) ) 
code-to-get-last-arg 
(preserving ’ (env) 
code-to-get-last-arg 
(code-to-get-rest-args 
(cdr operand-codes)))))))) 


(define (code-to-get-rest-args operand-codes) 
(let ((code-for-next-arg 
(preserving ’(argl) 
(car operand-codes) 
(make-instruction-sequence ’(val argl) ’*(argl) 
*((assign argl 
(op cons) (reg val) (reg argl))))))) 
(if (mull? (cdr operand-codes) ) 
code-for-next-arg 
(preserving ’ (env) 
code-for-next-arg 
(code-to-get-rest-args (cdr operand-codes)))))) 


过 程 应 用 

在 完成 了 组 合式 里 的 各 个 元 素 的 求 值 之 后 ， 得 到 的 编译 结果 代码 需要 把 位 于 proc 里 的 过 程 
应 用 于 argl 里 的 实际 参数 。 从 本 质 上 看 ， 这 段 代码 执行 就 是 分 派 动 作 ， 与 4.1.1 闻 里 元 循 坏 求 值 器 
里 的 apply 过 程 , 或 者 5.4.1 市 里 显 式 控制 求 值 器 里 apply-dispatch 入 口 点 所 完成 的 动作 差不多 。 
它 检查 被 应 用 的 过 程 是 基本 过 程 还 是 编译 出 的 过 程 。 对 于 基本 过 程 使 用 apply-primitive- 
procedure, 下面 马上 会 看 到 对 于 编译 出 的 过 程 的 处 理 方式 。 过 程 应 用 的 代码 具有 如 下 形式 : 


(test (op primitive-procedure?) (reg proc)) 
(branch (label primitive-branch) ) 
compiled-branch 
< 对 给 定 目标 及 适当 连接 应 用 编译 好 的 过 程 的 代码 > 
primitive-branch 
(assign < 目标 > 
(op apply-primitive-procedure) 
(reg proc) 
(reg argl) ) 
< 连接 > 
after-call 
应 注意 ， 这 里 有 关 编 译 后 过 程 的 分 支 必须 跳 过 处 理 基本 过 程 的 分 支 。 这 样 ， 如 果 原 过 程 调用 
的 连接 是 next ， 复 合 分 支 就 必须 使 用 另 一 个 连接 ， 以 便 能 跳 到 插入 在 基本 分 支 后 面 的 那个 标 
号 处 。( 这 类 似 于 在 compile-if 里 真 分 支 所 用 的 连接 。) 


(define (compile-procedure-call target linkage) 
(let ((primitive-branch (make-label ‘primitive-branch)) 
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(compiled-branch (make-label ‘compiled-branch) ) 
(after-call (make-label ’after-call))) 
(let ((compiled-linkage 
(if (eq? linkage ‘next) after-call linkage) )) 
(append-instruction-sequences 
(make-instruction-sequence *(proc) '() 
‘((test (op primitive-procedure?) (reg proc) ) 
(branch (label ,primitive-branch) ) ) ) 
(parallel-instruction-sequences 
(append-instruction-sequences 
compiled-branch 
(compile-proc-appl target compiled-linkage) ) 
(append-instruction-sequences 
primitive-branch 
(end-with-linkage linkage 
(make-instruction-sequence *(proc argl) 
(list target) 
‘( (assign ,target 
(op apply-primitive-procedure) 
(reg proc) 
(reg argl))))))) 
after-call)))) 


这 里 的 基本 分 支 和 复合 分 支 很 像 compile-if 里 的 真 分 支 和 假 分 支 ， 它 们 也 是 用 过 程 


parallel-instruction-sequences 拼 接 的 ， 而 没有 用 常规 的 append-instruction- 
sequences， 因 为 它们 不 会 顺序 执行 。 


编译 出 的 过 程 的 应 用 

处 理 过 程 调用 的 代码 是 这 个 编译 器 里 最 难处 理 的 部 分 ， 虽 然 它 所 生成 的 指令 序列 实际 上 
很 短 。 一 个 编译 出 的 过 程 (由 compile-1lambda 构 造 出 来 ) 有 一 个 入 口 点 ， 就 是 一 个 标号 ， 
它 标明 了 这 个 过 程 的 开始 位 置 。 位 于 这 一 入 口 点 的 代码 能 够 计算 出 一 个 结果 ， 并 将 它 放 入 
val， 而 后 通过 执行 指令 (goto (reg continue)) 返回 。 由 于 这 些 情况 ， 我 们 可 能 认为 ， 
如 果 连 接 是 一 个 标号 ， 针 对 给 定 的 目标 和 连接 应 用 一 个 编译 过 程 的 代码 (由 compile- 
proc-appl 生 成 ) 看 起 来 会 是 下 面 的 形式 : 

(assign continue (label proc-return)) 

(assign val (op compiled-procedure-entry) (reg proc)) 

(goto (reg val)) 

proc-return 


(assign < 目标 > (reg val)) ; included if target is not val 
(goto (label < 连接 >) ) ; linkage code 


当 连 接 是 return 时 ， 它 会 像 下 面 的 样子 : 
(save continue) 
(assign continue (label proc-return)) 
(assign val (op compiled-procedure-entry) (reg proc)) 
(goto (reg val)) 
proc-return 
(assign < 目标 > (reg val)) ; included if target is not val 
(restore continue) 


(goto (reg continue) ) ; linkage code 


5.5 编 & 411 


这 里 的 代码 将 设置 好 continue (以 便 使 过 程 能 返回 标号 proc-return)， 而 后 就 跳 到 过 程 
的 入 口 点 ,位 于 proc-return 的 代码 把 过 程 产生 的 结果 从 val 传 送 到 目标 寄存 器 (如 果 需 要 )， 
而 后 跳 到 由 连接 描述 的 特定 位 置 (这 一 连接 一 定 是 一 个 return 或 者 是 一 个 标号 ， 因 为 
compile-procedure-call 已 把 对 复合 过 程 分 支 的 next 连 接 换 成 为 一 个 after-call 标 
ST). 

事实 上 ， 如 果 这 里 的 目标 不 是 val， 那 么 它 正好 就 是 我 们 的 编译 器 将 要 生成 的 代码 *。 当 
然 ， 有关 的 目标 通常 都 是 val (编译 器 里 以 另 一 个 寄存 器 作为 求 值 目标 的 地 方 仅 有 一 处 ， 那 
就 是 将 求 值 运算 符 的 目标 定 在 proc)， 所 以 过 程 的 结果 将 直接 放 入 目标 寄存 器 ， 而 不 需要 将 
结果 先 放 入 特定 位 置 ， 而 后 再 去 复制 它 。 还 有 ， 我 们 还 要 简化 这 里 的 代码 ， 通 过 设置 好 
continue， 使 得 过 程 能 直接 “返回 ”到 调用 者 描述 的 连接 所 指定 的 位 置 : 


< 为 连接 设置 continue> 
(assign val (op compiled-procedure-entry) (reg proc) ) 





(goto (reg val) ) 


如 果 连 接 是 一 个 标号 ， 我 们 就 设置 好 continue， 使 过 程 直 接 返回 到 那个 标号 〈 也 就 是 说 ， 
作为 过 程 结束 的 (goto (reg continue))， 此 时 将 变 得 等 价 于 上 面 的 proc-return 处 的 
(goto (label < 连接 >))。) 


(assign continue (label < 连接 >)) 

(assign val (op compiled-procedure-entry) (reg proc) ) 

(goto (reg val) ) 
如 果 连 接 是 return， 我 们 将 根本 不 需要 设置 cont inue: 它 里 面 已 经 保存 着 所 需 的 地 址 。 
(也 就 是 说 ， 作 为 这 一 过 程 结束 的 (goto (reg continue)), 将 能 直接 跳 到 上 面 的 proc- 
return 处 的 (goto (reg continue)) 应 该 跳 到 的 地 方 。) 


(assign val (op compiled-procedure-entry) (reg proc) ) 
(goto (reg val) ) 


采用 这 样 的 return 连 接 实现 后 ， 编 译 器 就 能 生成 尾 递归 代码 了 。 在 调用 一 个 过 程 时 ， 作 为 过 
程 体 的 最 后 一 个 步骤 将 完成 一 次 直接 转移 ， 无 需 向 堆栈 里 保存 任何 信息 。 

假如 我 们 不 采取 这 种 做 法 ， 对 于 具有 return 连 接 和 val 目标 的 过 程 调用 ， 也 采用 上 面 所 
示 的 那 种 对 非 val 目标 的 代码 的 处 理 方式 ， 那 么 就 会 破坏 尾 递归 。 虽 然 这 样 得 到 的 系统 对 任 
何 表达 式 都 将 给 出 同样 结果 ， 但 在 每 次 调用 过 程 时 ， 它 都 要 保存 起 cont inue， 并 在 相应 调 
用 最 后 返回 时 撤销 这 种 (无用) 保存 的 效果 。 这 一 额外 的 保存 将 会 在 贬 套 的 过 程 调用 中 积累 
Ek”, 


334 在 实际 中 ， 当 目标 不 是 val 而 连接 是 return 时 ， 我们 将 发 出 一 个 错误 信号 ， 因 为 只 有 在 编译 过 程 时 才 需 要 
return 连 接 ， 而 按照 我 们 的 约定 ， 过 程 总 是 在 val 里 返回 它们 的 值 。 

335 这 样 看 起 来 ， 编 译 器 生成 尾 递归 代码 的 思想 是 非常 直截了当 的 。 但 是 ， 处 理 常 见 语言 (包括 C 和 Pascal) 的 大 
部 分 编译 器 都 没有 做 这 件 事 ， 因 此 在 这 些 语言 里 就 不 能 仅仅 用 过 程 调用 来 描述 和 迭代。 在 那些 语言 里 处 理 尾 递 
归 的 困难 ， 在 于 它们 的 实现 中 不 但 在 堆栈 里 保存 返回 地 址 ， 还 要 保存 过 程 实际 参数 和 局 部 变量 。 在 本 书 所 描 
述 的 Scheme 实 现 里 ， 实 参 和 变量 都 保存 在 能 做 废料 收集 的 存储 区 里 。 采 用 堆栈 保存 实 参 和 局 部 变量 ， 是 因为 
那样 做 可 以 避免 在 语言 里 使 用 废料 收集 (如 果 不 那样 做 就 会 需要 它 ), 一 般 认为 这 种 情况 有 利于 程序 执行 效率 。 
事实 上 ， 复 杂 的 Lisp 编 译 器 也 可 以 用 堆栈 保存 实 参 而 又 不 破坏 尾 递 归 (参看 Hanson 1990 的 讨论 ) 。 在 更 基本 
的 问题 上 ， 有 关 堆 栈 分 配 是 否 确实 能 得 到 高 于 废料 收集 的 效率 ， 也 存在 着 许多 争论， 其 中 的 细节 看 来 依赖 于 
计算 机 体系 结构 的 某 些 细微 要 点 (参见 Appel 1987 和 Miller and Rozas 1994 有 关 这 一 问题 的 对 立 观点 )。 


412 PIX FHREMSELHHA 


compile-proc-app1 生 成 上 面 所 述 的 过 程 调 用 代码 ， 其 中 考虑 了 四 种 不 同情 况 ， 根 据 
一 个 调用 的 目标 是 否 为 val， 以 及 其 连接 是 否 为 return。 可 以 看 到 ， 这 里 的 代码 序列 都 说 明 
为 需要 修改 所 有 寄存 器 ， 因 为 执行 过 程 体 完全 可 能 以 任何 方式 修改 寄存 器 *。 还 请 注意 ， 有 
关 目 标 val 和 连接 return 情 况 的 代码 序列 说 明了 需要 continue: 即使 continue 并 没有 被 
用 在 其 中 的 两 个 指令 序列 里 ， 我 们 也 必须 保证 在 进入 编译 好 的 过 程 时 ，continue 将 有 正确 
的 值 。 
(define (compile-proc-appl target linkage) 
(cond ((and (eq? target ’val) (not (eq? linkage ’return) ) ) 
(make-instruction-sequence ’ (proc) all-regs 
“((assign continue (label ,linkage) ) 
(assign val (op compiled-procedure-entry) 
(reg proc) ) 
(goto (reg val))))) 
((and (not (eq? target ’val) ) 
(not (eq? linkage ‘return) ) ) 
(let ((proc-return (make-label ’proc-return) ) ) 
(make-instruction-sequence ’(proc) all-regs 
“((assign continue (label ,proc-return) ) 
(assign val (op compiled-procedure-entry) 
(reg proc) ) 
(goto (reg val)) 
sproc-return 
(assign ,target (reg val) ) 
(goto (label ,linkage)))))) 
((and (eq? target ’val) (eq? linkage ’return) ) 
(make-instruction-sequence ’ (proc continue) all-regs 
*((assign val (op compiled-procedure-entry) 
(reg proc) ) 
(goto (reg val))))) 


((and (not (eq? target ’val)) (eq? linkage ‘return) ) 
(error “return linkage, target not val -- COMPILE" 
target) ))) 


5.5.4 指令 序列 的 组 合 


本 节 将 说 明 如 何 表示 指令 序列 ， 以 及 如 何 组 合 起 它们 的 细节 。 回 忆 一 下 5.5.1 节 ， 那 时 我 
们 说 明了 ， 指 令 序 列 用 一 个 表 来 表示 ， 其 中 包含 所 需要 的 寄存 器 集合 ， 所 修改 的 寄存 器 集合 ， 
以 及 一 串 实际 指令 。 我 们 还 要 把 标号 〈 一 个 符号 ) 看 作 是 指令 序列 里 的 一 种 退化 情况 ， 它 既 
不 需要 也 不 修改 任何 寄存 器 。 这 样 ， 在 需要 确定 一 个 指令 序列 需要 哪些 寄存 器 ， 修 改 哪 些 寄 
存 器 时 ， 我 们 将 使 用 下 面 的 选择 函数 : 

(define (registers-needed s) 


(if (symbol? s) ’() (car s))) 


(define (registers-modified s) 


326 变量 al1-regs 将 约束 于 一 个 包含 所 有 寄存 器 名 字 的 表 : 


(define all-regs ‘(env proc val argl continue) ) 
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(if (symbol? s) *() (cadr s))) 


(define (statements s) 
(if (symbol? s) (list s) (caddr s))) 


要 确定 某 个 指令 序列 是 否 需要 或 者 修改 某 个 特定 的 寄存 器 ， 我 们 使 用 下 面 的 谓词 : 
(define (needs-register? seq reg) 


(memq reg (registers-needed seq) ) ) 


(define (modifies-register? seq reg) 
(memq reg (registers-modified seq) )) 


现在 我 们 就 可 以 基于 这 些 谓 词 和 选择 函数 ， 去 实现 用 在 这 个 编译 器 里 的 各 种 组 合 指令 序列 的 
过 程 了 。 

最 基本 的 组 合 过 程 是 append-instruction-sequences， 它 以 任意 多 个 意欲 顺序 执 
行 的 指令 序列 为 实际 参数 ， 返 回 一 个 指令 序列 ， 其 中 的 语句 是 由 所 有 参数 序列 里 的 语句 顺序 
拼接 而 形成 的 。 在 这 里 ， 更 复杂 的 问题 是 确定 结果 序列 所 需要 和 修改 的 寄存 器 集合 。 它 所 修 
改 的 寄存 器 就 是 被 其 中 的 任 一 个 序列 修改 的 寄存 器 ， 而 它 所 需要 的 寄存 器 就 是 在 其 中 的 第 一 
个 序列 可 以 运行 前 必须 初始 化 的 那些 寄存 器 (第 一 个 序列 所 需要 的 寄存 器 )， 再 加 上 其 他 序列 
里 的 某 一 个 所 需要 的 那些 寄存 器 ， 而 这 些 寄存 器 又 没有 被 它 前 面 的 序列 初始 化 (或 者 修改 )。 

这 些 序列 用 append-2-sequences 两 个 一 次 地 拼接 起 来 。 这 个 过 程 以 两 个 指令 序列 
seql 和 seq2 作 为 参数 ， 返 回 一 个 指令 序列 ， 其 中 的 语句 是 序列 seql 里 的 语句 后 跟着 序列 
seq2 里 的 语句 ， 它 所 修改 的 寄存 器 包括 所 有 被 seql 或 者 seq2 修 改 的 寄存 器 ， 它 需要 的 寄存 
器 是 seql 所 需要 的 寄存 器 ， 再 加 上 那些 seq2 需 要 同时 又 没有 被 seql 修 改 的 寄存 器 (按照 集 
合 操作 的 描述 方式 ， 这 一 新 语句 序列 需要 的 寄存 器 ， 就 是 seq1 需 要 的 寄存 器 集合 ， 与 sed2 
需要 的 寄存 器 集合 与 seql 修 改 的 寄存 器 集 的 差 集 之 并 集 )。 这 样 ，append-instruction- 
sequences 可 以 实现 如 下 : 

(define (append-instruction-sequences . seqs) 

(define (append-2-sequences seql seq2) 
(make-instruction-sequence 
(list-union (registers-needed sedql) 
(list-difference (registers-needed seq2) 
(registers-modified seq1) )) 
(list-union (registers-modified seql) 
(registers-modified seq2) ) 
(append (statements seql) (statements seq2)))) 
(define (append-seq-list seqs) 
(if (null? seqs) 
(empty-instruction-sequence) 
(append-2-sequences (car seqs) 
(append-seq-list (cdr seqs))))) 
(append-seq-list seqs) ) 

这 个 过 程 里 使 用 了 一 些 简单 操作 ， 完 成 对 以 表 的 形式 表示 的 集合 的 各 种 运算 。 这 种 表 与 

2.3.3 节 里 描述 的 〈 无 序 ) 集合 表示 类 似 : 


(define (list-union s1 s2) 
(cond ((null? s1) s2) 
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((memgq (car sl) s2) (list-union (cdr s1) s2)) 


(else (cons (car sl) (list-union (cdr sl) s2))))) 


(define (list-difference sl s2) 
(cond ((null? s1) *()) 
((memq (car sl) s2) (list-difference (cdr sl) s2)) 
(else (cons (car s1) 
(list-difference (cdr sl) s2))))) 


preserving 是 第 二 个 主要 的 序列 组 合 过 程 ， 它 的 参数 是 一 个 寄存 器 表 regs 和 两 个 应 该 
顺序 执行 的 指令 序列 seql 和 seq2。 它 返回 一 个 指令 序列 ， 其 中 的 语句 是 seql 的 语句 后 跟着 
seq2 的 语句 ， 再 加 上 围绕 在 seq1l 的 语句 前 后 的 适当 的 save 和 restore 指 令 ， 以 便 保 护 
regs 里 的 那些 seq2 需 要 的 而 又 将 被 seql 修 改 的 寄存 器 。 为 了 完成 这 一 工作 ,preserving 
首先 创建 出 一 个 序列 ， 其 中 包含 了 所 需要 的 那些 save， 后 面 跟着 seql 里 的 语句 ， 而 后 是 所 
需 的 所 有 restore。 这 一 序列 所 需要 的 寄存 器 ， 除 了 seql 需 要 的 那些 寄存 器 外 ， 还 有 所 有 
在 这 里 保留 和 恢复 的 寄存 器 ， 它 修改 的 寄存 器 就 是 seql 修 改 的 寄存 器 ， 但 要 除去 在 这 里 保留 
和 恢复 的 那些 寄存 器 。 最 后 将 这 一 扩充 序列 与 seq2 按 常规 方式 拼接 起 来 。 下 面 过 程 以 递归 方 
式 实现 这 一 策略 ， 逐 一 处 理 需要 保留 的 寄存 器 表 里 的 寄存 器 27 : 


(define (preserving regs seql seq2) 
(if (null? regs) 
(append-instruction-sequences seql seq2) 
(let ((first-reg (car regs) ) ) 
(if (and (needs-register? seq2 first-reg) 
(modifies-register? seql first-reg) ) 
(preserving (cdr regs) 
(make-instruction-sequence 
(list-union (list first-reg) 
(registers-needed seql1) ) 
(list-difference (registers-modified seqgl) 
(list first-reg) ) 
(append ‘((save ,first-reg) ) 
(statements seql) 
“((restore ,first-reg) ))) 
seq2) 
(preserving (cdr regs) seql seq2))))) 


另 一 个 序列 组 合 过 程 是 tack-on-instruction-sequence， 它 用 在 compile-lambda 
里 ， 用 于 将 过 程 与 另 一 个 序列 拼接 起 来 。 由 于 过 程 体 本 身 并 不 是 作为 组 合 序列 的 一 部 分 而 
“在 线 ” 执 行 的 ， 它 所 使 用 的 寄存 器 对 于 它 嵌 入 其 中 的 序列 的 寄存 器 使 用 并 没有 影响 。 这 样 ， 
我 们 在 将 过 程 体 纳 入 其 他 序列 时 ， 就 应 该 忽略 它 所 需要 和 修改 的 寄存 器 集合 。 


(define (tack-on-instruction-sequence seq body-seq) 
(make-instruction-sequence 
(registers-needed seq) 
(registers-modified seq) 
(append (statements seq) (statements body-seq) )) ) 


w 请 注意 ， 这 里 preserving 用 三 个 参数 调用 append。 虽 然 本 书 里 介绍 的 append 定 义 只 接受 两 个 参数 ，Scheme 
标准 提供 的 append 过 程 可 以 接受 任意 多 个 参数 。 
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compile-if 和 compile-procedure-call 采 用 了 一 个 特殊 的 组 合 过 程 ， 完 成 条 件 表 
达 式 中 检测 之 后 的 两 个 分 支 的 拼接 , 这 个 过 程 名 为 parallel-instruction-sequences。 
这 里 的 两 个 分 支 决 不 会 顺序 执行 ， 对 于 任何 一 种 特定 的 检测 求 值 情况 ， 有 且 仅 有 两 个 分 支 之 
一 执行 。 正 因为 这 样 ， 第 二 个 分 支 所 需要 的 寄存 器 也 将 是 整个 组 合 序列 所 需要 的 ， 即 使 其 中 
的 一 些 被 第 一 个 分 支 修改 也 如 此 。 


(define (parallel-instruction-sequences seql seq2) 
(make-instruction-sequence 
(list-union (registers-needed seql) 
(registers-needed seq2) ) 
(list-union (registers-modified seq1) 
(registers-modified seq2) ) 
(append (statements seql) (statements seq2) ))) 


5.5.5 编译 代码 的 实例 


至 此 我 们 已 经 看 到 了 这 一 编译 器 的 所 有 元 素 ， 现 在 让 我 们 来 考察 一 个 编译 代码 的 实例 ， 
看 看 这 里 的 各 种 东西 如 何 相互 配合 浑然 一 体 。 我 们 将 通过 下 面 形式 调用 compile， 编 译 其 中 
递归 定义 的 factorial 过 程 的 定义 : 
(compile 
"(define (factorial n) 
(GE (= mn 1) 
1 
(* (factorial (- n 1)) n))) 
‘val 


‘next) 


前 面 已 经 说 过 ，define 表 达 式 的 值 应 该 放 入 寄存 器 val， 我 们 也 不 关心 在 执行 define 之 后 
的 编译 代码 是 什么 。 因 此 在 这 里 就 随意 地 选择 next 作 为 连接 描述 符 。 
由 于 compile 确 定 了 被 处 理 的 表达 式 是 一 个 定义 ， 所 以 它 调用 compile-definition 
去 编译 出 计算 被 赋 的 值 的 代码 (以 val 为 目标 )， 随 后 是 安装 这 一 定义 的 代码 ， 随 后 是 将 这 一 
define 的 值 (就 是 符号 ok) 放 入 目标 寄存 器 的 代码 ， 再 后 面 是 最 后 的 连接 代码 。env 被 保 
留 起 来 ， 绕 过 值 的 计算 部 分 ， 因 为 后 来 还 需要 用 它 去 安装 这 个 定义 。 由 于 连接 是 next ， 在 这 
种 情况 下 就 没有 连接 代码 。 这 样 ， 编 译 结果 代码 的 框架 如 下 : 
< 如 果 env 被 计算 值 的 代码 修改 就 保存 它 > 
< 定义 值 的 编译 结果 ， 目 标 为 val ， 连 接 next> 
< 如 果 env 在 前 面 保 存 就 恢复 它 > 
(perform (op define-variable!) 
(const factorial) 
(reg val) 
(reg env) ) 


(assign val (const ok) ) 


在 这 里 ， 需 要 编译 并 产生 出 变量 factorial 的 值 的 表达 式 是 一 个 lambda 表 达 式 ， 这 个 
值 是 一 个 计算 阶乘 的 过 程 。compile 处 理 这 种 表达 式 的 方式 是 调用 compile-lambda, 让 
这 个 过 程 去 编译 过 程 体 ， 用 新 标号 将 它 标 记 为 一 个 入 口 点 ， 并 生成 出 一 些 指令 ， 将 位 于 这 个 
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新 入 口 点 的 过 程 体 组 合 到 运行 时 的 环境 中 ， 最 后 将 结果 赋 给 val。 虽 然 编 译 好 的 过 程 代码 被 
插入 在 这 个 位 置 ， 整 个 序列 则 需要 跳 过 这 些 代码 。 过 程 代码 在 它 开始 的 地 方 去 扩充 过 程 的 定 
义 环 境 ， 在 这 里 需要 增加 一 个 框架 ， 其 中 将 形式 参数 ?约束 到 过 程 的 实际 参数 。 随 后 就 是 实际 
的 过 程 体 。 由 于 求 出 变量 值 的 这 段 代 码 并 不 修改 env 寄 存 器 ， 因 此 前 面 所 示 的 可 选 的 save 和 
restore 就 不 会 产生 (位 于 entzy2 的 过 程 代码 在 这 一 点 还 设 有 执行 ， 因 此 它 对 env 的 使 用 
与 此 无 关 )。 这 样 ， 编 译 生成 的 代码 框架 变 成 了 ; 
(assign val (op make-compiled-procedure) 
(label entry2) 
(reg env) ) 
(goto (label after-lambdal) ) 
entry2 
(assign env (op compiled-procedure-env) (reg proc) ) 
(assign env (op extend-environment) 
(const (n)) 
(reg argl) 
(reg env) ) 
< 过 程 体 的 编译 结果 > 
after-lambdal 
(perform (op define-variable!) 
(const factorial) 
(reg val) 
(reg env) ) 
(assign val (const ok) ) 


过 程 体 总 是 被 (用 compile-lambda-body) 编译 为 一 个 序列 ， 用 val 作 为 目标 ， 用 的 
连接 是 return。 目 前 这 个 序列 来 自 一 个 if 表 达 式 : 
(if C= 2 t) 
1 


(* (factorial (- n 1)) n)) 


compile-if 生 成 的 代码 首先 计算 谓词 部 分 (目标 为 val)， 而 后 检查 计算 结果 ， 在 谓词 为 假 
时 跳 过 真 分 支 。 在 谓词 代码 的 前 后 需要 保留 和 恢复 env、continue， 因 为 if 表达 式 的 其 他 
部 分 还 可 能 需要 它们 。 因 为 这 个 if 表 达 式 也 是 构成 这 个 过 程 体 的 序列 里 的 最 后 一 个 (也 是 仅 
有 的 一 个 ) 表达 式 ， 其 目标 是 val 而 且 连 接 是 return， 所 以 它 的 真 分 支 和 假 分 支 都 用 目标 
val 和 连接 return 编 译 。( 也 就 是 说 ， 这 个 条 件 表 达 式 的 值 ， 也 就 是 从 它 的 任何 分 支 计 算出 
的 值 ， 实 际 上 就 是 整个 过 程 的 值 。) 

< 如 果 continue, env 被 谓词 部 分 修改 且 后 面 分 支 需要 ， 就 保存 > 

< 谓词 部 分 的 编译 结果 ， 目 标 为 val， 连 接 为 next> 

< 如 果 continue, env 在 前 面 保 存 ， 现 在 恢复 > 

(test (op false?) (reg val)) 

(branch (label false-branch4) ) 


true-branch5 


< 真 分 支 的 编译 结果 ， 目 标 为 val， 连 接 为 return> 


false-branch4 
< 假 分 支 的 编译 结果 ， 目 标 为 val， 连 接 为 return> 


after-if3 


谓词 (= n1) 是 一 个 过 程 调 用 ， 这 时 需要 查找 运算 符 (符号 = )， 并 把 相应 的 值 放 入 
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proc。 而 后 把 实 参 1 和 n 的 值 装 进 argl 里 。 这 时 需要 检查 proc 里 面包 含 的 是 基本 过 程 还 是 复 
合 过程 ， 并 根据 情况 分 派 到 基本 分 支 或 者 复合 分 支 ， 这 两 个 分 支 都 结束 在 after-call 标 号 。 
有 关 在 求 值 运算 符 和 运算 对 象 的 前 后 保留 和 恢复 寄存 器 的 要 求 ， 在 目前 这 一 情况 里 没有 导致 
任何 寄存 器 保留 动作 ， 因 为 这 里 的 求 值 都 不 会 修改 需要 考虑 的 那些 寄存 器 。 
(assign proc 
(op lookup-variable-value) (const =) (reg env) ) 
(assign val (const 1)) 
(assign argl (op list) (reg val) ) 
(assign val (op lookup-variable-value) (const n) (reg env) ) 
(assign argl (op cons) (reg val) (reg argl)) 
(test (op primitive-procedure?) (reg proc) ) 
(branch (label primitive-branchli17) ) 
compiled-branchl16 
(assign continue (label after-call15) ) 
(assign val (op compiled-procedure-entry) (reg proc) ) 
(goto (reg val) ) 
primitive-branchl17 
(assign val (op apply-primitive-procedure) 
(reg proc) 
(reg argl) ) 
after-call15 


真 分 支 就 是 常数 1， 它 将 被 编译 为 (用 目标 val 和 连接 return) 
(assign val (const 1)) 


(goto (reg continue)) 
相对 于 假 分 支 的 代码 是 另 一 个 过 程 调用 ， 其 中 的 过 程 是 符号 * 的 值 ， 参 数 是 n 和 另 一 过 程 调用 
的 结果 (这 里 又 是 一 个 对 factorial 的 调用 )。 这 些 调用 中 的 每 一 个 都 要 设置 proc 和 azg1， 
以 及 它们 的 基本 分 支 和 复合 分 支 。 图 5-17 显 示 的 是 factorial 过 程 的 定义 的 完整 编译 结果 。 
请 注意 ， 在 那里 围绕 着 谓词 的 ， 还 有 对 于 continue 和 env 的 save 和 restore， 它 们 都 被 实 
际 生成 出 来 了 ， 这 是 因为 在 谓词 里 的 过 程 调用 要 修改 这 些 寄存 器 ， 而 两 个 分 支 里 的 过 程 调 用 
和 return 连 接 都 还 需要 它们 。 





;; construct the procedure and skip over code for the procedure body 


(assign val 
(op make-compiled-procedure) (label entry2) (reg env) ) 
(goto (label after-lambdal) ) 


entry2 ; callsto factorial will enter here 
(assign env (op compiled-procedure-env) (reg proc) ) 
(assign env 
(op extend-environment) (const (n)) (reg argl) (reg env) ) 
;; begin actual procedure body 
(save continue) 


(save env) 


’; compute (= n 1) 





图 5-17 对 过 程 factorial 定 义 的 编译 结果 
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(const =) 








(assign proc (op lookup-variable-value) (reg env) ) 
(assign val (const 1)) 
(assign argl (op list) (reg val)) 
(assign val (op lookup-variable-value) (const n) (reg env) ) 
(assign argl (op cons) (reg val) (reg argl)) 
(test (op primitive-procedure?) (reg proc) ) 
(branch (label primitive-branch17) ) 
compiled-branchié 
(assign continue (label after-call115) ) 
(assign val (op compiled-procedure-entry) (reg proc) ) 
(goto (reg val)) 
primitive-branch17 


(assign val (op apply-primitive-procedure) (reg proc) (reg argl)) 


after-calli5 ; val now contains result of (= n 1) 
(restore env) 
(restore continue) 
(test (op false?) (reg val) ) 
(branch (label false-branch4) ) 
true-branch5 ; return! 
(assign val (const 1)) 


(goto (reg continue) ) 


false-branch4 

;; compute and return (* (factorial (- n 1)) n) | 
(assign proc (op lookup-variable-value) (const *) (reg env) ) 
(save continue) 





(save proc) ; save * procedure 
(assign val (op lookup-variable-value) (const n) (reg env) ) 
(assign argl (op list) (reg val) ) 


(save argl) ; save partial argument list for * 








3; compute (factorial 





(- n 1)), which is the other argument for * 
(assign proc 
(op lookup-variable-value) (const factorial) (reg env) ) 


(save proc) ; save factorial procedure 

















3; compute (- n 1), which is the argument for factorial 
(assign proc (op lookup-variable-value) (const -) (reg env) ) 
(assign val (const 1)) 
(assign argl (op list) (reg val)) 
(assign val (op lookup-variable-value) (const n) (reg env) ) 
(assign argl (op cons) (reg val) (reg argl) ) 
(test (op primitive-procedure?) (reg proc) ) 
(branch (label primitive-branchs) ) 
compiled-branch7 
(assign continue (label after-callé6) ) 
(assign val (op compiled-procedure-entry) (reg proc) ) 
(goto (reg val) ) 


Primitive-branch8 


图 5-17 ( 续 ) 
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(assign val 





(op apply-primitive-procedure) (reg proc) (reg argl) ) 


after-callé ; val now contains result of (- n 1) 


mi (assign argl (op list) (reg val) ) 


| 
| 
| 
| (restore proc) ; restore factorial 
| ;; apply factorial 
| (test (op primitive-procedure?) (reg proc) ) 
| (branch (label primitive-branch11) ) 
compiled-branch10 
(assign continue (label after-call9) ) 
(assign val (op compiled-procedure-entry) (reg proc) ) 
(goto (reg val)) 
primitive-branchll 


(assign val (op apply-primitive-procedure) (reg proc) (reg argl)) 


è after-call9 ; val now contains resultof (factorial (- n 1)) 
(restore argl) ; restore partial argument list for * 
(assign argl (op cons) (reg val) (reg argl) ) 
(restore proc) ; restore * 
(restore continue) 
;; apply * and return its value 
(test (op primitive-procedure?) (reg proc) ) 
(branch (label primitive-branchl14) ) 
compiled-branch13 
;; note that a compound procedure here is called tail-recursively 
(assign val (op compiled-procedure-entry) (reg proc) ) 
(goto (reg val) ) 
primitive-branchl14 


(assign val (op apply-primitive-procedure) (reg proc) (reg argl)) 










(goto (reg continue) ) 
after-call12 
after-if3 
after-lambdal 


;; assign the procedure to the variable factorial 





(perform 
(op define-variable!) (const factorial) (reg val) (reg env)) 
(assign val (const ok) ) 





图 5-17 (4) 


练习 5.33 考虑 下 面 这 个 阶乘 过 程 的 定义 ， 它 与 上 面 给 出 的 定义 略 有 不 同 : 
(define (factorial-alt n) 
(if (= n 1) 
A 
(* n (factorial-alt (= n 1))))) 


请 编译 这 个 过 程 ， 并 将 得 到 的 代码 与 factorial 的 代码 做 比较 。 请 解释 你 所 看 到 的 各 个 不 同 
之 处 。 在 这 两 个 程序 中 ， 会 不 会 有 一 个 比 另 一 个 更 高 效 ? 
练习 5.34 请 编译 下 面 的 迭代 型 阶乘 过 程 : 


(define (factorial n) 
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(define (iter product counter) 
(if (> counter n) 
product 
(iter (* counter product) 
(+ counter 1)))) 
(iter 1 1)) 


请 在 结果 代码 里 加 上 标注 ， 说 明 在 factorial 的 迭代 型 和 递归 型 版 本 的 代码 中 ， 存 在 着 哪些 
本 质 性 的 差异 ， 使 得 一 个 过 程 需要 不 断 使 用 堆栈 空间 ， 而 另 一 个 可 以 在 常量 空间 里 运行 。 
练习 5.35 编译 产生 出 图 5-18 所 示 代 码 的 表达 式 是 什么 ? 


(assign val (op make-compiled-procedure) (label entry16) 
(reg env) ) 
(goto (label after-lambdal5) ) 
entryl16 
(assign env (op compiled-procedure-env) (reg proc) ) 
(assign env 
(op extend-environment) (const (x)) (reg argl) (reg env) ) 
(assign proc (op lookup-variable-value) (const +) (reg env)) 
(save continue) 
(save proc) 
(save env) 
(assign proc (op lookup-variable-value) (const g) (reg env)) 
(save proc) 
(assign proc (op lookup-variable-value) (const +) (reg env) ) 
(assign val (const 2)) 
(assign argl (op list) (reg val)) 
(assign val (op lookup-variable-value) (const x) (reg env) ) 
(assign argl (op cons) (reg val) (reg argl)) 
(test (op primitive-procedure?) (reg proc) ) 
(branch (label primitive-branch19) ) 
compiled-branch18 
(assign continue (label after-calli7) ) 
(assign val (op compiled-procedure-entry) (reg proc) ) 
(goto (reg val) ) 
primitive-branchl19 
(assign val (op apply-primitive-procedure) (reg proc) (reg argl) ) 
after-call17 
(assign argl (op list) (reg val)) 
(restore proc) 
(test (op primitive-procedure?) (reg proc) ) 
(branch (label primitive-branch22) ) 
compiled-branch21 
(assign continue (label after-call20) ) 
(assign val (op compiled-procedure-entry) (reg proc) ) 
(goto (reg val)) 
primitive-branch22 


(assign val (op apply-primitive-procedure) (reg proc) (reg argl)) 





图 5-18 编译 器 输出 结果 一 个 实例 。 见 练习 5.35 
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after-call20 
(assign argl (op list) (reg val)) 
(restore env) 
(assign val (op lookup-variable-value) (const x) (reg env) ) 
(assign argl (op cons) (reg val) (reg argl)) 
(restore proc) 
(restore continue) 
(test (op primitive-procedure?) (reg proc) ) 
(branch (label primitive-branch25) ) 
compiled-branch24 
(assign val (op compiled-procedure-entry) (reg proc) ) 
(goto (reg val)) 
primitive-branch25 
(assign val (op apply-primitive-procedure) (reg proc) (reg argl)) 
(goto (reg continue) ) 
after-call23 
after-lambdal5 


(perform (op define-variable!) (const f) (reg val) (reg env)) 


(assign val (const ok) ) 





图 5-18 (8%) 


练习 5.36 ”在 我 们 的 编译 器 所 产生 的 代码 里 ， 对 于 组 合式 里 的 运算 对 象 的 求 值 顺序 是 什 
么 ?是 从 左 到 右 ， 是 从 右 到 左 ， 还 是 其 他 什么 顺序 ?这 一 编译 器 里 的 哪个 部 分 确定 了 这 一 顺 
序 ? 请 修改 编译 器 ， 使 之 能 产生 其 他 求 值 顺序 (参见 5.4.1 节 里 有 关 显 式 控制 求 值 器 里 求 值 顺 
序 的 讨论 )。 这 样 修改 了 运算 对 象 的 求 值 顺序 ， 会 改变 构造 参数 表 的 代码 的 效率 吗 ? 

练习 5.37 ”理解 编译 器 里 为 优化 堆栈 使 用 的 preserving 机 制 的 一 种 方式 ， 是 去 看 看 如 
果 不 采用 这 一 想法 ， 将 会 生成 出 多 少 额外 的 操作 。 请 修改 preserving， 使 它 总 是 生成 save 
和 restore 操 作 。 请 编译 一 些 简 单 的 表达 式 ， 并 标 出 这 样 生成 出 来 的 不 必要 的 堆栈 操作 。 将 
这 样 生 成 出 的 代码 与 采用 原来 的 preserving 机 制 生成 的 代码 做 比较 。 

练习 5.38 ”我 们 的 编译 器 在 避免 不 必要 的 堆栈 操作 方面 很 聪明 ， 但 是 当 它 遇 到 编译 对 于 
语言 中 的 基本 过 程 的 调用 ， 将 其 编译 为 机 器 提供 的 基本 操作 时 ， 就 表现 得 一 点 也 不 聪明 了 。 
举 个 例子 ， 让 我 们 考虑 一 下 对 计算 (+a 1) 的 编译 将 产生 多 少 代码 : 将 实 参 表 设 置 到 arg1 
的 代码 ， 将 基本 的 加 法 过 程 (是 通过 用 符号 十 在 环境 中 查找 而 得 到 的 ) 放 入 proc， 检 测 这 个 
过 程 是 基本 过 程 还 是 复合 过 程 。 编 译 器 总 是 要 生成 执行 这 种 检测 的 代码 ， 还 要 生成 构成 基本 
分 支 和 复合 分 支 的 代码 (只 有 其 中 之 一 会 执行 )。 我 们 还 没有 展示 控制 器 中 实现 基本 操作 的 那 
些 部 分 ,但 是 可 以 假定 ， 有 关 指 令 使 用 了 机 器 的 数据 通路 里 的 一 些 基本 算术 操作 。 请 考虑 一 
下 ， 如 果 编 译 器 可 以 将 基本 操作 做 成 开放 式 代 码 一 一 也 就 是 说 ， 如 果 它 能 生成 出 直接 使 用 这 





些 基本 机 器 操作 的 代码 一 一 产生 出 的 代码 将 会 有 多 么 少 。 表 达 式 (+a 1) 有 可 能 被 编译 为 某 
种 像 下 面 这 样 简单 的 东西 到: 

(assign val (op lookup-variable-value) (const a) (reg env) ) 

(assign val (op +) (reg val) (const 1)) 


s 我 们 在 这 里 用 同一 个 符号 十 指称 在 源 语言 里 的 过 程 和 机 器 操作 。 一 般 而 言 ， 在 源 语言 的 基本 过 程 和 机 器 的 基 
本 操作 之 间 并 没有 一 一 对 应 关系 。 
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在 这 个 练习 里 ， 我 们 要 扩充 自己 的 编译 器 ， 以 支持 对 特别 选 出 的 一 些 基 本 操作 的 开放 代 
码 。 对 于 这 些 基 本 过 程 调用 , 我 们 要 生成 专门 用 途 的 代码 , 而 不 是 生成 通用 的 过 程 应 用 代码 。 
为 了 支持 这 种 功能 ， 我 们 将 假定 所 用 的 机 器 有 两 个 特殊 的 参数 寄存 器 arg1 和 arg2 ， 机 器 
的 所 有 基本 算术 操作 都 从 argl 和 arg2 取 得 它们 的 输入 ， 结 果 将 存 和 里 val、arg1l 或 者 
arg2, 

编译 器 必须 能 在 源 程序 里 识别 出 开放 代码 基本 操作 的 应 用 。 我 们 将 为 此 扩充 compile 过 
程 里 的 分 派 ， 除 了 在 那里 完成 它 目前 已 经 能 识别 的 保留 字 (特殊 形式 ) 外 ， 让 它 还 能 够 识别 
这 些 基 本 操作 的 名 字 »*。 对 于 每 个 特殊 形式 ， 我 们 的 编译 器 都 有 一 个 代码 生成 器 。 在 这 个 练 
习 里 ， 我 们 也 为 开放 代码 基本 操作 构造 起 一 组 代码 生成 器 。 

a) 开放 代码 基本 操作 与 特殊 形式 不 同 ， 它 们 都 要 求 自己 的 参数 被 求 值 。 请 写 出 一 个 代码 
生成 器 spread-arguments 用 于 所 有 的 开放 代码 生成 器 。spread-arguments 应 该 以 一 个 
运算 对 象 表 为 参数 ， 以 参数 寄存 器 为 目标 ， 按 顺序 编译 给 定 的 运算 对 象 。 注 意 ， 一 个 运算 对 
象 里 还 可 能 包含 对 开放 代码 基本 操作 的 另 一 个 调用 ， 因 此 在 求 值 运算 对 象 时 ， 参 数 寄存 器 也 
必须 保存 起 来 。 

b) 请 为 基本 过 程 =、*、 一 和 十 各 写 出 一 个 代码 生成 器 ， 它 们 都 以 一 个 具有 这 个 运算 符 的 
组 合式 ， 一 个 目标 和 一 个 连接 描述 符 作 为 参数 ， 生 成 的 代码 将 实际 参数 传 到 寄存 器 里 ， 而 后 
以 指定 目标 和 给 定 连 接 执行 相应 的 操作 。 你 可 以 只 处 理 两 个 运算 对 象 的 表达 式 。 请 让 
compile 能 够 分 派 到 这 些 代码 生成 器 。 

c) 对 上 面 的 factorial 实 例 试验 你 的 新 编译 器 ， 将 结果 代码 与 没有 开放 代码 时 生成 的 代 
码 比 较 一 下 。 

d) 扩充 你 为 + 和 * 开发 的 代码 生成 器 ， 使 它们 能 够 处 理 具 有 任意 多 个 运算 对 象 的 表达 式 。 
对 多 于 两 个 运算 对 象 的 表达 式 ， 应 该 编译 为 一 系列 的 运算 ， 每 次 处 理 两 个 输入 。 


5.5.6 词法 地 址 


编译 器 执行 的 最 重要 优化 之 一 是 优化 变量 查找 操作 。 对 于 我 们 编译 器 至 今 的 实现 ， 所 生 
成 的 代码 里 一 直 使 用 求 值 器 机 器 里 的 lookup-variable-value 操 作 。 这 个 操作 查找 变量 
的 方式 就 是 在 运行 环境 里 的 一 个 个 框架 中 做 查找 ， 与 那里 当前 有 约束 的 变量 比较 。 如 果 框 架 
嵌 套 很 深 ， 或 者 存在 的 变量 很 多 ， 这 种 查找 的 代价 就 非常 高 。 举 个 例子 ， 考 虑 在 某 个 过 程 应 
用 里 对 表达 式 (* x y z) 求 值 时 查找 变量 值 的 情况 ， 该 过 程 由 下 面 的 表达 式 返 回 : 

(let ((x 3) (y 4)) 

(lambda (a b c d e) 
(let ((y (* a b x)) 
(z (+ @ d x))) 
(* x y z)))) 
因为 let 表 达 式 不 过 是 lambda 组 合式 的 语法 包装 ， 这 个 表达 式 等 价 于 : 
((lambda (x y) 
(lambda (a b c d e) 


2 一 般 而 言 ， 将 基本 操作 作为 保留 字 并 不 是 一 种 好 想法 ， 因 为 这 样 用 户 就 不 能 将 这 些 名 字 重 新 约束 到 其 他 过 程 
了 。 进 一 步 说， 如 果 我 们 给 一 个 已 经 在 使 用 的 编译 器 增加 新 的 保留 字 ， 一 些 现存 的 程序 里 如 果 定义 了 采用 这 
些 名 字 的 过 程 ， 现 在 就 不 能 工作 了 。 参 见 练习 5.44 有 关 如 何 避 免 这 种 情况 的 一 些 想法 。 
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( (lambda (y z) (* x y 2z)) 
(* a b x) 
(+ c d x)))) 
3 
4) 
每 次 当 lookup-variable-value 去 查找 x 时 ， 它 都 需要 确定 符号 x 并 不 与 y 或 者 z 相 等 (用 
eq?， 在 第 一 个 框架 里 )， 也 不 同 于 a、b、c、d 或 者 e (在 第 二 个 框架 里 )。 目 前 我 们 假定 这 
个 程序 里 没有 使 用 define 一 一 这 样 就 只 有 lambda 建 立 变量 约束 。 因 为 我 们 的 语言 采用 的 是 
词法 作用 域 规则 ， 任 何 表达 式 的 运行 时 环境 所 具有 的 结构 ， 与 该 表达 式 出 现 所 在 的 程序 词法 
结构 是 平行 的 ””。 这 样 ， 在 编译 器 分 析 上 述 表 达 式 时 ， 它 完全 可 以 弄 清 楚 ， 每 次 过 程 应 用 时 ， 
表达 式 (* x y z) 里 的 变量 x 总 是 在 当前 框架 外 面 的 第 二 个 框架 里 找到 ， 而 且 将 出 现在 那 
个 框架 里 的 第 二 个 位 置 。 
我 们 可 以 利用 这 一 事实 ,发 明 一 种 新 的 变量 查找 操作 lexical-address-lookup。 这 
一 操作 以 一 个 环境 和 一 个 词法 地 址 作为 参数 。 这 种 词法 地 址 由 两 个 数组 成 : 一 个 是 框架 号 ， 
它 描述 了 需要 跳 过 多 少 框架 ， 另 一 个 是 移 位 数 ， 它 描述 了 在 这 个 框架 里 应 该 跳 过 多 少 变量 。 
过 程 1lexical-address-1lookup 将 相对 于 当前 环境 ， 产 生出 保存 在 给 定 词法 地 址 处 的 变量 
的 值 。 如 果 把 lexical-address-1lookup 操 作 加 进 前 面 开发 的 机 器 ， 我们 就 可 以 在 编译 生 
成 的 代码 里 使 用 这 个 操作 引用 变量 ， 而 不 再 用 lookup-variable-value。 与 此 类 似 ,还 
可 以 用 一 个 新 的 操作 lexical-address-set!，, 而 不 用 set-variable-value!。 
为 了 生成 这 种 代码 ， 当 编译 器 需要 去 编译 一 个 变量 引用 时 ， 它 就 必须 能 确定 该 变量 的 词 
法 地 址 。 变 量 在 一 个 程序 里 的 词法 地 址 依赖 于 具体 变量 在 代码 里 出 现 的 位 置 。 举 例 说 ,在 下 
面 的 程序 里 ， 在 表达 式 <e1> 里 变量 x 的 地 址 是 (2, 0) 向 后 第 二 个 框架 里 的 最 前 面 一 个 变 
量 。 在 这 一 点 上 y 的 地 址 是 (0, 0) ，c 的 地 址 是 (1, 2) 。 在 表达 式 <e2> 里 ， 变 量 x 的 地 址 是 
(1, 0) ，y 的 地 址 是 (1,1), ，c 的 地 址 是 (0, 2) 。 
((lambda (x y) 
(lambda (a b cd e) 
((lambda (y z) <el>) 


<e2> 
(+ c d x)))) 





4) 


要 想 使 编译 器 能 够 生成 出 使 用 词法 地 址 的 代码 ， 一 种 方法 就 是 维持 一 个 称 为 编译 时 环境 
的 数据 结构 ， 在 这 个 结构 里 保存 各 种 变化 的 轨迹 ， 说 明 在 程序 执行 到 特定 的 变量 访问 操作 时 ， 
各 个 变量 将 出 现在 运行 环境 的 哪个 框架 里 的 哪个 位 置 上 。 这 种 编译 时 环境 也 是 框架 的 一 个 表 ， 
每 个 框架 包含 了 一 个 变量 的 表 (在 这 里 当然 没有 约束 于 变量 的 值 ， 因 为 编译 时 不 可 能 计算 出 
这 种 值 ) 。 把 这 种 编译 时 环境 作为 compile 的 另 一 个 参数 ， 与 原 有 参数 一 起 传送 给 各 个 代码 
生成 器 。 对 于 compile 的 最 高 层 调 用 ， 我 们 应 采用 一 个 空 的 编译 时 环境 。 在 编译 lambda 体 
时 ，compile-lambda-body 会 用 一 个 包含 着 该 过 程 的 所 有 变量 的 框架 扩充 当时 的 编译 时 环 


如果 我 们 允许 内 部 定义 ， 这 一 说 法 就 不 成 立 了 ， 除 非 我 们 通过 扫描 将 它们 移出 去 ， 见 练习 5.43。 
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境 ， 构 成 lambda 体 的 表达 式 序列 将 在 这 一 扩充 后 的 环境 里 编译 。 在 编译 过 程 中 的 每 一 点 ， 
compile-variable 和 compile-assignment 都 使 用 这 个 编译 时 环境 ， 生 成 出 合适 的 词 
法 地 址 。 

上 面 是 这 一 词法 地 址 策略 的 概要 ， 练 习 5.39 到 5.43 描 述 了 如 何 完成 这 一 策略 ， 以 便 将 词法 
查找 结合 到 我 们 的 编译 器 里 。 练 习 5.44 描 述 了 编译 时 环境 的 另 一 个 用 途 。 

练习 5.39 ”请 写 出 一 个 过 程 1lexical-address-1ookup 实 现 这 种 新 的 查找 操作 。 这 个 
过 程 应 该 有 两 个 参数 一 一 一 个 词法 地 址 和 一 个 运行 时 环境 ， 它 返回 保存 在 特定 词法 地 址 的 变 
量 的 值 。 如 果 变 量 的 值 是 :unassigned*、lexical-address-lookup 应 该 发 出 一 个 错 
误 信号 ”。 请 再 写 一 个 过 程 lexical-address-set!， 实 现 修改 位 于 特定 词法 地 址 的 变量 
值 的 操作 。 

练习 5.40 ”请 修改 编译 器 ， 使 之 能 维护 好 如 上 所 述 的 编译 时 环境 。 这 时 需要 给 compile 
和 各 种 代码 生成 器 增加 一 个 编译 时 环境 参数 ， 还 要 在 compile-lambda-body 里 扩充 它 。 

练习 5.41 请 写 一 个 过 程 find-variable， 它 以 一 个 变量 和 一 个 编译 时 环境 为 参数 ， 
返回 该 变量 相对 于 该 运行 时 环境 的 词法 地 址 。 举 例 说 ， 在 上 面 所 示 的 程序 片段 里 ， 编 译 表 
达 式 <e1 > 期间 的 编译 时 环境 是 ((y z) (a b c d e) (x y))。find-variable 应 该 
产生 : 


(find-variable 'c '((y z) (abcde) (x y))) 
Vy 2) 
(find-variable x *((y z) (abcde) (x y))) 
(2 0) 
(find-variable ‘w *((y z) (abcde) (x y))) 


not-found 

练习 5.42 请 利用 练习 5.41 的 find-variable 重 写 compile-variable 和 compile- 
assignment， 产 生出 采用 词法 地 址 的 指令 。 对 于 find-variable 返 回 not-found 的 情况 
(也 就 是 说 ， 该 变量 不 在 编译 时 环境 里 )， 你 就 应 该 让 代码 生成 器 像 以 前 一 样 使 用 求 值 器 ， 去 
进一步 查找 它 的 约束 (在 编译 时 无 法 找到 的 变量 只 能 出 现在 全 局 环境 里 。 全 局 环境 是 运行 时 
环境 的 一 部 分 ， 但 它 不 是 编译 时 环境 的 一 部 分 。 这 也 就 是 说 ， 如 果 你 希望 的 话 ， 完 全 可 以 
让 求 值 器 操作 直接 到 全 局 环境 里 去 查找 ， 而 无 须 先 搜索 完 从 env 里 得 到 的 整个 运行 时 环境 。 
全 局 环境 可 以 通过 操作 (op get-global-environment) 得 到 )。 用 几 个 简单 实例 测试 
这 一 修改 后 的 编译 器 ， 例 如 用 本 节 开 始 给 出 的 嵌 套 lambda 组 合式 。 

练习 5.43 我 们 在 4.1.6 节 说 过 , 块 结构 的 内 部 定义 不 能 认为 是 “真正 的 ”define。 相 反 ， 
在 解释 一 个 过 程 体 时 ， 应 该 将 其 中 的 内 部 变量 看 成 就 像 是 作为 常规 的 lambda 变 量 定义 ， 而 后 
又 通过 使 用 set ! ， 为 它们 的 正确 初始 化 值 。4.1.6 节 和 练习 4.16 说 明了 如 何 修改 元 循环 解释 器 ， 
通过 将 内 部 定义 扫描 出 来 而 完成 这 件 事 。 请 修改 这 里 的 编译 器 ， 在 它 编译 过 程 体 之 前 执行 同 


1! 如果 我 们 实现 通过 扫描 的 方式 消除 内 部 定义 ， 变 量 查 找 操作 也 需要 做 这 种 修改 ( 见 练习 5.43)。 为 了 使 词法 作 
用 域 能 够 工作 ， 我 们 就 需要 消除 这 种 定义 。 

2 词法 地 址 不 能 用 于 访问 全 局 环境 里 的 变量 ， 因 为 这 些 变量 可 以 在 任何 时 候 定义 或 者 重新 定义 。 有 了 如 练习 
5.43 所 说 的 内 部 定义 扫描 功能 ， 编 译 器 看 到 的 所 有 定义 都 在 顶层 ， 都 在 全 局 环境 里 活动 。 对 一 个 定义 的 编译 
并 不 会 导致 被 定义 的 名 字 进 入 编译 时 环境 。 
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练习 5.44 ”在 这 一 节 里， 我 们 将 注意 力 集中 在 如 何 使 用 编译 时 环境 生成 词法 地 址 的 问题 
上 。 实 际 上 ， 编 译 时 环境 还 有 其 他 用 途 。 举 例 来 说 ， 在 练习 5.38 里 ， 我 们 通过 基本 过 程 开放 
代码 的 方式 提高 编译 后 代码 的 效率 。 在 相关 的 实现 中 ， 我 们 把 开放 代码 过 程 的 名 字 当 作 保 留 
字 看 待 。 如 果 程 序 里 对 这 一 名 字 做 了 重新 约束 ， 练 习 5.38 里 描述 的 机 制 将 仍然 会 把 它 作为 基 
本 过 程 ， 开 放 其 代码 ， 从 而 忽略 新 的 约束 。 作 为 例子 ， 请 考虑 下 面 过 程 : 

(lambda (+ * a bx y) 

(+ (* a x) (* b y))) 

它 计 算 x 和 y 的 线性 组 合 。 我 们 可 能 用 参数 +matrix、*matrix 以 及 4 个 矩阵 来 调用 这 个 函数 ， 
但 是 开放 代码 编译 器 还 是 会 将 (+ (* a x) (* b y)) 里 的 + 和 * 当 作 基 本 过 程 ， 去 开放 
+ 和 * 的 代码 。 请 修改 开放 代码 编译 器 ， 让 它 去 查询 编译 时 环境 。 使 它 在 遇 到 涉及 基本 过 程 
名 的 表达 式 时 都 能 编译 出 正确 的 代码 。( 使 这 些 代码 都 能 正确 工作 ， 只 要 程序 里 不 对 这 些 名 字 
define 或 者 set ! 做 定义 或 赋值 .) 


5.5.7 编译 代码 与 求 值 器 的 互 连 


我 们 至 今 还 没有 解释 如 何 将 编译 得 到 的 代码 装 入 求 值 器 ， 也 没有 讨论 怎样 去 运行 它们 。 
现在 我 们 假设 显 式 控制 求 值 器 已 经 像 在 5.4.4 节 那样 定义 好 了 ， 其 中 还 包括 了 脚注 323 里 描述 的 
那些 操作 。 下 面 要 实现 一 个 过 程 compile-and-go， 它 编译 一 个 Scheme 表达 式 ， 将 目标 代 
码 装 入 这 部 求 值 器 机 器 ， 并 启动 该 机 器 ， 使 之 在 求 值 器 的 全 局 环境 里 运行 这 一 代码 ， 打 印 其 
结果 ， 而 后 进入 求 值 器 的 驱动 循环 。 我 们 还 要 修改 这 一 求 值 器 ， 使 解释 性 的 表达 式 除 了 能 调 
用 其 他 编译 代码 外 ， 也 能 调用 编译 后 的 过 程 。 在 此 之 后 ， 我 们 就 可 以 将 编译 后 的 过 程 放 进 机 
器 ， 并 用 求 值 器 去 调用 它们 了 : 

(compile-and-go 

"(define (factorial n) 

(if (=n 1) 
1 
(+ (factorial (= n 1)) n)))) 
777 EC-Eval value: 
ok 


i77 EC-Eval input: 
(factorial 5) 

777 EC-Eval value: 
120 


为 了 使 求 值 器 能 处 理 编译 后 的 过 程 (例如 ， 求 值 上 面 对 factorial 的 调用 )， 我 们 需要 
修改 位 于 apply-dispatch 的 代码 ( 见 5.4.1 市 )， 使 它 能 识别 编译 后 的 过 程 〈 与 基本 过 程 和 
复合 过 程 都 不 同 )， 并 将 控制 直接 传 到 编译 后 代码 的 入 口 点 ”: 

apply-dispatch 

(test (op primitive-procedure?) (reg proc)) 
(branch (label primitive-apply)) 


2 当然， 编译 性 过 程 和 解释 性 过 程 一 样 ， 都 是 复合 过 程 (不 是 基本 过 程 )。 为 了 与 显 式 控制 求 值 器 所 用 的 术语 
保持 一 致 ， 在 这 一 节 里 ， 我 们 将 用 “复合 过 程 ” 专 指 解释 性 过 程 〈 与 编译 性 过 程 相 对 应 ) 。 
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(test (op compound-procedure?) (reg proc) ) 
(branch (label compound-app1y) ) 

(test (op compiled-procedure?) (reg proc) ) 
(branch (label compiled-apply) ) 

(goto (label unknown-procedure-type) ) 


compiled-apply 
(restore continue) 
(assign val (op compiled-procedure-entry) (reg proc) ) 


(goto (reg val)) 


请 注意 ， 在 compiled-apply 处 需要 恢复 continue。 请 回忆 一 下 求 值 器 里 各 方面 安排 的 情 
况 ， 在 apply-dispatch 处 ,继续 点 位 于 堆栈 顶 。 而 在 另 一 边 ， 编 译 代码 的 入 口 点 却 期 望 继 
续 点 在 continue 里 。 因 此 ， 在 编译 代码 执行 之 前 必须 恢复 cont inue。 

为 使 我 们 能 在 启动 求 值 器 机 器 时 运行 一 些 编译 代码 ， 我 们 在 求 值 器 机 器 的 开始 处 增加 一 
条 branch 指 令 ， 如 果 寄 存 器 E1ag 被 设置 ， 它 就 要 求 这 一 机 器 转向 一 个 新 的 入 口 点 34。 


(branch (label external-entry) ) ; branches if flag is set 
read-eval-print-loop 
(perform (op initialize-stack) ) 


external-entry 入 口 假定 在 这 一 机 器 启动 时 ，val 里 包含 着 一 个 指令 序列 的 位 置 ， 该 指令 
序列 将 结果 放 在 val 里 并 以 (goto (reg continue)) 结束 。 从 这 一 入 口 点 启动 ， 执 行 过 
程 就 会 跳 到 由 val 指 定 的 位 置 ， 但 会 首先 设置 cont inue 使 执行 还 能 转 回 print-result。 
这 将 使 ral 里 的 值 被 打印 出 来 ， 而 后 转 到 求 值 器 的 读 入 一 求 值 一 打印 循环 的 开始 位 置 35。 


external-entry 
(perform (op initialize-stack)) 
(assign env (op get-global-environment)) 
(assign continue (label print-result)) 


(goto (reg val)) 


2 现在 这 一 求 值 器 机 器 开始 处 就 是 一 条 branch 指 令 ， 我 们 在 启动 求 值 器 机 器 之 前 必须 初始 化 ELag 寄 存 器 。 为 
了 能 在 常规 的 读 入 一 求 值 一 打印 循环 中 启动 这 一 机 器 ， 我们 可 以 用 : 


(define (start-eceval) 
(set! the-global-environment (setup-environment)) 
(set-register-contents! eceval “flag false) 


(start eceval) ) 


3 因为 编译 后 的 过 程 是 一 个 对 象 ， 系 统 也 可 能 会 试 着 去 打印 它 ， 因 此 ， 我 们 还 要 修改 系统 的 打印 操作 usez- 
print (参见 4.1.4 节 )， 使 它 不 企图 去 打印 编译 后 的 过 程 里 的 各 个 成 分 。 


(define (user-print object) 
(cond ((compound-procedure? object) 

(display (list “compound-procedure 
(procedure-parameters object) 
(procedure-body object) 
’<procedure-env>) ) ) 

((compiled-procedure? object) 

(display ‘<compiled-procedure>) ) 

(else (display object)))) 


5.5 多 译 427 


现在 ， 我 们 已 经 可 以 用 下 面 过 程 来 编译 过 程 定义 ， 执 行 编译 后 的 代码 ， 然 后 运行 读 入 一 
求 值 一 打印 循环 ， 这 就 使 我 们 能 够 试验 这 个 过 程 。 因 为 我 们 希望 编译 后 的 代码 能 返回 到 
continue 里 的 地 址 ， 并 在 val 里 存放 好 结果 ， 我 们 应 该 用 目标 val 和 连接 return 去 编译 表 
达 式 。 为 了 将 编译 器 生成 的 目标 代码 转换 到 求 值 器 寄存 器 机 器 的 可 执行 指令 ， 我 们 使 用 来 自 
寄存 器 机 器 模拟 器 的 过 程 assemble ( 见 5.2.2 节 )。 而 后 我 们 设置 val 寄 存 器 ， 使 之 指向 指令 
的 表 ， 设 置 f1ag 使 求 值 器 转向 入 口 点 external-entry， 并 启动 求 值 器 。 


(define (compile-and-go expression) 
(let ((instructions 
(assemble (statements 
(compile expression ‘val ’return) ) 
eceval))) 

(set! the-global-environment (setup-environment) ) 

(set-register-contents! eceval ’val instructions) 

(set-register-contents! eceval ’flag true) 


(start eceval))) 


如 果 我 们 设置 了 堆栈 监视 器 〈 像 5.4.4 节 最 后 所 说 的 那样 ) ， 那 么 就 可 以 检测 编译 代码 的 堆 
栈 使 用 情况 了 : 
(compile-and-go 
‘(define (factorial n) 
(if (= n 1) 
ni 
(* (factorial (- n 1)) n)))) 


(total-pushes = 0 maximum-depth = 0) 
;;; EC-Eval value: 
ok 


77? EC-Eval input: 
(factorial 5) 
(total-pushes = 31 maximum-depth = 14) 
777 EC-Eval value: 
120 


请 将 这 个 例子 与 对 同一 过 程 的 解释 性 版 本 的 求 值 (factorial 5) 的 情况 比较 一 下 
(5.4.4 刷 的 最 后 介绍 过 )。 解 释 性 版 本 需要 144 次 压 栈 操作 ， 最 大 堆栈 深度 为 28。 这 也 显示 出 我 
们 从 编译 策略 中 得 到 的 优化 。 


解释 和 编译 

有 了 这 市 开发 的 程序 ， 我们 现在 就 可 以 对 解释 和 编译 的 不 同 策略 做 各 种 试验 了 3%。 解 释 
器 将 所 用 的 机 器 提升 到 用 户 程 序 层面 上 ; 而 编译 器 将 用 户 程 序 降低 到 机 器 语言 的 层面 上 。 我 
们 可 以 认为 Scheme 语 言 (或 者 任何 程序 设计 语言 ) 是 意 立 在 机 器 语言 之 上 的 一 族 有 内 聚 力 的 
抽象 。 解 释 器 对 于 交互 式 的 程序 开发 和 排 错 是 非常 好 的 ， 因 为 程序 执行 的 各 个 步骤 都 以 这 些 
抽象 的 方式 组 织 起 来 了 ， 因 此 更 容易 被 程序 员 理 解 。 编 译 后 的 代码 执行 得 更 快 ， 因 为 程序 执 


86 我们 还 可 以 做 得 更 好 一 些 ， 可 以 扩充 编译 器 ， 人 允许 编译 代码 去 调用 解释 性 过 程 ， 见 练习 5.47。 
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行 步 又 在 机 器 语言 层面 上 ， 编 译 器 也 可 以 自由 去 地 做 各 种 跨越 高 层 抽象 的 优化 3。 

解释 和 编译 之 间 的 相互 替代 关系 还 引出 了 将 一 种 语言 移植 到 新 计算 机 的 不 同 策略 。 假 定 
我 们 希望 在 一 种 新 机 器 上 实现 Lisp。 一 种 策略 是 从 5.4 节 的 显 式 控制 求 值 器 出 发 ， 将 其 中 的 指 
令 一 条 一 条 翻译 到 新 的 机 器 。 另 一 种 不 同 的 策略 是 从 编译 器 出 发 ， 修 改 其 中 的 代码 生成 器 ， 
使 它们 能 为 这 种 新 计算 机 生成 代码 。 第 二 种 策略 使 我 们 可 以 在 这 种 新 机 器 上 运行 任何 Lisp 程 
序 ， 方 式 是 先 用 我 们 原 有 的 Lisp 机 器 上 的 编译 器 去 编译 它 ， 并 将 它 与 有 关 运行 库 的 编译 后 的 
版 本 连接 *»。 事 情 还 可 以 做 得 更 好 ， 我 们 可 以 去 编译 这 个 编译 器 本 身 ， 并 在 新 机 器 上 运行 这 
一 编译 结果 ， 去 编译 其 他 的 Lisp 程 序 ”。 或 者 我 们 可 以 去 编译 4.1 节 里 的 一 个 解释 器 ， 生 成 出 
一 个 可 以 在 这 一 新 机 器 上 运行 的 解释 器 。 

练习 5.45 ”通过 比较 完成 同样 计算 的 编译 后 代码 所 用 的 堆栈 操作 ， 和 求 值 器 所 用 的 堆栈 
操作 ， 我 们 可 以 确定 编译 器 对 于 堆栈 使 用 的 优化 程度 ， 包 括 在 速度 上 的 (减少 了 堆栈 操作 的 
总 次 数 ) 和 空间 上 的 ( 减 小 了 堆栈 的 最 大 深度 )。 将 这 一 优化 后 的 堆栈 使 用 情况 与 某 台 专用 计 
算 机 对 于 同样 计算 的 执行 情况 做 些 比较 ， 可 以 为 判断 编译 器 的 质量 提供 一 些 标准 。 

a) 练习 5.27 要 求 你 去 确定 使 用 那里 给 出 的 阶乘 函数 计算 n! 时 ， 求 值 器 所 需 的 压 栈 次 数 和 最 
大 堆栈 深度 (作为 n 的 函数 )。 练 习 5.14 要 求 你 对 于 图 5-11 所 示 的 专用 阶乘 机 器 完成 同样 的 度量 
工作 。 现 在 请 对 编译 后 的 factorial 过 程 做 同样 的 分 析 。 

算出 编译 后 过 程 版 本 的 压 栈 次 数 与 解释 版 本 的 压 栈 次 数 之 比率 ， 对 最 大 堆栈 深度 做 同样 
计算 。 因 为 计算 n! 所 用 的 操作 次 数 和 堆栈 深度 都 是 的 线性 函数 ， 因 此 ， 这 些 比率 在 n 变 大 的 
过 程 中 应 趋 于 常数 。 这 些 常数 是 什么 ?类似 地 ， 请 找 出 专用 机 器 里 的 堆栈 使 用 情况 与 解释 版 
本 中 使 用 情况 的 比率 。 

请 比较 专用 机 器 与 解释 性 代码 的 比率 和 编译 与 解释 代码 的 比率 。 你 应 该 看 到 ， 专 用 机 器 
的 工作 情况 远 远 优 于 编译 代码 ， 因 为 手工 打造 的 控制 器 代码 应 该 比 我 们 这 个 初步 的 通用 编译 
器 生成 的 代码 好 许多 。 

b) 你 能 对 编译 器 提出 一 些 修 改建 议 ， 使 它 生成 的 代码 更 接近 手工 版 本 的 性 能 吗 ? 

练习 5.46 请 像 练 习 5.45 那 样 做 一 些 分 析 ， 确 定编 译 下 面 树 型 递归 的 斐 波 那 契 过 程 的 效率 : 


937 如 果 我 们 强制 性 地 要 求 在 用 户 程序 里 遇 到 的 错误 都 需要 检查 并 报告 ， 而 不 允许 强行 终止 系统 或 者 产生 错误 的 
结果 ， 那 么 就 会 带 来 很 大 的 开销 ， 与 实际 的 执行 策略 无 关 。 举 个 例子 ， 数 组 的 越界 引用 可 以 通过 在 执行 前 检 
查 引 用 合法 性 的 方式 查 出 。 但 是 这 一 检查 的 开销 可 能 是 数组 应 用 本 身 开销 的 许多 倍 ， 因 此 程序 员 需 要 在 速度 
与 安全 性 之 间 做 权衡 ， 确 定 是 否 进行 这 种 检查 。 一 个 好 的 编译 器 应 该 可 以 产生 出 做 这 种 检查 的 代码 ， 也 应 该 
避免 多 余 的 检查 ， 并 且 应 该 允许 程序 员 去 控制 在 编译 代码 中 错误 检查 的 范围 和 种 类 。 

流行 语言 (例如 C 和 C++ + +) 的 编译 器 通常 都 不 将 错误 检查 代码 放 入 运行 代码 里 ， 以 便 使 程序 尽 可 能 快 
速 。 作 为 这 样 做 的 一 个 结果 ， 它 实际 上 将 显 式 提供 错误 检查 的 问题 交 给 程序 员 处 理 。 不 幸 的 是 ， 人 们 常常 因 
为 玻 忽而 没有 去 做 ， 甚 至 在 某 些 关键 应 用 中 ， 在 那里 速度 原本 并 不 是 问题 。 他 们 的 程序 导致 一 种 快速 和 危险 
的 生活 。 举 个 例子 ， 在 1988 年 使 Internet 竣 痪 的 臭名 昭著 的 “蠕虫 ”揭示 了 UNIX 操 作 系 统 里 的 一 个 错误 ， 因 
为 那里 的 探 询 守护 程序 里 没有 检查 输入 缓冲 区 溢出 (参见 Spafford 1989) , 

3 当然 ， 无 论 采 用 编译 策略 还 是 解释 策略 ， 我 们 都 必须 为 新 机 器 实现 存储 分 配 、 输 入 输出 ， 以 及 我 们 在 讨论 求 
值 器 和 编译 器 时 作为 “基本 操作 ”的 那些 五 彩 缤纷 的 操作 。 减 少 这 方面 工作 量 的 一 种 策略 是 尽 可 能 多 地 在 
Lisp 里 写 出 这 些 操作 ， 而 后 针对 新 机 器 编译 它们 。 最 后 ， 所 有 的 东西 都 归结 到 一 个 很 小 的 内 核 (例如 废料 收 
集 和 实际 的 基本 机 器 操作 的 应 用 )， 这 些 必须 专门 为 新 机 器 硬性 编 出 代码 。 

3 这 一 策略 产生 出 一 种 对 编译 器 本 身 的 非常 有 趣 的 测试 ， 例 如 ， 在 这 一 新 机 器 上 ， 用 通过 编译 产生 的 编译 器 去 
编译 一 个 程序 ， 检 查 这 样 得 到 的 结果 是 否 与 原来 的 Lisp 系 统 编译 这 一 程序 的 结果 相同 。 追 踪 差 异 的 根源 常常 
很 有 趣 ， 但 也 累 人 ， 因 为 得 到 的 结果 常常 源 自 一 些 细微 的 问题 。 
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(define (fib n) 
(rE {< m 2) 
n 
(+ (fib (= n 2)) (fib t= n 2))))) 


请 将 这 一 情况 与 图 5-12 里 的 专用 斐 波 那 契 机 器 的 效率 比较 (有 关 解 释 性 代码 的 性 能 度量 ， 请 
参见 练习 5.29) 。 对 于 斐 波 那 契 过 程 ， 所 用 的 时 间 资 源 并 不 是 z 的 线性 函数 ， 因 此 堆栈 操作 的 
比率 将 不 会 趋 近 某 个 与 4 无 关 的 极限 值 。 

练习 5.47 ”本 节 描 述 了 如 何 修改 显 式 控制 求 值 器 ， 使 解释 性 代码 可 以 调用 编译 后 的 过 程 。 
请 说 明 如 何 修改 编译 器 ， 使 编译 后 的 代码 不 但 能 调用 基本 过 程 和 编译 后 的 过 程 ， 还 能 调用 解 
释 性 过 程 。 为 此 我 们 就 需要 修改 compile-procedure-call, 使 之 能 够 处 理 复合 的 (解释 ) 
过 程 。 请 设法 确保 能 像 在 compile-proc-appl 里 那样 处 理 所 有 相同 的 target 和 1inkage 
组 合式 。 在 做 实际 的 过 程 应 用 时 ， 代 码 需 要 跳 到 求 值 器 的 compound-apply 入 口 点 。 这 一 入 
口 点 不 能 直接 在 目标 代码 里 引用 (因为 汇编 程序 要 求 它 所 汇编 的 所 有 被 引用 标号 都 已 经 定义 
好 )， 因 此 我 们 将 为 求 值 器 机 器 增加 一 个 称 为 compapp 的 寄存 器 ， 掌 握 住 这 一 入 口 点 ， 并 加 
入 下 面 指 令 去 初始 化 它 : 

(assign compapp (label compound-apply)) 


(branch (label external-entry) ) ; branches if flag is set 
read-eval-print-loop 


为 了 测试 你 的 代码 ， 开 始 请 定义 一 个 过 程 £， 它 调用 另 一 个 过 程 g。 用 compile-and-go 编 
译 好 EfE 的 定义 后 启动 求 值 器 。 现 在 为 求 值 器 输入 g 的 定义 ， 而 后 试 试 去 调用 f£。 
练习 5.48 ”本 节 中 实现 的 compile-and-go 界 面 还 是 非常 麻烦 的 ， 因 为 其 中 只 能 调用 编 
译 器 一 次 (在 求 值 器 机 器 启动 时 )。 请 扩大 这 一 编译 器 一 解释 器 界面 ， 提 供 一 个 compile- 
and-run 基 本 过 程 ， 使 人 可 以 采用 如 下 方式 在 显 式 控 制 求 值 器 里 调用 它 : 
;;; EC-Eval input: 
(compile-and-run 
"(define (factorial n) 
(LE (= Bh. Ly 
工 
(œ (factorial (= n 1)) n)))) 
;;; EC-Eval value: 
ok 
;;; EC-Eval input: 
(factorial 5) 
777 EC-Eval value: 
120 


练习 5.49 ”作为 替代 使 用 显 式 控制 求 值 器 的 读 入 一 求 值 一 打印 循环 的 另 一 种 方式 ， 请 设 
计 一 部 寄存 器 机 器 ， 让 它 执 行 一 个 读 入 一 编译 一 求 值 一 打印 循环 。 也 就 是 说 ， 这 一 机 器 应 该 
运行 一 个 循环 ， 其 中 读 入 一 个 表达 式 ， 编 译 它 ， 装 配 并 执行 结果 代码 ， 最 后 打印 出 结果 。 在 
我 们 的 模拟 环境 里 很 容易 运行 它 ， 因 为 我 们 可 以 做 好 安排 ， 让 过 程 compile 和 assemble 都 
作为 “寄存 器 机 器 的 操作 ”。 

练习 5.50 ”使 用 编译 器 去 编译 4.1 节 的 元 循环 求 值 器 ， 并 用 寄存 器 机 器 模拟 器 运行 这 个 程 
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FR (要 一 下 子 编译 多 个 定义 ， 你 可 以 将 这 些 定义 放 进 一 个 begin 里 )。 由 于 存在 着 多 个 层次 的 
解释 ， 结 果 解 释 器 将 运行 得 非常 慢 ， 但 是 使 得 所 有 东西 都 能 工作 是 一 个 极 具 教 益 的 练习 。 
练习 5.51 请 在 C (或 者 你 所 选 定 的 另外 某 个 低级 的 语言 ) 里 开发 一 个 初步 的 Scheme 实现 ， 
采用 的 方式 是 将 5.4 节 的 显 式 控制 求 值 器 翻译 到 C。 为 了 运行 这 一 代码 ， 你 将 需要 提供 适当 的 
存储 分 配 例 程 和 其 他 运行 支持 。 
练习 5.52 ”作为 与 练习 5.51 相 对 应 的 工作 ， 请 修改 前 面 的 编译 器 ， 使 它 能 够 将 Scheme 程 
序 编 译 为 C 指 令 序 列 。 请 编译 4.1 节 的 元 循环 求 值 器 ， 生 成 一 个 用 C 写 出 的 Scheme 解释 器 。 
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练 习 表 


1:1 13 1.11 27 1.21 35 1.31 40 1.41 51 
1.2 13 1.12 27 1.22 35 1.32 40 1.42 51 
1.3 13 1.13 28 1.23 36 1.33 40 1.43 51 
1.4 13 1.14 29 1.24 36 1.34 44 1.44 Sl 
LS 13 1.15 29 1.25 36 1-35 47 1.45 52 
1.6 16 1.16 30 1.26 36 1.36 47 1.46 52 
1.7 16 1.17 31 1.27 36 1.37 47 

1.8 17 1.18 31 1.28 37 1.38 47 

1:9 23 1.19 31 1.29 39 1.39 48 

110 24 1.20 33 1.30 40 1.40 51 

2.1 58 2.21 71 2.41 84 2.61 105 2.81 136 
pay) 60 2.22 71 2.42 84 2.62 105 2.82 137 
23 60 2.23 72 2.43 85 2.63 108 2.83 137 
2.4 62 2.24 qs 2.44 90 2.64 108 2.84 137 
25 62 2.25 74 2.45 91 2.65 108 2.85 137 
2.6 62 2.26 74 2.46 92 2.66 109 2.86 137 
此 了 63 22I 74 2.47 93 2.67 114 2.87 143 
2.8 63 2.28 74 2.48 93 2.68 114 2.88 143 
2.9 63 2.29 74 2.49 93 2.69 114 2.89 143 
2.10 63 2.30 75 2.50 95 2.70 114 2.90 143 
2:11 63 2.31 76 2.51 95 2.71 115 2.91 143 
2.12 64 2.32 76 2.52 96 2.72 115 2.92 144 
2.13 64 2.33 80 2.93 98 213 125 293 144 
2.14 64 2.34 80 2.54 98 2.74 126 2.94 145 
2.15 ‘65 2.35 81 2.95 99 21S 128 2.95 145 
2.16 65 2.36 81 2.56 102 2.76 128 2.96 146 
2.17 69 2.37 81 257 102 2.77 132 2.97 146 
2.18 69 2.38 82 2.58 102 2.78 132 

2.19 69 2.39 82 299 104 219 132 

2.20 69 2.40 84 2.60 104 2.80 132 

3.1 154 3.4 154 3.7 161 3.10 170 3.13 176 
3.2 154 3.5 157 3.8 162 3.11 172 3.14 176 


3.3 154 3.6 157 3.9 167 3.12 175 3.15 178 
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3:16 
3.17, 
3.18 
J9 
3.20 
3.21 
3.22 
3.23 
3.24 
325 
3.26 
3.27 
3.28 
3.29 


4.1 
4.2 
4.3 
4.4 
4.5 
4.6 
4.7 
4.8 
4.9 
4.10 
4.11 
4.12 
4.13 
4.14 
4.15 
4.16 


Sul 
5.2 
5.3 
5.4 
3.3 
5.6 
ST 
5.8 
5.9 
5.10 
5.11 


178 
178 
179 
179 
179 
183 
183 
183 
187 
187 
187 
188 
192 
192 


255 
259 
259 
259 
239 
259 
260 
260 
260 
260 
263 
263 
264 
266 
268 
270 


346 
348 
349 
357 
358 
358 
360 
366 
371 
371 
371 





3.30 
3.31 
3.32 
3.33 
3.34 
3:35 
3.36 
3.37 
3.38 
3.39 
3.40 
3.41 
3.42 
3.43 


4.17 
4.18 
4.19 
4.20 
4.21 
4.22 
4.23 
4.24 
4.25 
4.26 
4.27 
4.28 
4.29 
4.30 
4.31 
4.32 


5.12 
5:13 
5.14 
5.15 
5.16 
S317 
5.18 
5.19 
5.20 
| 
O22 


192 
195 
197 
205 
205 
205 
205 
205 
210 
212 
212 
213 
213 
215 


270 
270 
271 
271 
272 
276 
276 
276 
278 
278 
282 
282 
282 
282 
283 
286 


371 
372 
373 
373 
373 
373 
373 
373 
377 
378 
378 


3.44 
3.45 
3.46 
3.47 
3.48 
3.49 
3.50 
S34 
3:52 
3.98 
3.54 
3359 
3.56 
3.97 


4.33 
4.34 
4.35 
4.36 
4.37 
4.38 
4.39 
4.40 
4.41 
4.42 
4.43 
4.44 
4.45 
4.46 
4.47 
4.48 


5.23 
5.24 
3,25 
5.26 
DT 
5.28 
5.29 
3:30 
531 
5.32 
5.33 


215 
216 
218 
218 
219 
219 
225 
226 
226 
230 
230 
230 
230 
231 


286 
286 
290 
290 
290 
291 
291 
291 
292 
292 
292 
292 
295 
295 
295 
296 


392 
392 
393 
395 
396 
396 
396 
396 
402 
402 
419 


3.58 
3.59 
3.60 
3.61 
3.62 
3.63 
3.64 
3.65 
3.66 
3.67 
3.68 
3.69 
3.70 
3.71 


4.49 
4.50 
4.51 
4.52 
4.53 
4.54 
4.55 
4.56 
4.57 
4.58 
4.59 
4.60 
4.61 
4.62 
4.63 
4.64 


5.34 
5.35 
5.36 
5.37 
5.38 
5.39 
5.40 
5.41 
5.42 
5.43 
5.44 


231 
231 
232 
232 
232 
235 
235 
235 
237 
237 
237 
238 
238 
238 


296 
303 
303 
303 
304 
304 
309 
311 
312 
312 
312 
313 
314 
314 
314 
323 


419 
420 
421 
421 
421 
424 
424 
424 
424 
424 
425 


4.65 
4.66 
4.67 
4.68 
4.69 
4.70 
4.71 
4.72 
4.73 
4.74 
4.75 
4.76 
4.77 
4.78 
4.79 


5.45 
5.46 
5.47 
5.48 
5.49 
5.50 
551 
S32 


323 
324 
324 
324 
324 
335 
338 
338 
339 
339 
339 
340 
340 
340 
340 


428 
428 
429 
429 
429 
429 
430 
430 
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本 索引 中 的 任何 不 准确 之 处 都 可 以 用 一 个 事实 来 解释 : 它 是 在 计算 机 的 帮助 下 完成 的 。 


Donald E. Knuth, MARA ( 计算 机 程序 设计 的 艺术 ， 第 1 卷 ) 


* 


(基本 乘法 过 程 )，4 
(基本 加 法 过 程 )，4 
(基本 减法 过 程 )，4 
(基本 除法 过 程 )，4 
(基本 算术 等 于 谓词 )，11 
=number?, 102 
=zero? (通用 型 ，generic) ， 练 习 2.80 
for polynomials (对 多 项 式 的 )， 练 习 2.87 
< (基本 算术 比较 谓词 )，11 
> (基本 算术 比较 谓词 )，11 
s=, 13 
( 见 分 号 ) ， 脚 注 11 
! (AFER), #130 
? 《谓词 名 里 的 ) i22 
( 双 引 号 )， 脚 注 99 
”( 单 引号 )，97， 脚 注 99 
read 和 ， 脚 注 222， 脚 注 285 
( 反 引 号 )， 脚 注 321 
, GES, 与 反 引 号 一 起 使 用 )， 脚 注 321 
#£， 脚 注 17 
#t ， 脚 注 17 
FF> ， 数 学 函数 的 记 靶 ， 脚 注 58 
©, Rtheta 
入 演算 ， 见 lambda 演 算 
ns MPi 
> 求 和 记 法 (sigma), 38 
A'h-mose， 脚 注 40 
Abelson, Harold， 脚 注 3 
abs, 11, 12 
accelerated-sequence, 234 
accumulate, #3 1.32, 78 
lalfold-right, 练习 2.38 
accumulate-n， 练 习 2.36 
Acharya, Bhéscara， 脚 注 35 
Ackermann 畏 数 ， 练 习 1.10 
actual-value, 279 
Ada, # 34.63 


+ 


~ 


' 


递归 过 程 (recursive procedures), 23 
Adams, Norman I., #4232 
add (通用 型 , generic) 129 


用 于 多 项 式 系数 (used for polynomial coefficients) ，140 


add-action!，191，194 
add-binding-to-frame!, 262 
add-complex, 118 
add-complex-to-schemenum, 133 
addend, 101 
adder (基本 约束 ，primitive constraint), 201 
add-interval, 63 
add-lists, 285 
add-poly, 139 
add-rat, 56 
add-rule-or-assertion!, 334 
add-streams, 228 
add-terms, 140 
add-to-agenda!, 194, 196 
add-vect, #32.46 
Adelman, Leonard, #j#48 
adjoin-arg, #riz307 
adjoin-set, 103 
二 又 树 表 示 (binary-tree representation), 107 
排序 表 表 示 (ordered-list representation)， 练 习 2.61 


未 排序 的 表 表 示 (unordered-list representation), 103 


作为 带 权重 集合 (for weighted sets), 113 
adjoin-term, 140, 142 
advance-pc, 368 
after-delay, 191, 194 
Algol 

块 结构 (block structure), 20 


按 名 参数 传递 (call-by-name argument passing), Piz 


186, #riz240 
fH (thunks)， 脚 注 186， 脚 注 238 


在 处 理 复 合 数据 对 象 方面 的 弱点 (weakness in handling 


compound objects), ， 脚 注 161 
Allen, John, #972300 
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% jl 





all-regs (编译 器 ，compiler) ， 脚 注 326 
always-true, 328 
amb, 287 
ambeval, 297 
amb 求 值 器 (evaluator) ， 见 非 确定 性 求 值 器 (nondeter- 
ministic evaluator) 
analyze 
元 循环 (metacircular), 273 
非 确 定性 (nondeterministic), 297 
analyze-... 
元 循环 (metacircular), 274~276, #3 4.23 
非 确 定性 (nondeterministic) , 298~300 
analyze-amb, 302 
and (查询 语言 ，query language), 310 
的 求 值 (evaluation of), 316, 326, #3 4.76 
and (特殊 形式 ，special form), 13 
的 求 值 (evaluation of), 12 
为 什么 作为 特殊 形式 (why a special form), 12 
没有 子 表达 式 (with no subexpressions), 454.4 
an-element-of, 286 
angle 
数据 导向 的 (data-directed) 125 
极 坐 标 表 示 (polar representation), 119 
直角 坐标 表示 (rectangular representation), 118 
带 标志 数据 (with tagged data) ，121 
angle-polar, 120 
angle-rectangular, 120 
an-integer-starting-from, 288 
announce-output, 265 
APL， 脚 注 81 
Appel, Andrew W.， 脚 注 325 
append! ， 练 习 3.12 
作为 寄存 器 机 器 (as register machine), 4 5) 5.22 
append, 68, #33.12 
作为 累积 (as accumulation), 442.33 
append! 与， 练习 3.12 
带 有 任意 个 参数 (with arbitrary number of arguments) , 
脚注 327 
作为 寄存 器 机 器 (as register machine)， 练 习 5.22 
“是 什么 ”( 规 则 ) 和 “怎样 做 ”( 过 程 )，305~306 
append-instruction-sequences, 401, 413 
append-to-form (#ill], rules), 313 
application?, 257 
apply (fHTE, lazy), 279 
apply (基本 过 程 ，primitive procedure), #Piz113 
apply (元 循环 ，metacircular) 253 
与 基本 的 (primitive) apply, #Piz225 
apply-dispatch, 388 


为 编译 的 代码 而 修改 (modified for compiled code), 
425 
apply-generic, 125 
强制 (with coercion), 134, #43 2.81 
提升 强制 (with coercion by raising), 4 4 2.84 
多 参数 的 强制 (with coercion of multiple arguments) , 
练习 2.82 
通过 强制 简化 (with coercion to simplify), %3 2.85 
消息 传递 (with message passing), 127 
类 型 塔 (with tower of types), 135 
apply-primitive-procedure, 253, 261, 265 
apply-rules, 330 
argl 寄 存 器 (register), 383 
articles, 292 
ASCII 码 (code), 110 
assemble, 364, 365 
assert! (查询 解释 器 ，query interpreter), 320 
assign (寄存 器 机 器 里 ，in register machine), 347 
模拟 (simulating), 367 
将 标号 存 人 寄存 器 (storing label in register), 353 
assignment?, 256 
assignment-value, 256 
assignment-variable, 256 
assign-reg-name, 367 
assign-value-exp, 367 
assoc, 185 
atan (基本 过 程 ，primitive procedure), #7 7£110 
attach-tag, 119 
采用 Scheme 数据 类 型 (using Scheme data types), 4 
2.78 
augend, 101 
average, 15 
average-damp, 48 
averager (#j3%, constraint), #4 3.33 
Backus, John ， 脚 注 202 
Baker, Henry G., Jr.， 脚 注 300 
Barth, John, 249 
Basic 
对 复合 数据 的 限制 (restrictions on compound data), 
脚注 73 
在 处 理 复 合 对 象 方 面 的 弱点 (weakness in handling 
compound objects), ， 脚 注 161 
Batali, John Dean， 脚 注 304 
begin (特殊 形式 ，special form), 151 
在 推论 和 过 程 体 里 隐 含 的 (implicit in consequent of 
cond and in procedure body), #4131 
begin?, 257 


begin-actions, 257 


壳 azl 44] 


below, 89, 练习 2.51 Common Lisp, #7 7#2 
Bertrand{fzi (Hypothesis), ， 脚 注 191 nil 的 处 理 (treatment of nil), #3476 
beside, 89, 95 compile, 399 
Bolt Beranek and Newman Inc.， 和 脚注 2 compile-and-go, 425, 427 
Borning, Alan, #jz159 compile-and-run, #45.48 
Borodin, Alan， 脚 注 82 compile-application, 408 
branch (寄存 器 机 器 ，in register machine), 347 compile-assignment, 404 
模拟 (simulating), 368 compiled-apply, 426 
branch-dest, 368 compile-definition, 404 
Buridan, Jean， 脚 注 175 compiled-procedure?, #j#323 
B 树 (tree), #iz106 compiled-procedure-entry, 脚注 323 
ca...r, 脚注 75 compiled-procedure-env， 脚 注 323 
cadr， 脚 注 75 compile-if, 405 
call-each, 193 compile-lambda, 406 
car (J&A GFE, primitive procedure), 57 compile-linkage, 403 
公理 (axiom for), 61 compile-proc-appl, 412 
用 向 量 实现 (implemented with vectors), 376 compile-procedure-call, 409 
作为 表 操 作 (as list operation), 67 compile-quoted, 403 
名 字 的 由 来 (origin of the name)， 脚 注 68 compile-self-evaluating, 403 
的 过 程 性 实现 (procedural implementation of), 61, compile-sequence, 406 
% 32.4, 179, 284 compile-variable, 403 
Carmichael& (numbers), #447, %3 1.27 complex->complex, %3 2.81 
carflicdr ft £ iy A (nested applications of car and complex, (package), 130 
cdr), #3475 compound-apply, 388 
cd...r, Ppiz75 compound-procedure?, 261 
cdr (SEA LF, primitive procedure), 57 cond (特殊 形式 ，special form), 11 
公理 (axiom for), 67 附加 子 句 语法 (additional clause syntax), 434.5 
用 向 量 实现 (implemented with vectors), 376 子 句 (clause), 11 
作为 表 操 作 (as list operation) ，67 的 求 值 (evaluation of) ，11 
名 字 的 由 来 (origin of the name)， 脚 注 68 Git, Piz19 
的 过 程 性 实现 (procedural implementation of), 61, 推论 里 隐 式 的 begin (implicit begin in consequent) , 
练习 2.4，179，284 脚注 131 
cdr 向 下 一 个 表 (down a list), 67 cond?, 258 
celsius-fahrenheit-converter, 199 cond->if, 258 
面向 表达 式 的 (expression-oriented)， 练 习 3.37 cond-actions, 258 
center, 64 cond-clauses, 258 
Ces Gro, Ernesto， 脚 注 135 cond-else-clause?, 258 
cesaro-stream, 245 cond-predicate, 258 
cesaro-test, 155 cond 的 子 句 (clause, ofa cond), 12 
Chaitin, Gregory, Fiz 134 另外 的 语法 (additional syntax), #3 4.5 
Chandah-sutra, #439 conjoin, 327 
Chapman, David, #9 7#251 connect, 200, 204 
Charniak, Eugene, #7 7#251 Conniver, #32251 
Chebyshev, Pafnutii L’vovich, #4191 cons (基本 过 程 ，primitive procedure), 57 
Clark, Keith L., #12283 AM (axiom for), 61 
Clinger, William， 脚 注 217， 脚 注 240 闭 包 性 质 (closure property of), 65 
coeff, 140, 142 用 变动 函数 实现 (implemented with mutators), 175 


Colmerauer, Alain, #piz262 用 向 量 实现 (implemented with vectors), 377 


442 


作为 表 操 作 (as list operation) ，377 
名 字 的 意义 (meaning of the name), #7468 
的 过 程 性 实现 (procedural implementation of), 61, 
练习 2.4，76，179，284 
cons-stream (特殊 形式 ，special form), 221, 222 
和 情 性 求 值 (lazy evaluation and), 284 
为 什么 作为 特殊 形式 (why a special form), #184 
const (寄存 器 机 器 ，in register machine), 347 
模拟 (simulating), 370 
语法 (syntax of), 359 
constant (基本 约束 ，primitive constraint), 202 
constant-exp, 370 
constant-exp-value, 370 
construct-arglist, 408 
cons 上 一 个 表 (up a list), 68 
contents，120 


使 用 Scheme 数据 结构 (using Scheme data types) ， 练 


习 2.78 
continue 寄 存 器 (register), 353 
显 式 控 制 求 值 器 里 (in explicit-control evaluator) , 
383 
和 递归 (recursion and), 355 
Cormen, Thomas H., #7 iz 106 
corner-split, 89 
cos (J£A TF, primitive procedure), 46 
count-change, 26 
count-leaves, 73 
作为 累积 (as accumulation), # 32.35 
作为 寄存 器 机 器 (as register machine), #5 5.21 
count-pairs, #43.16 
Cressey, David, Æ ¿4302 
cube, #41.15, 37, 49 
cube-root, 49 
current-time, 194, 196 
Darlington, John, #7 7#202 
decode, 113 
deep-reverse, 练习 2.27 
define (特殊 形式 ，special form), 5 
带 点 尾部 记 法 (with dotted-tail notation)， 练 习 2.20 
的 环境 模型 (environment model of), 164 
lambda, 41~42 
过 程 的 (for procedures), 7, 42 
语法 糖衣 (syntactic sugar), 256 
的 值 (value of) ， 脚 注 8 
为 什么 是 特殊 形式 (why a special form), 7 
内 部 (internal) ， 见 内 部 定义 (internal definition) 
define-variable!, 261, 263 
definition?, 256 


definition-value, 256 
definition-variable, 256 
deKleer, Johan, #p7#251, Æ 4281 
delay (特殊 形式 ，special form), 222 
fist (explicit), 242 
显 式 与 自动 (explicit vs. automatic), 285 
用 lambdaa 实 现 (implementation using lambda), 225 
情 性 求 值 和 (lazy evaluation and), 284 
记忆 性 (memoized) ，225， 练 习 3.57 
为 什么 是 特殊 形式 (why a special form)， 脚 注 184 
delay-it, 281 
delete-queue!, 180, 182 
denom, 56, 59 
公理 (axiom for), 60 
归 约 到 最 低 的 项 (reducing to lowest terms), 59 
deposit 上 ， 与 外 置 串 行 化 器 (with external serializer), 215 
deposit 消 息 ， 用 于 银行 账户 (deposit message for bank 
account), 153 
deriv (符号 ，symbolic) 100 
数据 导向 (data-directed), %3 2.73 
deriv (8H, numerical), 49 
Dijkstra, Edsger Wybe, {£172 
Dinesman, Howard P., 290 
disjoin, 327 
display (基本 过 程 ，primitive procedure), #5 1.22, 
脚注 70 
display-line, 222 
display-stream, 222 
distinct?, Priz252 
div (iH FHM, generic), 128 
div-complex, 118 
divides?, 33 
div-interval, 63 
除 零 (division by zero), %3 2.10 
divisible?, 227 
div-poly, #32.91 
div-rat, 56 
div-series, # 3.62 
div-terms, 练习 2.91 
DOS/Windows， 脚 注 317 
dot-product, 42.37 
Doyle, Jon， 脚 注 251 
draw-line, 93 
driver-loop 
情 性 求 值 器 (for lazy evaluator), 280 
元 循环 求 值 器 (for metacircular evaluator), 265 
非 确 定性 求 值 器 (for nondeterministic evaluator), 
302 





作为 连 分 数 (as continued fraction), ， 练 习 1.38 


作为 微分 方程 的 解 (as solution to differential equation) , 


242 
edgel-frame, 91 
edge2-frame, 91 
EIEIO, #j£177 
Eindhoveni AK“, ¥Pi£172 
element-of-set?, 103 
二 叉 树 表示 (binary-tree representation), 106 
排序 表 表 示 (ordered-list representation), 104 
无 序 表 表示 (unordered-list representation), 103 


else (cond 里 的 特殊 形式 ，special symbol incond), 12 


empty-agenda?, 194, 196 
empty-arglist, 脚注 307 
empty-instruction-sequence, 402 
empty-queue?, 180, 182 
empty-termlist?, 140, 142 
enclosing-environment, 262 
encode， 练 习 2.68 
end-segment， 练 习 2.2， 练 习 2.48 
end-with-linkage, 403 
entry, 106 
enumerate-interval, 78 
enumerate-tree, 78 
env 寄 存 器 (register), 383 
eq? (基本 过 程 ，primitive procedure)，98 
对 任意 对 象 (for arbitrary objects) ，178 
作为 指针 相等 (as equality of pointers) ，178，375 
对 符号 的 实现 (implementation for symbols), 376 
数值 相等 和 (numerical equality and), ， 脚 注 294 
equ? (通用 型 谓词 ，generic predicate) ， 练 习 2.79 
equal?, #32.54 
equal-rat?, 56 
error (基本 过 程 ，primitive procedure), Priz56 
Escher, Maurits Cornelis， 脚 注 88 
estimate-integral， 练 习 3.5 
estimate-pi, 155 
euler-transform, 234 
eval (tft, lazy), 279 
eval (基本 过 程 ，primitive procedure), 268 
MIT Scheme， 脚 注 226 
用 于 查询 解释 器 (used in query interpreter) ，328 
eval (元 循环 ，metacircular) 252, 253 
分 析 型 版 本 (analyzing version) ，273 
数据 导向 的 (data-directed) ， 练 习 4.3 
与 基本 eval (primitive eval vs.) ， 脚 注 225 
eval-assignment, 254 


eval-definition, 255 
eval-dispatch, 384 
eval-if (ttt, lazy), 280 
eval-if (元 循环 ，metacircular) 254 
eval-sequence, 254 
ev-application, 359 
ev-assignment, 392 
ev-begin, 389 
ev-definition, 392 
even?, 30 
even-fibs, 76, 79 
ev-if, 391 
ev-lambda, 385 
ev-quoted, 385 
ev-self-eval, 385 
ev-sequence 
带 尾 递归 (with tail recursion), 390 
不 带 尾 递归 (without tail recursion), 389 
ev-variable, 385 
e WEAK (power series for), #4 -33.59 
exchange, 214 
execute, 362 
execute-application 
元 循环 (metacircular), 275 
非 确定 性 (nondeterministic), 301 
expand-clauses, 258 
expmod, 34, #3 1.25, %3 1.26 
expt 
线性 迭代 版 本 (linear iterative version), 29 
线性 递归 版 本 (linear recursive version), 29 
寄存 器 机 器 (register machine for), 435.4 
exp 寄 存 器 (register), 383 
extend-environment, 261, 262 
extend-if-consistent, 329 
extend-if-possible, 332 
external-entry, 426 
extract-labels, 364, 脚注 289 
factorial 
作为 抽象 机 器 (as an abstract machine), 266 
的 计算 (compilation of), 415~417, 5-17 


求 值 的 环境 结构 (environment structure in evaluating) , 


练习 3.9 
线性 迭代 版 本 (linear iterative version), 22 
线性 递归 版 本 (linear recursive version), 21 


迭代 的 寄存 器 机 器 (register machine for (iterative) ) , 


练习 5.1， 练 习 5.2 


递归 的 寄存 器 机 器 (register machine for (recursive))， 


354~356， 图 5-11 
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堆栈 使 用 ， 编 译 (stack usage, compiled) ， 练 习 5.45 
堆栈 使 用 ， 解释 (stack usage, interpreted), # 3 5.26, 
练习 5.27 
堆栈 使 用 , 寄存 器 机 器 (stack usage, register machine) , 
练习 5.14 
带 赋 值 (with assignment), 161 
带 高 阶 过 程 (with higher-order procedures) ， 练 习 1.31 
false, #piz17 
false?, 261 
fast-expt, 30 
fast-prime?, 34 
Feeley, Marc， 脚 注 232 
Feigenbaum, Edward， 脚 注 265 
Fenichel, Robert， 脚 注 300 
fermat-test, 34 
fetch-assertions, 333 
fetch-rules, 333 
fib 
线性 迭代 版 本 (linear iterative version), 26 
对 数 版 本 (logarithmic version), #4 1.19 
寄存 器 机 器 ( 树 形 递 归 ) (register machine for (tree- 
recursive))，357， 图 5-12 
堆栈 使 用 ， 编 译 (stack usage, compiled) ， 练 习 5.46 
推 栈 使 用 ， 解 释 (stack usage, interpreted) ， 练 习 5.29 
树 形 递归 版 本 (tree-recursive version) ,24， 练 习 5.29 
带 记 忆 (with memoization), ， 练 习 3.27 
带 命名 Let (with named let), 434.8 
fibs (Sie, infinite stream), 227 
隐 式 定义 (implicit definition), 279 
FIFO 缓 冲 区 (buffer), 180 
filter, 78 
filtered-accumulate, #34 1.33 
find-assertions, 328 
find-divisor, 33 
first-agenda-item, 194, 197 
first-exp, 257 
first-frame, 262 
first-operand, 257 
first-segment, 196 
first-term, 140, 142 
fixed-point, 46 
TEAK HE (as iterative improvement), # 3 1.46 
fixed-point-of-transform, 50 
El1ag 寄 存 跨 (register), 362 
flatmap, 83 
flatten-stream, 336 
flip-horiz, 88, # 42.50 
flipped-pairs, 89, #riz90 


flip-vert, 88, 94 
Floyd, Robert, #7#251 
fold-left, 442.38 
fold-right, 练习 2.38 
Forbus, Kenneth D.， 上 脚注 251 
force, 222, 225 
强迫 计算 一 个 槽 (forcing a thunk vs.)， 脚 注 239 
force-it, 281 
带 记 忆 版 本 (memoized version), 282 
for-each， 练 习 2.23， 练 习 4.30 
for-each-except, 204 
forget-value!, 200, 204 
Fortran, 2, Priz81 
的 发 明 者 (inventor of), ， 脚 注 202 
复合 数据 上 的 限制 (restrictions on compound data), 
脚注 73 
frame-coord-map, 92 
frame-values, 262 
frame-variables, 262 
Franz Lisp, #342 
free 寄存 器 (register), 377, 379 
Friedman, Daniel P， 脚 注 186， 脚 注 206 
fringe， 练 习 2.28 
作为 一 种 树 形 枚 举 (as a tree enumeration)， 和 脚注 80 
front-ptr, 181 
front-queue, 180, 181 
Gabriel, Richard P., # {#231 
GCD，32， 见 最 大 公约 数 (greatest common divisor) 
的 寄存 器 机 器 (register machine for), 343~345, 359 
gcd-terms, 145 
generate-huffman-tree, 练习 2.69 
get, 123, 187 
get-contents, 361 
get-global-environment， 脚 注 314 
get-register, 362 
get-register-contents, 359, 362 
get-signal, 191, 193 
get-value, 200, 204 
Goguen, Joseph, #3471 
Gordon, Michael, #74200 
goto (在 寄存 器 机 器 里 ，in register machine), 346 
以 标号 为 目标 (label as destination), 354 
模拟 (simulating), 369 
goto-dest, 368 
Gray, Jim, #34176 
Green, Cordell, #4262 
Griss, Martin Lewis, #pj#2 
Guttag, John Vogel, #yiz71 
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Hamming, Richard Wesley, #34108, 4) 3.56 
Hanson, Christopher P.， 和 脚注 217， 脚 注 325 
Hardy, Godfrey Harold， 脚 注 191， 脚 注 198 
Hassle， 脚 注 237 
has-value?, 200, 204 
Havender, J., #7£176 
Haynes, Christopher T., #24206 
Hearn, Anthony C.， 脚 注 2 
Henderson, Peter， 脚 注 88， 脚 注 189， 脚 注 202 
Henderson 图 (diagram), 228 
Hewitt, Carl Eddie， 脚 注 31， 脚 注 251， 有 和 脚注 262， 脚 注 300 
Hilfinger, Paul， 和 脚注 107 
Hoare, Charles Antony Richard， 脚 注 71 
Hodges, Andrew， 脚 注 223 
Hofstadter, Douglas R.， 脚 注 224 
Horner, W. G.， 脚 注 82 
Horner 规 则 (rule)， 练 习 2.34 
Huffman, David, 110 
Huffman 编 码 (code), 109~115 
的 最 优 性 (optimality of), 111 
编码 的 增长 阶 (order of growth of encoding)， 练 习 
2.72 
Hughes, R. J. M., #i#245 
IBM 704， 脚 注 68 
identity, 39 
if (特殊 形式 ，special form), 12 
cond 与 ， 脚 注 19 
的 求 值 (evaluation of), 12 
的 正则 序 求 值 (normal-order evaluation of) ， 练 习 1.5 
单 支 (无 替代 部 分 ) (one-armed (without alternative) ) , 
脚注 157 
谓词 、 推 论 和 替代 部 分 (predicate, consequent, and 
alternative of) ，12 
为 什么 作为 特殊 形式 (why a special form ) ， 练 习 1.6 
让 下， 257 
if-alternative, 257 
if-consequent, 257 
if-predicate, 257 
if 的 标 代 部 分 (alternative of if), 12 
imag-part, 125 
数据 导向 的 (data-directed), 119 
极 坐 标 表 示 (polar representation), 118 
直角 坐标 表示 (rectangular representation), 120 
与 带 标志 数据 (with tagged data), 120 
imag-part-polar, 120 
imag-part-rectangular, 120 
inc, 39 


inform-about-no-value, 201 


inform-about-value, 201 
Ingerman, Peter, #7 {£238 
insert! 
在 一 维 表格 里 (in one-dimensional table), 185 
在 两 维 表格 里 (in two-dimensional table), 186 
insert-queue!, 180 
install-complex-package, 130 
install-polar-package, 124 
install-polynomial-package, 139 
install-rational-package, 129 
install-rectangular-package, 123 
install-scheme-number-package, 129 
instantiate, 325 
instruction-execution-proc, 366 
instruction-text, 365 
integers (无 穷 流 ，infinite stream), 227 
隐 式 定义 (implicit definition), 278 
惰性 表 版 本 (lazy-list version), 284 
integers-starting-from, 227 
integral, 39, 239, #53.77 
WEG EI] BAe (with delayed argument), 241 
45 (with) lambda, 41 
tHPEZENRAS (lazy-list version), 285 
延 时 求 值 的 需要 (need for delayed evaluation), 241 
integrate-series, #43.59 
interleave, 237 
interleave-delayed, 335 
Interlisp， 脚 注 2 
intersection-set, 103 
二 叉 树 表示 (binary-tree representation), #4 2.65 
排序 表 表 示 (ordered-list representation), 105 
未 排序 表 表 示 (unordered-list representation), 104 
Jayaraman, Sundaresan， 脚 注 159 
Kaldewaij, Anne， 脚 注 41 
key, 109 
Khayyam, Omar, #7 j#35 
Knuth, Donald E.， 脚 注 35， 脚 注 39， 脚 注 42， 脚 注 82， 
脚注 135 
Kohlbecker, Eugene Edmund, Jr., #4217 
Kolmogorov, A. N.， 脚 注 134 
Konopasek, Milos， 脚 注 159 
Kowalski, Robert, #7 /z262 
KRC， 脚 注 84， 脚 注 196 
label (寄存 器 机 器 里 ，in register machine), 347 
模拟 (simulating), 370 
label-exp, 370 
label-exp-label, 370 
lambda (特殊 形式 ，special form), 41 
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defines, 41~42 
带 点 尾部 记 靶 (with dotted-tail notation) ， 脚 注 77 
lambda?, 256 
lambda-body, 256 
lambda-parameters, 256 
lambda#ikxt (expression) 
作为 组 合式 的 运算 符 (as operator of combination), 
41 
的 值 (value of) ，165 
lambda 演 算 (calculus (lambda calculus)), ， 脚 注 53 
Lambert, J.H., #9 1.39 
Lamé, Gabriel, #pi#43 
Lamé 定 理 (Theorem), 32 
Lamport, Leslie， 脚 注 179 
Lampson, Butler， 脚 注 138 
Landin，Peter， 脚 注 11， 脚 注 186 
Lapalme，Guy， 脚 注 232 
last-exp?, 257 
last-operand?, #4307 
last-pair, 练习 2.17， 练习 3.12 
规则 (rules) ， 练 习 4.62 
leaf?, 113 
left-branch, 106 
Leiserson, Charles E.， 脚 注 106， 脚 注 198 
length, 68 
作为 积累 (as accumulation), #9 2.33 
JEARMKAS (iterative version), 68 
递归 版 本 (recursive version), 68 
let (特殊 形式 ，special form), 43 
求 值 模型 (evaluation model), 4 93.10 
与 内 部 定义 (internal definition vs.) , 43 
命名 的 (named), 4% 34.8 
变量 的 作用 域 (scope of variables), 43 
作为 语法 糖衣 (as syntactic sugar), 43, 43.10 
let* (特殊 形式 ，special form), #3 4.7 
letrec (特殊 形式 ，special form), 4 74.20 
lexical-address-lookup, 423, #3 5.39 
lexical-address-set!, 423, %3 5.39 
Lieberman, Henry, #7 7#300 
LIFO 缓 冲 区 (buffer), RHEE (stack) 
Liskov, Barbara Huberman ， 脚 注 71 
Lisp 
表 处 理 的 缩写 (acronym for LISt Processing), 1 
应 用 序 求 值 (applicative-order evaluation in), 11 
在 DEC PDP-1 上 ， 脚 注 300 
的 效率 (efficiency of), 2, Priz6 
一 级 的 过 程 (first-class procedures in), 51 
Fortran 与 ，2 


历史 (history of) ，1~3 
内 部 类 型 系统 (internal type System) ， 练 习 2.78 
在 IBM 704 上 的 初始 实现 (original implementation on 
IBM 704)， 脚 注 68 
与 Pascal， 脚 注 11 
适合 写 求 值 器 (suitability for writing evaluators), 250 
独特 的 特征 (unique features of) ，2 
lisp-value (查询 解释 器 ，query interpreter), 327 
lisp-value (查询 语言 ，query language), 311, 323 
的 求 值 (evaluation of), 318, 327, 454.77 
Lis (dialects) 
Common Lisp， 脚 注 2 
Franz Lisp， 脚 注 2 
Interlisp， 脚 注 2 
MacLisp， 脚 注 2 
MDL， 牌 注 302 
Portable Standard Lisp， 有 和 脚注 2 
Scheme，2 
Zetalisp， 和 脚注 2 
list (基本 过 程 ，primitive procedure), 66 
list->tree， 练 习 2.64 
list-difference, 414 
list-of-arg-values, 280 
list-of-delayed-args, 280 
list-of-values, 254 
list-ref, 68, 285 
list-union, 413 
lives-near 规 则 (rule)，311， 练 习 4.60 
Locke, John, 1 
log (基本 过 程 ，primitive procedure), # 7 1.36 
logical-not, 191 
lookup 
在 一 维 表格 里 (in one-dimensional table), 184 
在 记录 集合 里 (in set of records) ，109 
在 两 维 表格 里 (in two-dimensional table), 186 
lookup-label, 366 
lookup-prim, 370 
lookup-variable-value, 261, 262 
为 扫描 出 定义 (for scanned-out definitions), #4 
4.16 
lower-bound, #4 2.7 
Macintosh, #34317 
MacLisp， 脚 注 2 
magnitude 
数据 导向 的 (data-directed), 125 
极 坐 标 表示 (polar representation), 119 
直角 坐标 表示 (rectangular representation), 118 
带 标 志 数 据 (with tagged data), 121 
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magnitude-polar, 120 
magnitude-rectangular, 120 
make-account, 153 

在 环境 模型 里 (in environment model), #3 3.11 

带 串 行 化 (with serialization), ，212， 练 习 3.41， 练 习 

3.42 

make-account-and-serializer，214 
make-accumulator， 练 习 3.1 
make-agenda, 194, 196 
make-assign, 367 
make-begin, 257 
make-branch, 368 
make-center-percent, 练习 2.12 
make-center-width, 64 
make-code-tree, 112 
make-compiled-procedure， 脚 注 323 
make-complex-from-mag-ang, 131 
make-complex-from-real-imag, 131 
make-connector, 203 
make-cycle, #33.13 
make-decrementer, 158 
make-execution-procedure, 366 
make-frame, 91, #42.47, 262 
make-from-mag-ang, 122, 125 

消息 传递 (message-passing), 45) 2.75 

极 坐 标 表 示 (polar representation), 119 

直角 坐标 表示 (rectangular representation), 119 
make-from-mag-ang-polar, 120 
make-from-mag-ang-rectangular, 120 
make-from-real-imag, 121, 125 

消息 传递 (message-passing), 127 

极 坐 标 表示 (polar representation), 119 

直角 坐标 表示 (rectangular representation), 119 
make-from-real-imag-polar, 120 
make-from-real-imag-rectangular, 120 
make-goto, 368 
make-if, 257 
make-instruction, 365 
make-instruction-sequence, 402 
make-interval, 63, 练习 2.7 
make-joint, % 33.7 
make-label， 上 脚注 322 
make-label-entry, 366 
make-lambda, 256 
make-leaf, 112 
make-leaf-set, 114 
make-machine, 359, 361 


make-monitored, 练习 3.2 


make-mutex, 217 
make-new-machine， 图 5-12 
make-operation-exp, 370 
make-perform, 369 
make-point， 练 习 2.2 
make-poly, 139 
make-polynomial, 142 
make-primitive-exp, 370 
make-procedure, 261 
make-product, 100, 102 
make-queue, 180, 181 
make-rat, 56, 57, 59 

公理 (axiom for), 60 

归 约 到 最 低 形式 (reducing to lowest terms), 58 
make-rational, 130 
make-register, 361 
make-restore, 369 
make-save, 369 
make-scheme-number, 129 
make-segment， 练 习 2.2， 练 习 2.48 
make-serializer, 216 
make-simplified-withdraw, 158, 246 
make-stack, 361 

带 监视 的 堆栈 (with monitored stack), 372 
make-sum, 100, 101 
make-table 

消息 传递 的 实现 (message-passing implementation) , 

185 

一 维 表格 (one-dimensional table), 185 
make-tableau, 234 
make-term, 140, 142 
make-test, 368 
make-time-segment, 196 
make-tree, 106 
make-vect, #2.46 
make-wire, 189, 192, 练习 3.31 
make-withdraw, 152 

在 环境 模型 里 (in environment model), 167~170 

用 (using) let, 练习 3.10 
map, 70, 285 

作为 积累 (as accumulation)， 练 习 2.33 

带 有 多 个 参数 (with multiple arguments), ， 脚 注 78 
map-over-symbols, 337 
map-successive-pairs, 245 
matrix-*-matrix， 练 习 2.37 
matrix-*-vector， 练 习 2.37 
max (基本 过 程 ，primitive procedure), 63 
McAllester, David Allen, #34251 
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McCarthy, John, 2, Ppizl, #piz247 
McDermott, Drew, #7 {£251 
MDL, # {#302 
member, /#7#£252 
memo-fib, #4 3.27 
memoize, %4 33.27 
memo-proc, 225 
memq, 98 
merge, #3 3.56 
merge-weighted, 练习 3.70 
MicroPlanner， 脚 注 251 
Microshaft，307 
midpoint-segment， 练 习 2.2 
Miller, Gary L., #9 1.28 
Miller, James S., {#325 
Miller-Rabin 检 查 (test for primality), #9 1.28 
Milner, Robin, #i#200 
min (SEA LEAR, primitive procedure), 63 
Minsky, Marvin Lee, #77300 
Miranda, #iz84 
MIT Scheme 
“Sif, (the empty stream), #yiz182 
eval, #riz226 
内 部 定义 (internal definitions), #14229 
成 员 (numbers), #23 
random, #iz136 
user-initial-environment, #iz226 
without-interrupts, #ijz174 
MIT， 脚 注 262 
人 工 智能 实验 室 (Artificial Intelligence Laboratory), 
脚注 2 
早期 历史 (early history of) ， 脚 注 89 
项 目 (Project) MAC， 脚 注 2 
电子 学 研究 实验 室 (Research Laboratory of Electronics) , 
2， 脚 注 300 
ML, #iz200 
modifies-register?, 413 
monte-carlo, 156 
无 穷 流 (infinite stream), 255 
Moon, David A.， 脚 注 2， 脚 注 300 
Morris, J. H.， 脚 注 138 
mul (通用 型 ，generic) ，129 
用 于 多 项 式 系数 (used for polynomial coefficients), 
141 
mul-complex, 118 
mul-interval, 63 
更 高 效 的 版 本 (more efficient version), #9 2.11 
mul-poly, 139 


mul-rat, 56 
mul-series, # 473.60 
mul-streams, %3 3.54 
mul-terms, 141 
Multics 分 时 系统 (time-sharing system), #4300 
multiple-dwelling, 291 
multiplicand, 101 
multiplier, 101 
基本 约束 (primitive constraint), 202 
jeter Be (selector), 101 
Munro, Ian， 脚 注 82 
mystery， 练 习 3.14 
needs-register?, 413 
negate, 327 
new-cars 寄 存 器 (register), 379 
new-cdrs 寄 存 器 (register), 379 
newline (基本 过 程 ，primitive procedure), 4 9 1.22, 
脚注 70 
newtons-method, 50 
newton-transform, 49 
new-withdraw, 152 
new 寄 存 器 (register), 381 
next (连接 描述 符 ，linkage descriptor), 404 
next-to (规则 ，rules)， 练习 4.61 
nil 
避免 (dispensing with), 80 
作为 空 表 (as empty list), 67 
作为 表 尾 标记 (as end-of-list marker), 66 
作为 Scheme 里 的 常 值 (as ordinary variable in Scheme) , 
脚注 76 
no-more-exps?， 脚 注 312 
no-operands?, 275 
not (查询 语言 ，query language), 311, 322 
的 求 值 (evaluation of), 318, 327, %3 4.77 
not (J&A GFE, primitive procedure), 12 
nouns, 292 
null? (基本 过 程 ，primitive procedure), 68 
用 带 类 型 的 指针 实现 (implemented with typed 
pointers) ，377 
number? (基本 过 程 ，primitive procedure), 100 
和 数据 类 型 (data types and) ， 练 习 2.78 
用 带 类 型 指针 实现 (implemented with typed pointers), 
377 
numer, 56, 59 
公理 (axiom for), 60 
归结 到 最 低 项 (reducing to lowest terms), 59 
n 次 方 根 ， 作 为 不 动 点 (nth root, as fixed point) ， 练 习 
1.45 
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oldcr 寄 存 器 (register), 382 
old% frä (register), 381 
ones (无 穷 流 ，infinite stream), 228 
惰性 表 版 本 (lazy-list version), 285 
op (在 寄存 器 机 器 里 ，in register machine), 347 
模拟 (simulating), 370 
operands, 257 
operation-exp, 370 
operation-exp-op, 370 
operation-exp-operands, 370 
operator, 257 
or (查询 语言 ，query language), 310 
的 求 值 (evaluation of), 317, 327 
or (特殊 形式 ，special form), 18 
的 求 值 (evaluation of) ，18 
为 什么 作为 特殊 形式 (why a special form), 18 
没有 子 表达 式 (with no subexpressions) ， 练 习 4.4 
order，140，142 
origin-frame, 91 
Ostrowski, A. M., #pjz82 
outranked-by (Mil, rule), 312, %3 4.64 
pair? (基本 过 程 ，primitive procedure), 73 
用 带 类 型 指针 实现 (implemented with typed pointers), 
378 
pairs, 237 
Pan, V. Y.， 脚 注 82 
parallel-execute, 211 


parallel-instruction-sequences, 415 


Parse, 293 
parse-..., 293~294 
partial-sums， 练 习 3.55 
Pascal， 脚 注 11 
缺少 高 阶 过 程 (lack of higher-order procedures), # 
注 200 


递归 过 程 (recursive procedures)，23 
对 复合 数据 的 限制 (restrictions on compound data), 
脚注 73 
在 处 理 复 合 数 据 上 的 弱点 (weakness in handling com- 
pound objects) ， 脚 注 161 
pattern-match, 329 
pc 寄存 器 (register), 362 
perform (在 寄存 器 机 器 里 ，in register machine) ，348 
模拟 (simulating), 369 
perform-action, 369 
Perlis, Alan J., Æ 1473 
妙语 (quips)， 脚 注 7， 脚 注 11 
Phillips, Hubert， 练 习 4.42 


Pi (1) 
用 拆 半 法 逼近 (approximation with half-interval method) , 
45 
用 蒙特 卡 罗 积 分 和 逼 近 (approximation with Monte Carlo 
integration) ， 练 习 3.5， 练 习 3.82 
Cesaro 估 计 (estimate for), 155, 254 
莱 布 尼 效 级 数 (Leibniz’s series for), #piz49, 233 
JUL (stream of approximations), 233~234 
Wallis 公 式 (formula for), %3 1.31 
Pingala, Acharya, #9 jz39 
pi-stream, 233 
pi-sum, 38 
用 高 阶 过 程 (with higher-order procedures), 39 
用 (with) lambda, 41 
Pitman, Kent M.， 脚 注 2 
Planner， 脚 注 251 
polar?, 120 
polar i, (package), 139 
poly, 139 
polynomial, (package), 139 
pop, 361 
Portable Standard Lisp, #pi£z2 
PowerPC, i4177 
prepositions, 294 
preserving, 401, #35.31, 414, %3 5.37 
prime?, 33, 229 
primes (JC iit, infinite stream), 228 
隐 式 定义 (implicit definition), 229 
prime-sum-pair, 286 
prime-sum-pairs, 83 
无 穷 流 (infinite stream), 235 
primitive-apply, 388 
primitive-implementation, 264 
primitive-procedure?, 261, 265 
primitive-procedure-names, 265 
primitive-procedure-objects, 265 
print 操 作 , 寄存 器 机 器 (operation in register machine) , 
348 
print-point， 练 习 2.2 
print-queue, 练习 3.21 
print-rat, 58 
print-result, 393 
监视 堆栈 版 本 (monitored-stack version), 395 
print-stack-statistics 
probe 
在 约束 系统 里 (in constraint system), 203 
在 数字 电路 模拟 器 里 (in digital-circuit simulator) , 
194 
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proc 寄 存 器 (register), 384 
procedure-body, 261 
procedure-environment, 261 
procedure-parameters, 261 
product, #3 1.31 
作为 积累 (as accumulation), 4 3 1.32 
product?, 101 
Prolog, #34251, Priz262 
prompt-for-input, 265 
propagate, 194 
push, 361 
put, 123, 187 
P 操 作 (信号 量 的 ) (P operation on semaphore), #4172 
qeval, 320, 326 
queens, #42.42 
query-driver-loop, 325 
quote (特殊 形式 ，special form), #4100 
read 和 ， 脚 注 222， 脚 注 285 
quoted?, 255 
quotient (AF, primitive procedure), 4 3.58 
Rabin, Michael O., # 9 1.28 
Ramanujan, Srinivasa， 脚 注 198 
Ramanujan 数 (numbers)， 练 习 3.71 
rand, 155 
带 重 置 (with reset), 4 33.6 
random (基本 过 程 ，primitive procedure), 34 
需要 赋值 (assignment needed for), ， 和 脚注 129 
MIT Scheme， 脚 注 136 
random-in-range, % 33.5 
random-numbers (无 穷 序 列 ，infinite stream), 245 
Raphael, Bertram, #4262 
Raymond, Eric, #4235, #piz250 
RC 电路 (circuit), 4 33.73 
read (基本 过 程 ，primitive procedure) ， 脚 注 222 
点 尾部 记 法 的 处 理 (dotted-tail notation handling by), 
330 
宏 字 符 (macro characters)， 脚 注 285 
read-eval-print-loop, 393 
read 操 作 , 在 寄存 器 机 器 里 (operation in register machine)， 
348 
real-part 
数据 导向 的 (data-directed), 125 
极 坐 标 表 示 (polar representation), 118 
直角 坐标 表示 (rectangular representation), 118 
带 标志 数据 (with tagged data), 121 
real-part-polar, 121 
real-part-rectangular, 120 
rear-ptr, 181 


receivextf™ (procedure), #pjz289 
rectangular?, 120 
Rees, Jonathan A.， 脚 注 217， 脚 注 232 
reg (寄存 器 机 器 ，in register machine), 347 
模拟 (simulating), 369 
register-exp, 370 
register-exp-reg, 370 
registers-modified, 412 
registers-needed, 412 
remainder (基本 过 程 ，primitive procedure), 30 
remainder-terms， 练 习 2.94 
remove, 84 
remove-first-agenda-item!, 194, 197 
require, 288 
作为 特殊 形式 (as a special form) ， 练 习 4.54 
rest-exps, 257 
rest-operands, 257 
restore (寄存 器 机 器 ，in register machine), 355, 4 
535.11 
实现 (implementing), 377 
模拟 (simulating), 369 
rest-segments, 196 
rest-terms, 140, 142 
return (连接 描述 符 ，linkage descriptor), 400 
Reuter, Andreas， 脚 注 176 
reverse, 练习 2.18 
(EA (as folding)， 练 习 2.39 
规则 (rules)， 练 习 4.68 
right-branch, 106 
right-split, 89 
Rivest, Ronald L.， 脚 注 48， 脚 注 106 
RLC 电 路 (circuit) ， 练 习 3.80 
Robinson, J. A.， 脚 注 262 
Rogers, William Barton， 脚 注 89 
root 寄 存 器 (register) ， 脚 注 301 
rotate90, 94 
round (基本 过 程 ，primitive procedure), #34119 
Rozas, Guillermo Juan, #7#325 
RSA 算 法 (algorithm), #piz48 
Runkle, John Daniel， 脚 注 89 
runtime (基本 过 程 ，primitive procedure) ， 练 习 1.22 
same (规则 ，rule)，311 
same-variable?, 100, 139 
save (寄存 器 机 器 ，in register machine), 356, %3 5.11 
实现 (implementing) ，377 
模拟 (simulating), 369 
scale-list, 70, 71, 285 


scale-stream, 229 
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scale-tree, 75 
scale-vect, % 32.46 
scan-out-defines, 练习 4.16 
scan 寄 存 器 (register) 
Scheme, 2 
的 历史 (history of)， 和 脚注 2 
scheme-number->complex, 133 
scheme-number->scheme-number, 练习 2.81 
scheme-number 包 (package), 129 
Scheme 的 编译 器 (compiler for Scheme), 399~402, 4 
代码 生成 器 (code generator) ; 编译 时 环境 (com- 
piletime environment) ， 指 令 序 列 (instruction 
sequence) ; 连接 描述 符 (linkage descriptor) ; H 
标 寄存 器 (target register) 
与 分 析 型 求 值 器 (analyzing evaluator vs.) ，399，400 
赋值 (assignments), 404 
代码 生成 器 (code generators), S.compile-... 
组 合式 (combinations), 407~412 
条 件 (conditionals), 404 
定义 (definitions), 404 
效率 (efficiency), 399~400 
实例 的 编译 (example compilation), 415~419 
与 显 式 控制 求 值 器 (explicit-control evaluator vs.), 
399~400, 4.35.32, 427 
表达 式 语法 过 程 (expression-syntax procedures), 399 
与 求 值 器 连接 (interfacing to evaluator), 425~430 
标号 生成 (label generation)， 脚 注 322 
lambda 表 达 式 (expressions), 406 
词法 地 址 (lexical addressing) ，422~424 
连接 代码 (linkage code), 403 
机 器 操作 的 使 用 (machine-operation use) ， 脚 注 319 
编译 后 代码 (堆栈 使 用 ) 性 能 监视 (monitoring perf- 
ormance (stack use) of compiled code) ，427， 练 
35.45, #3546 
基本 过 程 的 开放 代码 (open coding of primitives), 4% 
习 5.38， 练 习 5.44 
运算 对 象 求 值 的 顺序 (order of operand evaluation) , 
练习 5.36 
过 程 应 用 (procedure applications), 407~412 
5| (quotations), 403 
寄存 器 使 用 (register use), PPiz319, 398, #4326 
运行 编译 代码 (running compiled code), 425, 430 
扫描 出 内 部 定义 (scanning out internal definitions), 
脚注 331， 练 习 5.43 
自 求 值 表 达 式 (self-evaluating expressions), 403 
表达 式 序列 (sequences of expressions) ，406 
堆栈 的 使 用 (stack usage)，401， 练 习 5.31， 练 习 
5.37 


的 结构 (structure of), 399~402 
生成 尾 递归 代码 (tail-recursive code generated by), 
411 
变量 (variables), 403 
Scheme 世 片 (chip), 383, 5-16 
Schmidt, Eric, #972138 
search, 44 
segment-queue, 196 
Segments, 196 
segments->painter, 93 
segment-time, 196 
self-evaluating?, 255 
sequence->exp, 257 
serialized-exchange, 215 
避免 死 锁 (with deadlock avoidance), # 33.48 
set! (特殊 形式 ，special form), 151, 4% JUWUA (assi- 
gnment) 
的 环境 模型 (environment model of) ， 脚 注 141 
的 值 (value of)， 脚 注 130 
set-car! (基本 过 程 ，primitive procedure), 173 
用 向 量 实现 (implemented with vectors), 376 
的 过 程 实现 (procedural implementation of), 179 
的 值 (value of), Ppiz144 
set-cdr! (基本 过 程 ，primitive procedure), 173 
用 向 量 实现 (implemented with vectors), 376 
的 过 程 实现 (procedural implementation of) ，180 
的 值 (value of), ， 脚 注 144 
set-contents!，361 
set-current-time!, 196 
set-front-ptr!, 181 
set-instruction-execution-proc!, 366 
set-rear-ptr!, 181 
set-register-contents!, 359, 362 
set-segments!, 196 
set-signal!, 191, 193 
setup-environment, 264 
set-value!, 200, 204 
set-variable-value!, 261, 263 
Shamir, Adi， 脚 注 48 
shrink-to-upper-right, 94 
Shrobe, Howard E., #74265 
signal-error, 394 
simple-query, 326 
sin (J&A GFE, primitive procedure), 46 
singleton-stream, 336 
SKETCHPAD, #iz159 
smallest-divisor, 33 
更 有 效 的 版 本 (more efficient version), #4 1.23 
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Smalltalk, #pi£159 
Solomonoff, Ray, #pi#134 
solve 微 分 方程 (differential equation), 241~242 
情 性 表 版 本 (lazy-list version), 286 
扫描 出 定义 (with scanned-out definitions ) ， 练 习 4.18 
Spafford, Eugene H.， 脚 注 337 
split， 练 习 2.45 
sqrt, 16 
块 结构 (block structured), 19 
环境 模型 (in environment model), 171~172 
作为 不 动 点 (as fixed point), 46~51 
作为 迭代 改进 (as iterative improvement), 4 9 1.46 
用 牛顿 法 (with Newton’s method), 50 
寄存 器 机 器 (register machine for), 495.3 
作为 流 的 极限 (as stream limit), # 7 3.64 
sqrt-stream, 233 
square, 8 
环境 模型 (in environment model), 163~165 
square-limit, 90~91 
square-of-four, 90 
squarer (#3, constraint), %3 3.34, 493.35 
squash-inwards, 94 
stack-inst-reg-name, 369 
Stallman, Richard M.， 脚 注 159， 脚 注 251 
start-eceval， 上 脚注 334 
start-segment， 练 习 2.2， 练 习 2.48 
start 寄 存 器 机 器 (register machine), 359, 362 
statements, 413 
Steele, Guy Lewis Jr.， 脚 注 2， 脚 注 31， 脚 注 139， 脚 注 
159， 脚 注 235， 脚 注 250 
Stoy, Joseph E.， 脚 注 15， 脚 注 41， 脚 注 231 
Strachey, Christopher， 脚 注 64 
stream-append, 237 
stream-append-delayed, 335 
stream-car, 221, 222 
stream-cdr, 221, 222 
stream-enumerate-interval, 223 
stream-filter, 223 
stream-flatmap, 336, #3 4.74 
stream-for-each, 222 
stream-limit, % 33.64 
stream-map, 222 
带 多 个 参数 (with multiple arguments), %3 3.50 
stream-null?, 222 
{EMIT Scheme 里 ， 脚 注 182 
stream-ref, 222 
stream-withdraw, 247 
sub (通用 型 ，generic) 129 





sub-complex, 118 
sub-interval, 练习 2.8 
sub-rat, 56 
sub-vect， 练 习 2.46 
sum, 38 
作为 积累 (as accumulation) ， 练 习 1.32 
迭代 版 本 (iterative version) ， 练 习 1.30 
sum?, 101 
sum-cubes, 38 
高 阶 过 程 (with higher-order procedures), 39 
sum-integers, 38 
高 阶 过 程 (with higher-order procedures), 39 
sum-odd-squares, 76, 79 
sum-of-squares, 8 
环境 模型 (in environment model), 165 
sum-primes, 221 
Sussman, Gerald Jay， 脚 注 3， 脚 注 31， 脚 注 1$39， 脚 注 251 
Sutherland, Ivan， 脚 注 159 
symbol? (基本 过 程 ，primitive procedure), 100 
和 数据 类 型 (datatypes and) ， 练 习 2.78 
用 带 类 型 指针 实现 (implemented with typed pointers), 
377 
symbol-leaf, 112 
Symbols, 112 
SYNC, #932177 
tack-on-instruction-sequence, 414 
tagged-list?, 255 
Teitelman, Warren ， 脚 注 2 
term-list, 139 
test (寄存 器 机 器 ，in register machine), 346 
模拟 (simulating) ，368 
test-and-set!，217， 脚 注 172 
test-condition，368 
text-of-quotation, 255 
Thatcher, James W., #471 
the-cars 
寄存 器 (register), 376, 379 
向 量 (vector), 375 
the-cdrs 
寄存 器 (register), 376, 379 
向 量 (vector), 375 
the-empty-stream, 222 
{EMIT Scheme, Jy j= 182 
the-empty-termlist, 140, 142 
the-global-environment, 264, #piz314 
theta of fin) (QO( f(n))), 28 
THE 多 道 程序 设计 系统 (THE Multiprogramming System) , 
脚注 172 
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timed-prime-test, %3 1.22 
TK!Solver, #piz159 
transform-painter, 94 
transpose 一 个 矩阵 (a matrix), 492.37 
tree->list...， 练 习 2.63 

tree-map， 练 习 2.31 

true， 脚 注 17 

true?, 261 

try-again, 289 

Turner, David， 脚 注 84， 脚 注 196， 肢 注 201 
type-tag, 119 


使 用 Scheme 数据 类 型 (using Scheme data types)， 练 


习 2.78 
unev 寄 存 器 (register), 383 
unify-match，331 
union-set，103 
二 叉 树 表示 (binary-tree representation)， 练 习 2.65 
排序 表 表 示 (ordered-list representation) ， 练 习 2.62 
未 排序 表 表 示 (unordered-list representation), #7 
2.59 
unique (查询 语言 ，query language) ， 练 习 4.75 
unique-pairs, 练习 2.40 
UNIX， 脚 注 317， 脚 注 337 
unknown-expression-type, 393 
unknown-procedure-type, 394 
update-insts!, 365 
upper-bound， 练 习 2.7 
up-split， 练 习 2.44 
user-initial-environment (MIT Scheme)， 上 脚注 
226 
user-print, 266 
为 编译 代码 而 做 的 修改 (modified for compiled code) , 
脚注 334 
value-proc, 367 
val 寄 存 器 (register), 383 
variable, 139 
variable?, 100, 255 
vector-ref (基本 过 程 ，primitive procedure) ，374 
vector-set! (基本 过 程 ，primitive procedure), 374 
Verbs，292 
Wadler, Philip， 脚 注 138 
Wadsworth, Christopher， 脚 注 200 
Wagner, Eric G.， 脚 注 71 
Walker, Francis Amasa， 脚 注 89 
Wallis, John， 脚 注 52 
Wand, Mitchell， 脚 注 206， 脚 注 308 
Waters, Richard C.， 脚 注 81 
weight, 112 


weight-leaf, 112 
Weyl, Hermann, 53 
wheel (规则 ，rule)，311 
width, 64 
Wilde, Oscar (Perlis 的 释义 (paraphrase of)), ， 脚 注 7 
Wiles, Andrew， 脚 注 45 
Winograd, Terry， 脚 注 251 
Winston, Patrick Henry， 有 和 脚注 251， 脚 注 257 
Wisdom, Jack， 上 脚注 3 
Wise, David S.， 脚 注 186 
withdraw, 151 
并 发 系统 里 的 问题 (Problems in concurrent system)， 
208 
without-interrupts， 脚 注 164 
Wright, E. M.， 脚 注 191 
Wright, Jesse B.， 脚 注 71 
xcor-vect, #42.46 
Xerox Palo Alto Research Center, Ppiz2, #4159 
ycor-vect, 练习 2.46 
Yochelson, Jerome C.， 脚 注 300 
Y 运 算 符 (operator) ， 脚 注 231 
Zabih, Ramin， 脚 注 251 
Zetalisp， 脚 注 2 
Zilles, Stephen N.， 脚 注 71 
Zippel, Richard E.， 脚 注 128 
爱丁堡 大 学 (University of Edinburgh) ， 脚 注 262 
按 名 调用 参数 传递 (call-by-name argument passing) ， 脚 
注 186， 脚 注 240 
按照 历史 回溯 (chronological backtracking) 289 
按 需 参数 传递 (call-by-need argument passing) ， 脚 注 
186， 脚 注 240 
记忆 性 (memoization and)， 脚 注 192 
八 皇 后 谜 题 (eight-queens puzzle) ， 练 习 2.42， 练 习 4.44 
半 加 器 (half-adder), 189 
half-adder, 190 
的 模拟 (simulation of), 194~195 
43, (package), 124 
复数 (complex-number), 130 
极 坐 标 表示 (polar representation), 125 
多 项 式 (polynomial) ，139 
有 理 数 (rational-number) 129 
直角 坐标 表示 (rectangular representation), 123 
Scheme 的 数 (Scheme-number) ，129 
保留 字 (reserved words) ， 练 习 5.38， 练 习 5.44 
被 监视 的 过 程 (monitored procedure) ， 练 习 3.2 
被 开 方 数 (radicand) 15 
本 机 语言 (native language of machine) ，397 
毕 达 哥 拉 斯 三 元 组 (Pythagorean triples) 
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用 非 确定 性 程序 (with nondeterministic programs) , 
练习 4.35， 练 习 4.36， 练 习 4.37 
用 流 (with streams) ， 练 习 3.69 
HE (closure), 55 
抽象 代数 里 (in abstract algebra) ， 脚 注 72 
cons 的 闭 包 性 质 (closure property of cons), 66 
图 形 语言 操作 的 闭 包 性 质 (closure property of picture- 
language operations), 86, 87 
许多 语言 里 缺少 (lack of in many languages), Mpj#73 
编码 (code) 
ASCII, 109 
定 长 (fixed-length), 110 
Huffman， 见 Huffman 编 码 (code), 109 
莫 尔 斯 (Morse), 110 
前 级 (prefix), 110 
变 长 (variable-length), 110 
编译 (compilation) ， 见 编译 器 (compiler) 
编译 器 (compiler), 398~399 
与 解释 器 (interpreter vs.), 398~399, 427 
尾 递归 ， 堆 栈 分 配 和 废料 收集 (tail recursion, stack 
allocation, and garbage-collection) ， 脚 注 325 
编译 时 环境 (compile-time environment) ， 练 习 5.40 
和 开放 代码 (open coding and) ， 练 习 5.44 
变 长 编码 (variable-length code)，110 
变动 函数 (mutator). 173 
变动 数据 对 象 (mutable data objects), 173~180, 4% BA 
列 (queue) ; 表格 (table) 
变量 (variable)，5， 另 见 局 部 变量 (local variable) 
约束 的 (bound), 18 
自由 的 (free), 18 
作用 域 (scope of)，18， 另 见 变 量 的 作用 域 (scope of 
a variable) 
未 约束 的 (unbound), 162 
值 (value of) ，162 
变量 的 作用 域 (scope of a variable), 18, 3 Ride (eh 
域 (lexical scoping) 
内 部 的 (internal) define, 269 
在 (in) let#, 43 
过 程 的 形式 参数 (procedure’s formal parameters), 19 
标记 一 清扫 废料 收集 器 (mark-sweep garbage collector) , 
脚注 300 
表 (list), 66 
与 反 引 号 (backquote with) ， 脚 注 321 
cdr (cdring down), 67 
与 append 组 合 (combining with append), 68 
cons 上 去 (consing up), 68 
将 二 叉 树 变换 到 (converting a binary tree toa), #3 
2.63 


变换 到 二 又 树 (converting to a binary tree), 4 4 2.64 
Æ (empty) ， 见 空 表 (empty list) 
的 相等 (equality of) ， 练 习 2.54 
带头 单元 的 (headed), ，183， 脚 注 156 
的 最 后 序 对 (last pair of) ， 练 习 2.17 
情 性 (lazy), 283~286 
的 长 度 (length of), 68 
与 表 结 构 (list structure vs.) ， 脚 注 74 
用 car,，cdr 和 cons 操 作 (manipulation with car, 
cdr, and cons), 66 
映射 (mapping over), 70~72 
的 第 n 个 元 素 (nth element of), 67 
上 的 操作 (operations on)，67~70 
的 打印 表示 (printed representation of) ，66 
引号 (quotation of), 97 
翻转 (reversing), #3 2.18 
操作 技术 (techniques for manipulating), 67~70 
KIKA (expression) ， 另 见 复合 表达 式 (compound exp- 
ression) ; 基本 表达 式 (primitive expression) 
代数 (algebraic) ， 见 代数 表达 式 (algebraic expr- 
essions ) 
自 求 值 (self-evaluating), 252 
符号 (symbolic) ，55 另 见 符 号 (symbol) 
表达 式 风 格 (expression-oriented programming) ， 牌 注 161 
表达 式 求 值 的 顺序 (order of subexpression evaluation) , 
见 求 值 顺序 (order of evaluation ) 
表达 式 序 列 (sequence of expressions ) 
在 cond 的 推论 部 分 (in consequent of cond)， 脚 注 19 
过 程 体 里 (in procedure body)， 脚 注 14 
表格 (table), 183~188 
的 骨架 (backbone of), 184 
为 强制 (for coercion), 133 
用 于 数据 导向 的 程序 设计 (for data-directed progr- 
amming)，123 
局 部 (local), 186~187 
n 维 (n-dimensional), 4; 5 3.25 
一 维 (one-dimensional), 184~185 
操作 和 类 型 (operation-and-type) ， 见 操作 和 类 型 表格 
(operation-and-type table) 
用 二 叉 树 表示 与 用 未 排序 表 表 示 (represented as binary 
tree vs. unordered list) ， 练 习 3.26 
检测 键 值 相等 (testing equality of keys) ， 练 习 3.24 
两 维 (two-dimensional) ，185 
用 于 模拟 的 待 处 理 表 (used in simulation agenda), 
195 
用 于 保存 计算 出 的 值 (used to store computed values) , 
练习 3.27 
表 结 构 (list structure), 57 
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5# (list vs.), Peiz136 
变动 的 (mutable), 173~176 
用 向 量 表示 (represented using vectors), 375~378 
表 结 构 存 储 器 (list-structured memory), 374~383 
表 尾 标记 (end-of-list marker)， 脚 注 74， 脚 注 76 
表 里 的 循环 (cycle in list)， 练 习 3.13 
检查 (detecting)， 练 习 3.18 
表 列 (tableau)，234 
表 列 法 〈tabulation) ， 脚 注 34， 练 习 3.27 
表 求 值 的 尾 递 归 (evils tail recursion) ， 脚 注 308 
别名 (aliasing)， 和 脚注 138 
并 发 性 (concurrency), 206~220 
并 发 程序 的 正确 性 (correctness of concurrent progr- 
ams), 209~210 
死 锁 (deadlock), 218~219 
和 函数 式 程序 设计 (functional programming and), 
247 
控制 机 制 (mechanisms for controlling), 210~219 
FETE (parallelism), JF% (concurrency) 
捕获 了 自由 变量 (capturing a free variable), 19 
不 动 点 (fixed point), 45~48 
用 计算 器 计算 (computing with calculator), ， 脚 注 57 
余弦 的 (of cosine), 46 
立方 根 作为 (cube root as), 49 
四 次 方 根 作 为 (fourth root as ) ， 练 习 1.45 
黄金 分 割 作 为 (golden ratio as) ， 练 习 1.35 
作为 迭代 改进 (as iterative improvement) ， 练 习 1.46 
在 牛顿 法 里 (in Newton’s method), 49 
?次 方 根 作为 (nth root as) ， 练 习 1.45 
平方 根 作 为 (square root as), 46, 49, 50 
恋 换 函数 的 (of transformed function), 50 
合 一 和 (unification and)， 脚 注 284 
不 可 计算 (non-computable) ， 脚 注 227 
参数 传递 (argument passing) ， 见 按 名 参数 传递 (call- 
by-name argument passing) ; 按 需 参 数 传递 (call-by- 
need argument passing) 
操作 (operation) 
跨 类 型 (cross-type), 132 
通用 型 (generic), 55 
在 寄存 器 机 器 里 (in register machine) ，344~345 
操作 ， 寄 存 器 机 器 (operation in register machine), 372 
操作 一 类 型 表格 (operation-and-type table), 123 
所 需 的 赋值 (assignment needed for), ， 脚 注 130 
实现 (implementing), 187 
# (thunk), 278~279 
按 名 调用 (call-by-name), Mp iz 186 
按 需 调用 (call-by-need)， 脚 注 186 
强迫 求 值 (forcing), 278 
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实现 (implementation of), 281~282 
名 字 的 由 来 (origin of name), #74238 
层次 性 结构 (hierarchical structures), 6, 72~75 
查询 (query)，306， 另 见 简单 查询 (simple query); 复 
合 查询 (compound query) 
查询 解释 器 (query interpreter), 306 
加 入 规则 或 断言 (adding rule or assertion), 320 
复合 查询 (compound query) ， 见 复合 查询 (compound 
query) 
数据 库 (data base), 333~335 
驱动 循环 (driver loop), 320, 325~326 
环境 结构 (environment structure in), 494.79 
框架 (frame), 315, 338 
改进 (improvements to), %4% 34.67, 4% 34.76, %3 
4.77 
无 穷 循环 (infinite loops), 322, #3 4.67 
实例 化 (instantiation), 325 
与 Lisp 解 释 器 (Lisp interpreter vs.), 319, 320, %3 
4.79 
概述 (overview), 315~320 
模式 匹配 (pattern matching), 315, 328~329 
模式 变量 表示 (pattern-variable representation), 325, 
336~337 
与 not 和 1isp-value 有 关 的 问题 (problems with 
not and lisp-value)，321~322， 练 习 4.77 
查询 求 值 器 (query evaluator), 320, 326~328 
规则 (rule) ， 见 规则 (rule) 
简单 查询 (simple query) ，308~309 
流 操作 (stream operations), 335 
框架 流 (streams of frames), 315, #piz278 
查询 语言 的 语法 (syntax of query language), 336~337 
&— (unification), 318 
查询 语言 (query language), 306~314 
抽象 (abstraction in), 311 
复合 查询 (compound query), 310~311 
数据 库 (data base), 306~308 
相等 检测 (equality testing in) ， 脚 注 268 
扩充 (extensions to) ， 练 习 4.66， 练 习 4.75 
逻辑 推理 (logical deductions), 313~314 
与 数理 逻辑 (mathematical logic vs.), 321~324 
规则 (rule), 311~314 
简单 查询 (simple query), 308~309 
长 庚 星 (evening star) ， 见 金星 (Venus) 
常规 的 数 (在 通用 型 算术 系统 里 ) (ordinary numbers 
(in generic arithmetic System ) ) 129 
抄录 (snarf) ， 脚 注 235 
超 类 型 (supertype)，135 
多 个 (multiple), 135 
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成 功 继续 ( 非 确 定性 求 值 器 ) (success continuation 
(nondeterministic evaluator) ), 296~297 
程序 (program), 1 
作为 抽象 机 器 (as abstract machine), 266 
注释 (comments in), #787 
作为 数据 (as data), 266~268 
的 递增 开发 (incremental development of), 6 
的 结构 (structure of), 6, 17, 19~20, 3 BHRI 
障 (abstraction barriers ) 
带 有 子 程序 结构 (structured with subroutines), Piz 
223 
程序 错误 (bug), 1 
捕获 了 自由 变量 (capturing a free variable), 19 
赋值 的 顺序 (order of assignments), 161 
别名 的 副作用 (side effect with aliasing), #7#138 
程序 的 递增 开发 (incremental development of programs) , 
5 
程序 的 正确 性 (correctness of a program)， 上 和 脚注 20 
程序 计数 器 (program counter), 362 
程序 设计 (programming) 
数据 导向 的 (data-directed) ， 见 数据 导向 的 程序 设计 
(data-directed programming ) 
命令 驱动 的 (demand-driven) 224 
的 要 素 (elements of), 3 
函数 式 (functional), ， 见 函数 式 程序 设计 (functional 
programming) 
MA (imperative), 160 
Hy PSA (odious style), #34187 
程序 设计 语言 (programming language), 1 
的 设计 (design of) ，276 
国 数 式 (functional), 247 
逻辑 (logic), 306 
面向 对 象 (object-oriented), #piz118 
强 类 型 (strongly typed) ， 脚 注 200 
甚 高 级 (very high-level) ， 脚 注 20 
抽象 (abstraction) ， 另 见 抽象 手段 (means of abstracti- 
on) ; 数据 抽象 (data abstraction) ; 高 阶 过 程 (hig- 
herorder procedures) 
公共 模式 和 (common pattern and)，38 
元 语言 (metalinguistic) 250 
过 程 性 的 (procedural)，17 
寄存 器 机 器 设计 里 (in register-machine design)， 
348~351 
非 确定 性 程序 设计 里 搜索 的 (of search in nondetermi- 
nistic programming), 290 
抽象 的 方法 (means of abstraction), 3 
define, 5 
抽象 屏障 (abstraction barriers), 54, 58~60, 115 
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复数 系统 里 (in complex-number system), 116 
通用 算术 系统 里 (in generic arithmetic system), 128 
抽象 数据 (abstract data) ，55， 另 见 数据 抽象 (data abs- 
traction ) 
抽象 语法 (abstract syntax) 
元 循环 求 值 器 里 (in metacircular evaluator) ，252 
查询 解释 器 里 (in query interpreter), 325 
稠密 多 项 式 (dense polynomial), 142 
$ (string) ， 见 字符 串 (character string) 
串 行 化 器 (serializer), 211~213 
实现 (implementing), 216~218 
带 有 多 项 共享 资源 (with multiple shared resources), 
214~216 
《创世纪 》 Genesis, $% 3) 4.63 
词法 地 址 (lexical addressing), 422~424 
词法 作用 域 (lexical scoping), 20 
环境 结构 和 (environment structure and), 422 
存储 器 (memory) 
在 (in) 1964， 和 脚注 249 
表 结 构 的 (list-structured)，374~383 
错误 处 理 (error handling) 
在 编译 代码 里 (in compiled code)， 脚 注 337 
在 显 式 控制 求 值 器 里 (in explicit-control evaluator), 
393， 练 习 5.30 
打印 ， 基 本 操作 (printing, primitives for) ， 脚 注 70 
大 数 (bignum), 376 
代码 生成 器 (code generator), 399 
的 参数 (arguments of) ，400 
的 值 (value of) ，400 
代数 ， 符 号 (algebra, symbolic)， 见 符号 代数 (symbolic 
algebra) 
代数 表达 式 (algebraic expression), 138 
求 导 (differentiating), 99~103 
表示 (representing), 100~103 
化 简 (simplifying), 101~102 
带 标志 数据 (tagged data), 119~122, #Riz292 
带 点 尾部 记 法 (dotted-tail notation) 
过 程 参数 (for procedure parameters ) ， 练 习 2.20， 脚 
注 113 
在 查询 模式 里 (in query pattern), 309, 329 
在 查询 语言 规则 里 (in query-language rule), 313 
read 和 (and), 329 
带 类 型 的 指针 (typed pointer), 375 
带头 表 头 单元 的 表 (headed list), ，184， 脚 注 156 
待 处 理 表 (agenda)， 见 数字 电路 模拟 (digital-circuit 
simulation) 
单 变 元 多 项 式 (univariate polynomial)，138 
单位 正方 形 (unit square) ，91 
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单元 ， 在 串 行 化 实现 里 (cell, in serializer implementa- 
tion), 217 
当前 时 间 ， 对 于 待 处 理 表 (current time, for simulation 
agenda) ，196 
地 球 ， 测 量 周 长 (Earth, measuring circumference of), 
脚注 188 
地 址 (address)，374 
地 址 算术 (address arithmetic) ，374 
递归 (recursion), 6 
数据 导向 的 (data-directed), 141 
表达 复杂 的 计算 过 程 (expressing complicated process), 6 
在 规则 里 (in rules)，312 
对 树 工 作 (in working with trees) ，72 
递归 方程 (recursion equations) ，2 
递归 过 程 (recursive procedure) 
递归 的 过 程 定义 (recursive procedure definition), 17 
与 递归 的 计算 过 程 recursive process vs.，23 
不 用 define 描 述 (specifying without aefine)， 练 
习 4.21 
递归 计算 过 程 (recursive process)，23 
和 迭代 计算 过 程 (iterative process vs.) ，20~24， 练 习 
3.9, 354, %3 5.34 
线性 (linear), 22, 28 
与 递归 过 程 (recursive procedure vs.), 23 
寄存 器 机 器 (register machine for), 354~358 
树 (tree), 24~27 
递归 论 (recursion theory), #piz224 
点 ， 用 序 对 表示 (point, represented as a pair), #9 2.2 
电路 (circuit) 
数字 的 (digital)， 见 数字 电路 模拟 (digital-circuit 
simulation ) 
用 流 模拟 (modeled with streams ) ， 练 习 3.73 ， 练 习 
3.80 
电子 线路 ， 用 流 模 拟 (electrical circuits, modeled with 
streams ) ， 练 习 3.73， 练 习 3.80 
电阻 (resistance) 
电阻 器 并 联 公式 (formula for parallel resistors), 62, 
64 
电阻 器 的 误差 (tolerance of resistors), 62 
迭代 式 改进 (iterative improvement), ， 练 习 1.46 
迭代 过 程 (iterative process), 22 
作为 流 过 程 (as a stream process), 232~235 
算法 设计 (design of algorithm), #3 1.16 
通过 过 程 调用 实现 (implemented by procedure call), 
15~16, 23, 391, 4% D236 (tail recursion) 
线性 (linear), 22, 28 
与 递归 过 程 (recursive process vs.), 21~24, #9 3.9, 
354, 2% 35.34 
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寄存 器 机 器 (register machine for), 354 
迭代 计算 过 程 的 不 变量 (invariant quantity of an iterative 
process)， 练 习 1.16 
迭代 结构 (iteration contructs ) ， 见 循环 结构 (looping 
constructs ) 
定 长 编码 (fixed-length code), 110 
定 积 分 (definite integral), 39 
用 蒙特 卡 罗 模 拟 估 计 (estimated with Monte Carlo 
simulation), #393.5, #33.82 
定理 证 明 ， 自 动 (theorem proving, automatic), Piz 
262 
定义 (definition)， 见 define; 内 部 定义 (internal defi- 
nition) 
丢 番 图 的 算术 (Diophantus’s Arithmetic), REWR 
本 (Fermat's copy of)， 脚 注 45 
动作 ， 寄 存 器 机 器 里 (actions, in register machine), 
348 
逗号 , 与 反 引 号 一 起 使 用 (comma, used with backquote ) , 
脚注 321 
读 入 器 宏 字 符 (reader macro character) ， 脚 注 285 
读 入 一 求 值 一 打印 循环 (read-eval-print loop) ，5， 另 见 
驱动 循环 (driver loop) 
断 点 (breakpoint)， 练 习 5.19 
断言 (assertion), 307 
隐 式 (implicit), 312 
堆栈 (stack) ， 脚 注 30 
HE42N) (framed), #34306 
在 寄存 器 机 器 里 做 递归 (for recursion in register mac- 
hine) ，354~358 
表示 (representing), 361, 377 
堆栈 分 配 和 尾 递 归 (stack allocation and tail recursion), 
脚注 325 
队列 (queue)，180~183 
双 端 (double-ended) ， 练 习 3.23 
首部 (front of), 180 
操作 (operations on), 181 
的 过 程 实现 (procedural implementation of), #3 
3.22 
尾部 (rear of), 180 
模拟 待 处 理 表 (in simulation agenda), 196 
对 Scheme 的 显 式 控 制 求 值 器 (explicit-control evaluator 
for Scheme), 383~397 
赋值 (assignments), 392 
组 合式 (combinations), 385~388 
复合 过 程 (compound procedures), 388 
条 件 (conditionals), 391 
控制 器 (controller), 384~394 
数据 通路 (data paths), 383 
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定义 (definitions), 392 

派生 表达 式 (derived expressions), #; 923 

驱动 循环 (driver loop), 393 

错误 处 理 (error handling), 393, 435.30 

没有 需要 求 值 的 子 表达 式 的 表达 式 (expressions with 
no subexpressions to evaluate), 384~385 

作为 机 器 语言 程序 (as machine-language program), 397 

机 器 模型 (machine model) ，394 

为 编译 代码 而 做 的 修改 (modified for compiled code), 
425~426 

监视 执行 情况 (堆栈 使 用 ) (monitoring performance 
(stack use) ) 395~396 

正则 序 求 值 (normal-order evaluation), # 95.25 

运算 对 象 求 值 (operand evaluation), 386~387 

操作 (operations) ，383 

优化 (附加 ) (optimizations (additional) ) ， 练 习 5.32 

基本 过 程 (primitive procedures), 388 

过 程 应 用 (procedure application), 385~388 

寄存 器 (registers), 383 

运行 (running), 393~395 

表达 式 序 列 (sequences of expressions), 388~391 

特殊 形式 (附加) (special forms (additional)), 43 
5.23， 练 习 5.24 

堆栈 使 用 (stack usage), 385 

尾 递归 (tail recursion), 389~391 

作为 通用 机 器 (as universal machine), 397 

对 数 型 增长 (logarithmic growth), 29, 30, #piz104 

Xt (object), 149 

用 对 象 模拟 的 优势 (benefits of modeling with), 154 

有 随时 间 变 化 的 状态 (with time-varying state), 150 

对 象 表 (obarray) ，376 

多 项 式 (polynomial), 138~147 

规范 形式 (canonical form), 144 

稠密 (dense), 142 

用 Horner 规 则 求 值 (evaluating with Horner’s rule), 
练习 2.34 

类 型 的 层次 结构 (hierarchy of types) ，143 

未 定 元 (indeterminate of) ，138 

fii (sparse), 142 

单 变量 (univariate), 138 

项 表 (term list of polynomial), 139 

多 项 式 算 术 (polynomial arithmetic), 138~147 

加 法 (addition) ，139 

除法 (division), # 2.91 

欧 几 里 得 算法 (Euclid’s Algorithm), #iż126 

最 大 公 因 子 (greatest common divisor), ，145， 脚 注 128 

与 通用 算术 系统 结合 (interfaced to generic arithmetic 
system), 139 


乘法 (multiplication), 139 
GCD 的 概率 算法 (probabilistic algorithm for GCD), Æ 
7£128 
有 理 国 数 (rational functions), 144 
减法 (subtraction ) ， 练 习 2.88 
惰性 表 (lazy list), 284~286 
惰性 求 值 器 (lazy evaluator), 276~284 
惰性 树 (lazy tree) ， 脚 注 245 
惰性 序 对 (lazy pair), 284~286 
俄罗斯 农民 的 乘法 方法 (Russian peasant method of 
multiplication), #340 
Jef 4 Æ (Eratosthenes), #188 
JER & Æ: (sieve of Eratosthenes), 227 
sieve, 227 
— MH (binary tree), 105 
平衡 (balanced), 106 
将 表 变 换 到 (converting a list toa), 42.64 
变换 到 表 (converting to a list), 4% 32.63 
Huffman 编 码 (encoding), 109 
用 表 表 示 (represented with lists), 106 
将 集合 表示 为 (sets represented as), 105~109 
将 表格 构造 为 (table structured as) ， 练 习 3.26 
二 分 搜索 (binary search), 106 
二 进 制 数 加 法 (binary numbers, addition of) ， 见 加 法 器 
(adder) 
二 项 式 系数 (binomial coefficients) ， 脚 注 35 
反馈 循环 ， 用 流 模 拟 (feedback loop, modeled with 
streams), 241 
反 门 (inverter), 189 
inverter, 191 
反 引 号 (backquote), ， 脚 注 321 
反正 切 (arctangent)， 脚 注 110 
返回 多 个 值 (returning multiple values) ， 脚 注 289 
方程 ， 求 解 (equation, solving)， 见 折 半 法 (half-interval 
method) ; 牛顿 法 (Newton’s method) ; solve 
方程 的 根 (roots of equation)， 见 折 半 法 (half-interval 
method) ; 牛顿 法 (Newton's method) 
非 确定 性 ， 并 发 程序 的 行为 (nondeterminism, in behavior 
of concurrent programs), ， 脚 注 167， 脚 注 203 
非 确定 性 程序 (nondeterministic programs ) 
逻辑 谜 题 (logic puzzles), 290~291 
和 为 素数 的 数 对 (pairs with prime sums), 286 
分 析 自 然 语 言 (parsing natural language) ，291~295 
毕 达 哥 拉 斯 三 元 组 (Pythagorean triples) ， 练 习 4.35 ， 
练习 4.36， 练 习 4.37 
非 确 定性 计算 的 程序 设计 (nondeterministic programming) , 
286， 练 习 4.41， 练 习 4.44， 练 习 4.78 
韭 确定 性 计算 (nondeterministic computing), 286~296 
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非 确定 性 求 值 器 (nondeterministic evaluator), 296~304 
运算 对 象 的 求 值 顺序 (order of operand evaluation), 
练习 4.46 
非 确定 性 的 选择 点 (nondeterministic choice point) ，288 
韭 严格 (non-strict) 277 
斐 波 那 契 数 (Fibonacci numbers), 24, 4% fib 
欧 几 里 得 GCD 算 法 和 (Euclid's GCD algorithm and), 32 
的 无 穷 流 (infinite stream of) ， 见 Eibs 
废料 收集 (garbage collection), 378~383 
记忆 和 (memoization and), #4241 
变动 和 (mutation and)， 脚 注 145 
尾 递归 和 (tail recursion and)， 和 脚注 325 
废料 收集 器 (garbage collector) 
紧缩 式 (compacting) ， 脚 注 300 
标记 清扫 (mark-sweep)， 脚 注 300 
停止 并 复制 (stop-and-copy), 378~383 
费 马 (Fermat, Pierre de), ， 脚 注 45 
费 马 小 定理 (Fermat's Little Theorem), 34 
另 一 形式 (alternate form) ， 练 习 1.28 
证 明 (proof), 脚注 45 
分 层 设计 (stratified design) ，95 
分 隔 符 (separator code) ，110 
分 号 (semicolon) ， 脚 注 11 
引入 注释 (comment introduced by) ， 脚 注 87 
分 号 的 癌症 (cancer of the semicolon), #3411 
分 解 ， 程 序 (decomposition of program into parts), 17 
分 派 (dispatching) 
不 同 风格 的 比较 (comparing different styles), #3 
2.76 
基于 类 型 (on type)，122， 另 见 数 据 导 向 的 程序 设计 
(data-directed programming ) 
分 情况 分 析 (case analysis) 
与 数据 导向 的 程序 设计 (data-directed programming 
vs.), 253 
一 般 的 (general), 5 cond, 11 
分 两 种 情况 (with two cases, if), 12 
分 数 (fraction), A FER (rational number) 
分 析 型 求 值 器 (analyzing evaluator), 273~276 
作为 非 确定 性 求 值 器 的 基础 (as basis for nondeterm- 
inistic evaluator), 296 
let, #74.22 
分 析 自 然 语言 (parsing natural language), 292~294 
真实 世界 的 自然 语言 理解 与 玩具 式 的 语法 分 析 (real 
language understanding vs. toy parser), ， 脚 注 257 
封 团 世界 假设 (closed world assumption), 323 
封装 (encapsulated), #piz132 
符号 (symbol), 96 
相等 (equality of), 98 
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加 入 (interning), 376 
引号 (quotation of), 97 
表示 (representation of), 376 
唯一 性 (uniqueness of), ， 脚 注 147 
符号 表达 式 (symbolic expression), 55, 4% UPS 
(symbol) 
符号 代数 (symbolic algebra), 138~147 
符号 微分 (symbolic differentiation), 99~102 
负 号 ， 肢 注 18 
复合 表达 式 (compound expression), 3-43 RAAK 
(combination) ;特殊 形式 (special form) 
作为 组 合式 的 运算 符 (as operator of combination) , 
练习 1.4 
复合 查询 (compound query), 310~311 
处 理 (processing), 316~318, 326~328, #3 4.75, 
% 34.76, %3 4.77 
复合 过 程 (compound procedure), ，8， 另 见 过 程 (proce- 
dure) 
像 基本 过 程 一 样 用 (used like primitive procedure), 
8~9 
复合 数据 (compound data), 53 
复数 (complex numbers) 
极 坐 标 表 示 (polar representation), 116 
直角 坐标 表示 (rectangular representation) ，117 
直角 坐标 与 极 坐标 形式 (rectangular vs. polar form), 
117 
表示 为 带 标志 数据 (represented as tagged data), 
119~121 
复数 算术 (complex-number arithmetic), 116 
与 通用 算术 系统 结合 (interfaced to generic arithmetic 
system), 129~131 
AGMA (structure of system), 2-21 
副作用 错误 (side-effect bug), Ppiz138 
赋值 (assignment), 149~154, 4% Rset! 
的 优势 (benefits of), 154~157 
与 之 有 关 的 错误 (bugs associated with) ， 脚 注 138 ， 
160~161 
的 代价 (costs of), 157~162 
赋值 运算 符 (assignment operator), 150, 4% Uset! 
概率 算法 (probabilistic algorithm), 34~35, #piz128, 
脚注 188 
高 级 语言 ， 与 机 器 语言 (high-level language, machine 
language vs.), 249 
高 阶 过 程 (higher-order procedures), 37 
元 循环 求 值 器 里 (in metacircular evaluator) ，209 
过 程 作 为 参数 (procedure as argument), 37~40 
过 程 作为 通用 方法 (procedure as general method), 
44~48 
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过 程 作 为 返回 值 (procedure as returned value), 
48~52 
强 类 型 和 (strong typing and), #7200 
格式 化 输入 表达 式 (formatting input expressions), iz 
6 
工程 与 数学 (engineering vs. mathematics) ， 脚 注 47 
功能 块 ， 数 字 电 路 里 (function box, in digital circuit), 
189 
共享 数据 (shared data), 177~178 
共享 状态 (shared state), 209 
共享 资源 (shared resources), 214~216 
构造 函数 (constructor), 55 
作为 抽象 屏障 (as abstraction barrier), 59 
故障 (glitch), 1 
关系 ， 基 于 关系 的 计算 (relations, computing in terms 
of), 198, 305 
归并 无 穷 流 (merging infinite streams), RICA ie 
(infinite stream ) 
上 归结 原理 ，Horn 子 句 (resolution, Horn-clause), iż 
262 
归 约 到 最 低 项 (reducing to lowest terms), 58~59, 
146~147 
规范 形式 ， 多 项 式 (canonical form, for polynomials) , 
144 
规则 (查询 语言 ) (rule (query language)), 311~314 
应 用 (applying)，319~320，329~330， 练 习 4.79 
没有 体 (without body)， 脚 注 270，313，328 
国际 象棋 , 八 皇 后 谜 题 (chess, eight-queens puzzle)， 练 
习 2.42， 练 习 4.44 
过 程 (procedure), 3 
匿名 (anonymous)，41 
任意 数目 的 参数 (arbitrary number of arguments) ，4， 
练习 2.20 
作为 实际 参数 (as argument), 37~40 
作为 黑箱 (as black box), 17 
体 (body of), 8 
复合 (compound), 8 
用 aefine 构 造 (creating with define), 8 
用 lambda 构 造 (creating with lambda), 41, 162, 
164 
作为 数据 (as data), 3 
定义 (definition of), 8~9 
在 Lisp 里 为 一 级 (first-class in Lisp), 51 
形式 参数 (formal parameters of) ，8 
作为 通用 方法 (as general method), 44~48 
iH FA (generic), 113, 116 
高 阶 (higher-order) ， 见 高 阶 过 程 (higher-order proc- 
edure) 
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体内 隐 含 的 begin (implicit begin in body of), Æ 
注 131 
与 数学 函数 (mathematical function vs.), 13~14 
记忆 性 (memoized)， 练 习 3.27 
带 监 视 的 (monitored), % 33.2 
名 字 (name of), 8 
命名 (用 define) (naming (with define)), 8 
作为 局 部 求 值 过 程 的 模式 (as pattern for local evolu- 
tion of a process), 20 
作为 返回 值 (as returned value) ，48~52 
返回 多 个 值 (returning multiple values) ， 脚 注 289 
形式 参数 的 作用 域 (scope of formal parameters), 19 
与 特殊 形式 (special form vs.) ， 练 习 4.26，284 
过 程 抽 象 (procedural abstraction), 17 
过 程 的 局 部 演化 (local evolution of a process), 20 
过 程 体 (body of a procedure), 8 
过 程 应 用 (procedure application) 
组 合式 的 表示 (combination denoting), 4 
的 环境 模型 (environment model of) ，165~167 
代 换 模型 (substitution model of) ， 见 过 程 应 用 的 代 换 
模型 (substitution model of procedure application) 
过 程 应 用 的 代 换 模型 (substitution model of procedure 
application), 9~11, 162 
不 合适 (inadequacy of), 157~158 
计算 过 程 的 形状 (shape of process), 21~23 
过 零点 ， 信 号 (zero crossings of a signal) ， 练 习 3.74， 
练习 3.75， 练 习 3.76 
过 滤器 (filter) ， 练 习 1.33，77 
函数 (数学 的 ) (function (mathematical) ) 
户 记 法 (notation for)， 脚 注 58 
阿 克 曼 (Ackermann's) ， 练 习 1.10 
复合 (composition of), ， 练 习 1.42 
的 导数 (derivative of) ，49 
的 不 动 点 (fixed point of), 45~47 
过 程 与 (procedure vs.), 13~14 
有 理 数 (rational), 144~147 
的 反复 应 用 (repeated application of) ， 练 习 1.43 
的 平滑 (smoothing of), ， 练 习 1.44 
函数 的 导数 (derivative of a function), 49 
函数 的 复合 (composition of functions) ， 练 习 1.42 
函数 式 程 序 设 计 (functional programming), 157, 
245~248 
并 发 和 (concurrency and), 247 
函数 式 程序 设计 语言 (functional programming lang- 
uages), 247 
时 间 和 (time and), 246~248 
#&— (unification), 318~319 
算法 的 发 现 (discovery of algorithm), ， 脚 注 262 
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实现 (implementation), 331~332 
与 模式 匹配 (pattern matching vs.), 319, #34277 
盒子 和 指针 表示 方式 (box-and-pointer notation), 65 
表 尾 标记 (end-of-list marker) ， 脚 注 74， 脚 注 76 
赫 拉 克 立 特 (Heraclitus), 149 
黑箱 (black box), 17 
红 黑 树 (red-black tree), #2106 
F (macro)， 脚 注 217， 另 见 读 入 器 宏 字 符 (reader macro 
character) 
互 斥 (mutual exclusion) ， 脚 注 172 
HJR (mutex), 216 
互 素 (relatively prime), #3 1.33 
化 简 代数 表达 式 (simplification of algebraic expressions) , 
101 
画家 (painter), 86 
高 阶 操 作 (higher-order operations), 90 
操作 (operations), 88 
表示 为 过 程 (represented as procedures), 93 
变换 和 组 合 (transforming and combining), 94 
环境 (environment), 5, 162 
编译 时 (compile-time) ， 见 编译 时 环境 (compile-time 
environment) 
作为 求 值 的 上 下 文 (as context for evaluation), 6 
外 围 的 (enclosing), 162 
全 局 的 (global) ， 见 全 局 环境 (global environment) 
词法 作用 域 和 (lexical scoping and), ， 脚 注 27 
查询 解释 器 里 (in query interpreter) ， 练 习 4.79 
重 命名 和 (renaming vs.) ， 练 习 4.79 
缓存 一 致 性 规程 (cache-coherence protocols) ， 脚 注 164 
黄金 分 割 (golden ratio), 25 
作为 连 分 数 (as continued fraction) ， 练 习 1.37 
作为 不 动 点 (as fixed point) ， 练 习 1.35 
回溯 (backtracking) ，289， 另 见 非 确定 性 计算 (nonde- 
terministic computing ) 
汇编 程序 (assembler), 360, 364~366 
活动 体 (mobile), #3 2.29 
或 门 (or-gate), 189 
or-gate, # 33.28, % 33.29 
获取 互 斥 元 (acquire a mutex), 216 
机 器 语言 (machine language), 397 
与 高 级 语言 (high-level language vs.) 249 
积分 (integral) ， 另 见 定 积 分 (definite integral) ; 蒙特 
卡 罗 积 分 (Monte Carlo integration) ， 练 习 3.59 
FRAN (of a power series) 
积分 器 ， 信 号 的 (integrator, for signals), 239 
基本 表达 形式 (primitive expression), 3 
求 值 (evaluation of) ，6 
基本 过 程 名 (name of primitive procedure), 3 


变量 名 (name of variable), 5 
数 (number), 3 
基本 查询 (primitive query) ， 见 简单 查询 (simple query) 
基本 过 程 (标记 ns 的 不 属于 IEEE Scheme 标准 ) 
(primitive procedures ) 
*, 4 


a, i 

=, 1 

Sy 1 

apply, Priz113 

atan, #3110 

car, 57 

cdr, 57 

cons, 57 

cos, 46 

display, 脚注 70 

eq?, 98 

error (ns), #piz56 

eval (ns), 268 

list, 66 

log, #3 1.36 

max, 63 

min, 63 

newline, #i£70 

not, 12 

null?, 68 

number?, 100 

paler, 73 

quotient, #33.58 

random (ns), 34, 脚注 136 

read, 脚注 222 

remainder, 30 

round， 脚 注 119 

runtime (ns), 练习 1.22 

set-car!, 173 

set-cdr!, 173 

sin, 46 

symbol?, 100 

vector-ref, 374 

vector-set!, 374 
基本 过 程 的 开放 代码 (open coding of primitives)， 练 习 

5.38， 练 习 5.44 

基本 约束 (primitive constraints), 198 
级 联 进位 加 法 器 (ripple-carry adder), 4:93.30 
级 数 ， 求 和 (series, summation of), 38 


462 





逼近 的 加 速 序列 (accelerating sequence of approxi- 
mations), 234 
流 (with streams), 233 
集成 电路 实现 ，Scheme (integrated-circuit implemen- 
tation of Scheme)，383， 图 $-16 
集合 (set), 103 
数据 库 作 为 (data base as), 109 
的 操作 (operations on), 103 
的 排列 (permutations of), 83 
表示 为 二 叉 树 (represented as binary tree), 105~108 
表示 为 排序 表 (represented as ordered list), 104~105 
表示 为 无 序 表 (represented as unordered list), 
102~103 
子 集 (subsets of) ， 练 习 2.32 
集合 的 subsets (of a set) ， 练 习 2.32 
集合 的 排列 (permutations of a set) 83 
permutations, 84 
集合 的 表示 ，103~109 
集合 作为 未 排序 的 表 (unordered-list representation of 
sets), 103~104 
集合 作为 排序 的 表 (ordered-list representation of sets), 
104~105 
计算 过 程 ， 进 程 (process), 1 
迭代 的 (iterative), 22 
ZEPEYECEAY (linear iterative), 22 
线性 递归 的 (linear recursive), 22 
的 局 部 演化 (local evolution of), 20 
增长 的 阶 (order of growth of)，28 
递归 的 (recursive) ，22 
所 需 资 源 (resources required by) ，28 
的 形状 (shape of), 22 
树 形 递归 的 (tree-recursive), 24~27 
计算 机 科学 (computer science), ， 脚 注 223，250 
与 数学 (mathematics vs.) 14, 304~305 
计算 器 ， 不 动 点 (calculator, fixed points with), ， 脚 注 57 
记录 ， 在 数据 库 里 (record，in a data base), 109 
记忆 (memoization) ， 脚 注 34， 练 习 3.27 
和 按 需 调用 (call-by-need and)， 脚 注 192 
用 aelay，225 
和 废料 收集 (garbage collection and), ， 脚 注 241 
槽 的 (of thunks), 278 
继续 (continuation) 
韭 确 定性 求 值 器 里 (in nondeterministic evaluator), 
296~297， 另 见 失败 继续 ;成 功 继续 
寄存 器 机 器 模拟 器 里 (in register-machine simulator) , 
脚注 289 
寄存 器 (register) ，343 
表示 (representing), 361 


追踪 (tracing), 45.18 
寄存 器 (被 修改 的 ) (modified registers) ， 见 指令 序列 
(instruction sequence ) 
寄存 器 列表 ， 模 拟 器 里 (register table, in simulator), 362 
寄存 器 机 器 (register machine), 343 
动作 (actions), 348 
控制 器 (controller), 344 
控制 器 图 (controller diagram), 345 
数据 通路 (data paths), 344 
数据 通路 图 (data-path diagram), 344 
设计 (design of), 344~359 
检测 操作 ，344 
描述 语言 (language for describing), 345~348 
监视 执行 (monitoring performance), 372~373 
模拟 器 (simulator), 359~373 
堆栈 (stack), 354~358 
子 程序 (subroutine), 351~354 
检测 操作 (test operation), 344 
寄存 器 机 器 上 的 initialize-stack 操 作 (operation in 
register machine), 361, 371 
寄存 器 机 器 语言 (register-machine language) 
assign, 347, 359 
branch, 346, 359 
const, 347, 358, 359 
入 口 点 (entry point), 346 
goto, 346, 359 
指令 (instructions), 346, 358 
标号 (label), 346 
label, 346, 359 
op, 347, 359 
perform, 348, 359 
reg, 347, 358 
restore, 355, 359 
save, 355, 359 
test, 346, 359 
加 法 器 (adder) 
全 (full), 190 
半 (half), 189 
级 联 进位 (ripple-carry), 4 3.30 
加 入 符号 (interning symbols), 376 
加 州 大 学 伯克利 分 校 (University of California at Berkeley) , 
脚注 2 
f (false)， 脚 注 17 
假 言 推理 (modus ponens) ， 脚 注 279 
检测 零 (通用 型 ) (zero test (generic) ) ， 练 习 2.80 
对 多 项 式 (for polynomials) ， 练 习 2.87 
简单 查询 (simple query), 308~309 
处 理 (processing), 316, 320, 326 
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建 模 (modeling) 
作为 一 种 设计 策略 (as a design strategy), 149 
在 科学 与 工程 里 (in science and engineering), 10 
键 值 (key) 
数据 库 里 (in a data base), 109 
表格 里 (in atable)，183 
检测 相等 (testing equality of), ， 练 习 3.24 
将 Scheme 编译 到 (compiling Scheme into)， 练 习 5.52 
错误 处 理 (error handling) ， 脚 注 317， 有 和 脚注 337 
递归 过 程 (recursive procedures), 23 
对 复合 数据 的 限制 (restrictions on compound data), 
脚注 73 
写 出 的 Scheme 解释 器 (Scheme interpreter written in), 
练习 5.51， 练 习 5.52 
将 输入 表达 式 分 类 (typing input expressions) ， 脚 注 6 
阶乘 (factorial), 21, 4 Wfactorial 
无 穷 流 (infinite stream), #4 33.54 
用 (with) letrec, #5 4.20 
不 用 (without) letrec 或 者 define， 练 习 4.21 
阶 的 记 法 (order notation), 28 
结 点 , 树 (node of atree)，6 
截断 误差 (truncation error) ， 脚 注 4 
解释 器 (interpreter) ，2， 另 见 求 值 器 (evaluator) 
与 编译 器 (compiler vs.), 397~398, 428 
读 和 人 一 求 值 - 打 印 循环 (read-eval-print loop), 5 
金星 (Venus), ， 脚 注 98 
紧缩 型 废料 收集 器 (compacting garbage collector), My 
注 300 
局 部 变量 (local variable), 42~44 
局 部 名 (local name)，18~19 
局 部 状态 (local state)，149~162 
在 框架 里 维护 (maintained in frames), 167~171 
局 部 状态 变量 (local state variable), 150~154 
和 矩形 的 表示 (rectangle，representing)， 练 习 2.3 
矩阵， 用 序列 表示 (matrix, represented as sequence), 
练习 2.37 
具体 数据 表示 (concrete data representation) 55 
绝对 值 (absolute value), 11 
卡尔 ， 阿 尔 芬 斯 (Karr, Alphonse), 149 
开 普 勒 (Kepler, Johannes), 343 
可 计算 性 (computability), #34223, #227 
可 加 性 (additivity), 122~127, 130 
空 表 (empty list), 67 
FAO 表示 (denoted as °()), 97 
用 nul11? 辨 别 (recognizing with nul1?), 68 
控制 结构 (control structure), 321 
跨 类 型 操作 (cross-type operations), 132 
块 结构 (block structure) ，20 
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环境 模型 里 (in environment model), 170 
查询 语言 里 (in query language), 45) 4.79 
框架 (查询 解释 器 ) (frame (query interpreter)), 315, 4 
见 模式 匹配 (pattern matching) ; Æ— (unification) 
表示 (representation), 338 
框架 (环境 模型 ) (frame (environment model)), 162 
作为 局 部 状态 的 展台 (as repository of local state), 
167~170 
全 局 (global), 162 
框架 (图 形 语言 ) (frame (picture language)), 86, 91 
坐标 映射 (coordinate map), 91 
框架 堆栈 方式 (framed-stack discipline), #74306 
扩散 的 模拟 (diffusion, simulation of), 210 
括号 (parentheses) 
界定 组 合式 (delimiting combination), 4 
界定 cond 子 句 (delimiting cond clauses), 12 
在 过 程 定 义 里 (in procedure definition), 8 
拉 格 朗 日 插值 公式 (Lagrange interpolation formula), 
脚注 121 
Jeg (Leibniz, Baron Gottfried Wilhelm von) 
费 马 小 定理 的 证 明 (proof of Fermat’s Little Theorem) , 
脚注 45 
THR (series form), 脚注 49，233 
菜 因 德 纸 草书 (Rhind Papyrus), #3440 
类 型 (type) 
跨 类 型 操作 (cross-type operations)，132 
基于 类 型 分 派 (dispatching on), 122 
符号 代数 的 类 型 层次 结构 (hierarchy in symbolic 
algebra), 143 
的 层次 结构 (hierarchy of), 143~144 
F (lowering), 135, #3 2.85 
多 个 子 类 型 和 超 类 型 (multiple subtype and supertype) , 
136 
提升 (raising)，135， 练 习 2.83 
子 类 型 (subtype), 135 
超 类 型 (supertype) ，135 
塔 (tower of) ， 图 2-25 
类 型 标志 (type tag)，116，119 
WJZ (two-level), 131 
类 型 的 层次 结构 (hierarchy of types), 134~138 
在 符号 代数 里 (in symbolic algebra), 143~144 
不 合适 (inadequacy of) ，135 
类 型 塔 (tower of types), 2-25 
类 型 推导 机 制 (type-inferencing mechanism), ， 有 和 脚注 200 
类 型 域 (type field), ， 脚 注 292 
累积 器 (accumulator) ，77， 练 习 3.1 
立方 根 (cube root) 
作为 不 动 点 (as fixed point) ，49 
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用 牛顿 法 (by Newton’s method), #4 1.8 
粒子 的 世界 线 (world line of a particle), #180, Æ 
74201 
连 分 式 (continued fraction), 4 4 1.37 
e 作 为 (as) ， 练 习 1.38 
黄金 分 割 作 为 (golden ratio as) ， 练 习 1.37 
正切 作为 (tangent as) ， 练 习 1.39 
连接 描述 符 (linkage descriptor), 400 
连接 符 , 在 约束 系统 里 (connector, in constraint system) , 
198 
操作 (operations on) ，200 
表示 (representing) ，203 
连 线 ， 在 数字 电路 里 (wire, in digital circuit) ，189 
连续 求 平 方 (successive squaring), 30 
量子 力学 (quantum mechanics) ， 脚 注 204 
i (stream), 149 
和 延 时 求 值 (delayed evaluation and), 241~244 
空 (empty) 222 
实现 为 延 时 的 表 (implemented as delayed lists) ，220 
~222 
实现 为 惰性 表 (implemented as lazy lists), 284~285 
隐 式 定义 (implicit definition) 228~230 
EZ (infinite), WEA (infinite streams) 
用 于 查询 解释 器 (used in query interpreter), 315, # 
注 278 
流水 线 (pipelining), riz 162 
逻辑 程序 设计 (logic programming), 304~306, 4% LÆ 
语言 (query language) ; 查询 解释 器 (query inter- 
preter) 
计算 机 (computers for), ， 脚 注 265 
的 历史 (history of) ， 脚 注 262， 脚 注 265 
有 逻辑 程序 设计 语言 (logic programming languages), 306 
与 数理 逻辑 (mathematical logic vs.), 320~324 
逻辑 或 (logical or), 189 
WHA (logic puzzles), 290~291 
逻辑 与 (logical and), 189 
马赛 大 学 (University of Marseille), #iz262 
满足 一 个 复合 查询 (satisfy a compound query), 310 
满足 一 个 模式 (简单 查询 ) (satisfy a pattern (simple 
query)), 309 
忙 等 待 (busy-waiting) ， 脚 注 173 
枚 举 器 (enumerator), 77 
美观 打印 (pretty-printing) ，4 
蒙特 卡 罗 积 分 (Monte Carlo integration ) ， 练 习 3.5 
流 形式 (stream formulation) ， 练 习 3.82 
蒙特 卡 罗 模 拟 (Monte Carlo simulation), 155 
流 形式 (stream formulation), 245 
iW (puzzles) 
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八 皇 后 谜 题 (eight-queens puzzle), 42.42, t 34.44 
逻辑 谜 题 (logic puzzles), 290~292 
密码 保护 的 账户 (password-protected bank account) ， 练 
33.3 
密码 学 (cryptography), #piż47 
FRR, EAJ] (power series, as stream), # 33.59 
加 (adding), %3 3.60 
BR (dividing), 4 J 3.62 
积分 (integrating), #4 93.59 
乘 (multiplying), #7 3.60 
面向 对 象 的 程序 设计 语言 (object-oriented programming 
languages), ， 脚 注 118 
名 字 (name)， 另 见 局 部 名 字 (local name) ; 变量 (var- 
iable) ; 局 部 变量 (local variable) 
封装 的 (encapsulated)， 脚 注 132 
形式 参数 的 (of a formal parameter), 18 
过 程 的 (of a procedure), 7 
名 字 里 的 叹 号 (exclamation point in names)， 脚 注 130 
命令 式 程序 设计 (imperative programming), 160 
命令 式 风 格 (imperative programming style) ， 脚 注 161 
命令 式 与 说 明 式 语 言 (imperative vs. declarative know- 
ledge), 14, 304 
逻辑 程序 设计 和 (logic programming and), 305~306, 
321 
非 确定 性 计算 和 (nondeterministic computing and) , 
脚注 246 
命名 (naming) 
计算 对 象 的 (of computational objects), 4 
过 程 的 (of procedures), 7 
命名 let (特殊 形式 ，special form)， 练 习 4.8 
命名 约定 (naming conventions) 
! 用 于 赋值 的 修改 (for assignment and mutation), # 
注 130 
?用 于 谓词 (for predicates), #jz22 
模 n (modulon), 34 
模 n 的 余数 (remainder modulo n), 34 
模 n 同 余 (congruent modulo n), 34 
模块 化 (modularity), 79, 149 
沿 着 对 象 边 界 (along object boundaries), ， 脚 注 144 
函数 式 程序 与 对 象 (functional programs vs. objects), 
245~248 
隐藏 原理 (hiding principle), ， 脚 注 132 
和 流 (streams and), 232 
通过 基于 类 型 的 分 派 (through dispatching on type), 
122 
通过 无 穷 流 (through infinite streams), 246 
通过 为 对 象 建 模 (through modeling with objects), 
154 
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模拟 (simulation) 
电子 线路 (of digital circuit) ， 见 数字 电路 模拟 (digital- 
circuit simulation ) 
事件 驱动 的 (event-driven), 188 
作为 机 器 设计 的 工具 (as machine-design tool), 395 
监视 寄存 器 机 器 的 执行 (for monitoring performance 
of register machine) ，372 
蒙特 卡 罗 (Monte Carlo) ， 见 蒙特 卡 罗 模 拟 (Monte 
Carlo simulation ) 
寄存 器 机 器 (of register machine) ， 见 寄存 器 机 器 模 
拟 (register-machine simulator) 
模拟 计算 机 (analog computer) ， 图 3-34 
模式 (pattern), 308~309 
模式 变量 (pattern variable), 308 
表示 (representation of), 325, 336~338 
模式 匹配 (pattern matching), 328 
实现 (implementation), 328~329 
54 — (unification vs.), 319, #piz277 
魔术 师 (magician)， 见 数值 分 析 专 家 (numerical analyst) 
莫 尔 斯 码 (Morse code), 110 
目标 代码 (object program), 400 
目标 寄存 器 (target register), 400 
内 部 定义 (internal definition), 19~20 
环境 模型 里 (in environment model), 171~172 
的 自由 变量 (free variable in) ，20 
let5, 44 
非 确 定性 求 值 器 里 (in nondeterministic evaluator) , 
脚注 261 
的 位 置 (position of) ， 脚 注 28 
的 限制 (restrictions on), 269 
扫描 出 (scanning out), 269 
名 字 的 作用 域 (scope of name), 269~270 
牛顿 法 (Newton’ethod) 
用 于 立方 根 (for cube roots) ， 练 习 1.8 
用 于 微分 方程 (for differentiable functions), 49 
与 折 半 法 (half-interval method vs.)， 脚 注 62 
用 于 平方 根 (for square roots), 14~16, 49, 50 
拟 引号 (quasiquote), # {£321 
欧 几 里 得 的 《几何 原理 》(Euclid's Elements) ， 脚 注 42 
欧 几 里 得 环 (Euclidean ring), #7 i#126 
欧 几 里 得 算法 (Euclid’s Algorithm), 32, 344 
欧 几 里 得 有 关 素数 无 穷 多 的 证 明 (Euclid's proof of infinite 
number of primes), ， 脚 注 191 
欧 拉 (Euler, Leonhard) ， 练 习 1.38 
有 关 费 马 小 定理 的 证 明 (proof of Fermat's Little The- 
orem) ， 脚 注 45 
序列 加 速 器 (series accelerator) ，233 
帕斯卡 (Pascal, Blaise), #piz35 
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帕斯卡 三 角形 (Pascal’s triangle), 491.12 
排除 错误 (debug), 1 
平方 根 (square root), 14~15, % Usqrt 
逼近 流 (stream of approximations), 232 
平衡 的 活动 体 (balanced mobile), 4 92.29 
平衡 二 又 树 (balanced binary tree), 4 U— MH (binary 
tree) 
平滑 一 个 国 数 (smoothing a function), #39 1.44 
平滑 一 个 信号 (smoothing a signal), 453.75, %3 
3.76 
平均 阻尼 (average damping), 47, %3 1.36 
屏障 同步 (barrier synchronization), Æ i4177 
破碎 的 心 (broken heart), 380 
启明 星 (morning star)， 见 金星 (Venus) 
前 向 指针 (forwarding address), 380 
前 缀 表示 (prefix notation), 4 
与 中 缀 表示 (infix notation vs.) ， 练 习 2.58 
前 组 码 (prefix code), 110 
嵌入 的 语言 ， 语 言 设 计 用 (embedded language, language 
design using), 276 
tee SC (nested definitions ) ， 见 内 部 定义 (internal 
definition ) 
fk WRAY (nested mappings) ， 见 映射 (mapping) 
BRE, HAÑ (nested combinations), 4 
强健 (robustness), 96 
强 类 型 语言 (strongly typed language), #4200 
强迫 (force), 278 
强制 (coercion), 133~134 
在 代数 操作 里 (in algebraic manipulation), 144 
在 多 项 式 算术 里 (in polynomial arithmetic), 141 
过 程 (procedure), 133 
表格 (table)，133 
丘 奇 (Church, Alonzo)， 脚 注 53， 练 习 2.6 
丘 奇数 (Church numerals) ， 练 习 2.6 
丘 奇 -图 灵 论 题 (Church-Turing thesis) ， 脚 注 223 
求 导 (differentiation ) 
数值 的 (numerical) ，49 
规则 (rules for) ，99， 练 习 2.56 
符号 的 (Symbolic) ，99~102， 练 习 2.73 
求 和 的 记 法 (sum (sigma) notation), 38 
求解 方程 (solving equation)， 见 折 半 法 (half-interval 
method) ; 牛顿 法 (Newton's method) ; solve 
求 值 (evaluation) 
应 用 序 (applicative-order)， 见 应 用 序 求 值 (applicative- 
order evaluation ) 
延 时 (delayed)， 见 延 时 求 值 (delayed evaluation) 
的 环境 模型 (environment model of) ， 见 求 值 的 环境 


模型 (environment model of evaluation ) 


466 





模型 (models of), 393 
正则 序 (normal-order) ， 见 正则 序 求 值 (normal-order 
evaluation) 
组 合式 的 (of a combination), 6~7 
and 的 (of and), 13 
cond 的 (of cond), 12 
iff) (of if), 12 
or 的 (of or), 12 
基本 表达 式 的 (of primitive expressions), 6 
特殊 形式 的 (of special forms), 7 
子 表达 式 的 求 值 顺序 (order of subexpression evaluation) , 
见 求 值 顺序 (order of evaluation ) 
的 代 换 模型 (substitution model of) ， 见 过 程 应 用 的 代 
换 模型 (substitution model of procedure application) 
求 值 的 环境 模型 (environment model of evaluation) , 
149, 162~172 
环境 结构 (environment structure), 43-1 
内 部 定义 (internal definitions), 171~172 
局 部 变量 (local state), 167~170 
消息 传递 (message passing), #9 3.11 
元 循环 求 值 器 和 (metacircular evaluator and), 251 
过 程 应 用 实例 (procedure-application example), 164 
~167 
求 值 规则 (rules for evaluation), 163~164 
尾 递 归 和 (tail recursion and), #7z#142 
求 值 模型 (models of evaluation), 393 
求 值 器 (evaluator), ，250， 另 见解 释 器 (interpreter), JC 
循环 求 值 器 (metacircular evaluator) ; 分 析 型 求 值 器 
(analyzing evaluator) ;， 情 性 求 值 器 (lazy evaluator) ， 
非 确 定性 求 值 器 (nondet-erministic evaluator) ; 查询 
求 值 器 (query interpreter) ， 显 式 控制 求 值 器 (explicit- 
control evaluator) 
作为 抽象 机 器 (as abstract machine), 267 
元 循环 (metacircular), 251 
作为 通用 机 器 (as universal machine), 268 
派生 表达 式 (derived expressions), 258~259 
加 入 显 式 控制 求 值 器 (adding to explicit-control evaluator) , 
练习 5.23 
求 值 顺 序 (order of evaluation) 
和 赋值 (assignment and) ， 练 习 3.8 
依赖 实现 (implementation-dependent), #9 {140 
编译 器 里 (in compiler), #3 5.36 
显 式 控制 求 值 器 里 (in explicit-control evaluator) , 
388 
元 循环 求 值 器 里 (in metacircular evaluator), 49 4.1 
Scheme 里 ， 练 习 3.8 
区 间 的 宽度 (width of an interval) ， 练 习 2.9 
区 间 算 术 (interval arithmetic), 62~65 


驱动 循环 (driver loop) 
显 式 控制 求 值 器 里 (in explicit-control evaluator) , 
392 
惰性 求 值 器 里 (in lazy evaluator), 280 
元 循环 求 值 器 里 (in metacircular evaluator) ，265 
非 确 定性 求 值 器 里 (in nondeterministic evaluator), 
289，301 
查询 解释 器 里 (in query interpreter) ，302，324 
全 加 器 (full-adder), 190 
full-adder, 190 
全 局 环境 (global environment), 6, 162 
元 循环 求 值 器 里 (in metacircular evaluator), 264 
全 局 框架 (global frame), 162 
蠕虫 (worm), ， 脚 注 337 
三 角 关 系 (trigonometric relations) ，119 
扫描 出 内 部 定义 (scanning out internal definitions), 270 
在 编译 器 里 (in compiler), MPiz331, %3 5.43 
伟人 误差 (roundoff error) ， 脚 注 4， 脚 注 109 
深度 优先 搜索 (depth-first search) ，289 
深入 的 认识 (consciousness expransion of), #jz210 
深 约束 (deep binding), #34219 
其 高 级 语言 (very high-level language)， 脚 注 20 
生成 句子 (generating sentences) ， 练 习 4.49 
失败 ， 在 非 确 定性 计算 中 (failure, in nondeterministic 
computation) ，288 
错误 与 (bug vs.) ，298 
搜索 和 (searching and), 288 
失败 继续 ， 非 确定 性 求 值 器 (failure continuation, non- 
deterministic evaluator) ，296，297 
由 amb 构 造 的 (constructed by amb), 301 
由 赋值 构造 的 (constructed by assignment), 300 
由 驱动 循环 构造 的 (constructed by driver loop), 301 
时 间 (time) 
和 赋值 (assignment and) ，206 
和 通信 (communication and) ，219 
并 发 系统 里 (in concurrent systems) ，207~210 
和 函数 式 程序 设计 (functional programming and), 
246~248 
非 确定 性 计算 里 (in nondeterministic computing), 
286~288 
的 用 途 (purpose of), ， 脚 注 162 
时 间 段 ， 在 待 处理 表 里 (time segment, in agenda), 196 
时 间 片 (time slicing)，218 
时 序 图 (timing diagram) ， 图 3-29 
实际 参数 ， 实 参 (argument), 4 
任意 个 数 (arbitrary number of), ，4， 练 习 2.20 
延 时 的 (delayed), 242 
实例 化 一 个 模式 (instantiate a pattern) ，309 
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实数 (real number), #Piz4 

实现 依赖 性 (implementation dependencies), 4 LAH 
定 的 值 (unspecified values) 

数 (numbers)， 脚 注 23 

子 表达 式 求 值 的 顺序 (order of subexpression evaluation) , 
脚注 140 

事件 的 顺序 (order of events) 

与 实际 出 现 松弛 关系 (decoupling apparent from actual), 
224 

并 发 系统 里 的 不 确定 性 (indeterminacy in concurrent 
systems), 207 

事件 驱动 的 模拟 (event-driven simulation), 188 

释放 互 斥 元 (release a mutex), 216 

树 (tree) 

B 树 (tree)， 脚 注 106 

ZX (binary), 4 L Xp (binary tree) 

将 组 合式 看 作 (combination viewed as), 6 

叶 统 计 (counting leaves of) ，72 

叶 枚 举 (enumerating leaves of), 78 

的 边缘 (fringe of) ， 练 习 2.28 

Huffman, 110 

惰性 (lazy)， 脚 注 245 

映射 (mapping over), 75~76 

红 黑 (red-black)， 脚 注 106 

表示 为 序 对 (represented as pairs), 72~75 

遍历 所 有 树叶 (reversing at all levels) ， 练 习 2.27 

树 的 终端 结 点 (terminal node of a tree), 6 

树 形 递归 计算 过 程 (tree-recursive process) ，24~27 

增长 的 阶 (order of growth) ，28 

树 形 积 累 (tree accumulation), 6 

数 (number) 

的 比较 (comparison of), 12 

小 数 点 (decimal point in)， 脚 注 23 

相等 (equality of), ，12， 有 和 脚注 102， 脚 注 294 

在 通用 算术 系统 里 (in generic arithmetic system), 
129 

实现 依赖 性 (implementation dependencies), ， 脚 注 23 

整数 与 实数 (integer vs. real number) ， 脚 注 4 

整数 ， 准 确 (integer，exact) ， 脚 注 23 

Lisp 里 ，3 

有 理 数 (rational number), #3423 


数据 (data), 1, 3 


抽象 (abstract), ，55， 另 见 数据 抽象 (data abstraction) 
的 抽象 模型 (abstract models for), #F7£71 

的 代数 摘 述 (algebraic specification for), #P7£71 
复合 (compound), 53~54 

的 具体 表示 (concrete representation of), 55 

层次 性 (hierarchical), 66, 72-74 
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表 结 构 (list-structured) , 57 
的 意义 (meaning of), 60~62 
变动 (mutable) ， 见 变动 性 数据 对 象 (mutable data 
objects) 
数值 (numerical), 3 
的 过 程 表示 (procedural representation of), 61~62 
作为 程序 (as program), 266~268 
共享 (shared), 177~179 
符号 (symbolic), 96 
示 志 (tagged), 119~122, i292 
数据 抽象 (data abstraction), 54, 55, 115, 118, 255, 
另 见 元 循环 求 值 器 (metacircular evaluator) 
队列 的 (for queue), 180 
数据 导向 的 程序 设计 (data-directed programming), 116, 
122~127 
分 情况 分 析 与 (case analysis vs.)，253 
在 元 循环 求 值 器 里 (in metacircular evaluator), 353 
在 查询 解释 器 里 (in query interpreter) ， 练 习 4.3 
数据 导向 的 递归 (data-directed recursion), 141 
数据 的 抽象 模型 (abstract models for data) ， 脚 注 71 
数据 的 代数 规范 (algebraic specification for data), ， 脚 注 
5 
数据 的 过 程 表示 (procedural representation of data), 
61~62 
变动 数据 (mutable data), 179 
数据 库 (data base) 
数据 导向 的 程序 设计 和 (data-directed programming 
and), #3 2.74 
索引 (indexing), #i£271, 333 
Insatiable Enterprises 人 事 (personnel), 4% 32.74 
逻辑 程序 设计 和 (logic programming and), 306 
Microshaft 人 事 (personnel), 306~308 
作为 记录 集合 (as set of records), 109 
数据 类 型 (data types) 
Lisp 里 的 ， 练 习 2.78 
强 类 型 语言 里 的 (in strongly typed languages), #piz 
220 
数 里 的 小 数 点 (decimal point in numbers) ， 脚 注 23 
数论 (number theory)， 脚 注 45 
数学 (mathematics) 
与 计算 机 科学 (computer science vs.), 14, 305 
HTE (engineering vs.), #7247 
数学 函数 (mathematical function), Rew (数学 ) 
(function (mathematical) ) 
数值 分 析 (numerical analysis), #44 
数值 分 析 专 家 (numerical analyst), #piz55 
数值 积分 的 辛普森 规则 (Simpson's Rule for numerical 
integration), ， 练 习 1.29 
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数值 数据 (numerical data), 3 
数字 电路 模拟 (digital-circuit simulation), 188~197 
待 处 理 表 (agenda), 193~194 
待 处 理 表 实现 (agenda implementation), 195~197 
基本 函数 框 (primitive function boxes), 191~192 
表示 连 线 (representing wires), 192~193 
样 例 模拟 (sample simulation), 194~195 
数字 信号 (digital signal) ，189 
双 端 队列 (deque)， 练 习 3.23 
说 明 性 与 行动 性 知识 (declarative vs. imperative knowledge), 
14，304 
逻辑 程序 设计 和 (logic programming and), 306 
非 确 定性 计算 和 (nondeterministic computing and), 
脚注 246 
死 锁 (deadlock), 218~219 
避免 (avoidance), 218 
发 现 (recovery), #piz176 
四 次 方 根 ， 作 为 不 动 点 (fourth root, as fixed point), 4 
习 1.45 
搜索 (search) 
二 叉 树 (of binary tree), 105 
深度 优先 (depth-first), 289 
系统 化 (systematic)，288 
素数 (prime number) ，33~37 
和 密码 学 (cryptography and) ， 脚 注 48 
的 厄 拉 多 塞 筛 法 (Eratosthenes’s sieve for), 227 
的 费 马 检 验 (Fermat test for), 34~35 
的 无 穷 序 列 (infinite stream of)， 见 primes 
的 Miller-Rabin 检 验 (test for) ， 练 习 1.28 
的 检验 (testing for), 33~37 
素数 的 费 马 检查 (Fermat test for primality), 33~37 
变形 (variant of), %3 1.28 
算法 (algorithm) 
最 优 的 (optimal), My iz82 
概率 的 (probabilistic), 34~35, #piz128 
算术 (arithmetic) 
地 址 算术 (address arithmetic), 374 
通用 型 (generic) 127, % Ri AWARE (generic 
arithmetic operations ) 
复数 (on complex numbers), 116 
区 间 (on intervals), 62~65 
多 项 式 (on polynomials)， 见 多 项 式 算术 (polynomial 
arithmetic ) 
FRA (on power series) ， 练 习 3.60， 练 习 3.62 
有 理 数 (on rational numbers), 55~58 
基本 过 程 (primitive procedures for) ，4 
随机 数 生成 器 (random-number generator), #7 i#129, 
154 


用 于 蒙特 卡 罗 模 拟 (in Monte Carlo simulation), 155 
用 于 素数 检验 (in primality testing)， 脚 注 45 
带 重 置 (with reset) ， 练 习 3.6 
带 重 置 ， 流 版 本 (with reset, stream version), %3 
3.81 
所 需 寄存 器 (needed registers) ， 见 指令 序列 (instruction 
Sequence) 
特殊 形式 (special form), 7 
求 值 器 里 的 派生 表达 式 (as derived expression in eva- 
luator), 258 
需要 (need for) ， 练 习 1.6 
与 过 程 (procedure vs.) ， 练 习 4.26，284 
特殊 形式 〈 其 中 标 ms 的 不 属于 IEEE 标 准 Scheme) 
and, 13 
begin, 151 
cond, Ill 
cons-stream (ns), 223 
define, 5, 8 
delay (ns), 222 
aft, 13 
lambda, 41 
let, 43 
let*, #4347 
letrec, 练习 4.20 
命名 的 (named) let, #34.8 
ox, 13 
quote, #iz100 
set!, 151 
提示 (prompts), 265 
显 式 控制 求 值 器 (explicit-control evaluator), 393 
情 性 求 值 器 (lazy evaluator), 280 
元 循环 求 值 器 (metacircular evaluator) ，265 
非 确定 性 求 值 器 (nondeterministic evaluator), 302 
查询 解释 器 (query interpreter) ，324 
条 件 表达 式 (conditional expression) 
cond, 11 
iE, 12 
停机 定理 (Halting Theorem), #34227 
停机 问题 (halting problem), # 94.15 
停止 并 复制 废料 收集 器 (stop-and-copy garbage collector) , 
379~383 
通用 机 器 (universal machine), 268 
显 式 控制 求 值 器 作为 (explicit-control evaluator as), 
397 
通用 计算 机 作为 (general-purpose computer as), 397 
通用 计算 机 ， 作 为 通用 机 器 (general-purpose computer, 
as universal machine), 397 


通用 型 操作 (generic operation), 55 
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通用 型 过 程 (generic procedure), 113, 116 
通用 型 选择 函数 (generic selector), 121, 122 
通用 型 算术 操作 (generic arithmetic operations), 129~ 
132 
系统 的 结构 (structure of system), 2-23 
同步 (Synchronization ) ， 见 并 发 (concurrency) 
同一 和 变化 (sameness and change) 
的 意义 (meaning of), 159~160 
和 共享 数据 (shared data and), 177 
透明 性 ， 引 用 (transparency, referential), 159 
图 灵 (Turing, AlanM.), #4223 
图 灵机 (Turing machine), #pjz223 
图 形 学 (graphics) ， 见 图 形 语 言 (picture language) 
图 形 语 言 (picture language), 86~96 
推理 的 方法 (inference, method of) ，321 
推迟 进行 的 操作 (deferred operations) ，22 
推论 部 分 (consequent) 
cond 子 句 的 (of cond clause), 11 
iffy, 12 
完全 理性 的 狗 ， 脚 注 175 
外 围 环境 (enclosing environment), 162 
微分 方程 (differential equation), ，241， 另 见 solve 
二 阶 (second-order) ， 练 习 3.78， 练 习 3.79 
伪 除 ， 多 项 式 (pseudodivision of polynomials), 146 
伪 余 ， 多 项 式 (pseudoremainder of polynomials), 146 
伪 随 机 序列 (pseudo-random sequence)， 脚 注 134 
尾 递 归 (tail recursion), 23 
和 编译 (compiler and), 411 
和 求 值 的 环境 模型 (environment model of evaluation 
and), #piz142 
和 显 式 控制 求 值 器 (explicit-control evaluator and), 
389， 练 习 5.26， 练 习 5.28 
和 废料 收集 (garbage collection and) ， 和 脚注 325 
和 元 循环 求 值 器 (metacircular evaluator and), 390 
在 Scheme 里 ， 脚 注 31 
尾 递 归 求 值 器 (tail-recursive evaluator) ，390 
未 定 元 ， 多 项 式 (indeterminate of a polynomial) ，138 
未 规定 的 值 (unspecified values) 
define， 脚 注 8 
display, #3470 
ifE 没 有 替代 部 分 (without alternative), Æ 34157 
newline， 脚 注 70 
set!， 上 脚注 130 
set-car!， 脚 注 144 
set-cdr!， 脚 注 144 
未 约束 变量 (unbound variable)，262， 练 习 4.77 
位 置 (location)，374 
谓词 (predicate), 11 
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cond 的 子 句 (of cond clause), 11 
if 的 (ofif), 12 
命名 习惯 (naming convention for) ， 脚 注 22 
问号 ， 在 谓词 名 里 (question mark, in predicate names), 
脚注 22 
FEAR (infinite stream), 226~232 
归并 (merging), #:33.56, 237, 238, #33.7, 248 
归并 作为 一 种 关系 (merging as arelation), ， 脚 注 203 
阶乘 的 (of factorials) ， 练 习 3.54 
斐 波 那 契 数 的 (of Fibonacci numbers)， 见 fibs 
整数 的 (of integers) ， 见 integers 
序 对 的 (of pairs), 235~238 
素数 的 (of prime numbers) ， 见 Primes 
随机 数 的 (of random numbers), 245 
Km RA (representing power series), # 33.59 
模拟 信号 (to model signals), 238~241 
级 数 求 和 (to sum a series), 233 
无 穷 序列 (infinite series), #7284 
稀疏 多 项 式 (sparse polynomial), 142 
系统 化 的 搜索 (systematic search) ，288 
线段 (line segment) 
用 一 对 点 表示 (represented as pair of points ) ， 练 习 2.2 
用 一 对 向 量 表示 (represented as pair of vectors ) ， 练 
习 2.48 
线性 递归 过 程 (linear recursive process) ，22 
增长 的 阶 (order of growth), 28 
线性 迭代 过 程 (linear iterative process), 23 
增长 的 阶 (order of growth), 28 
线性 增长 (linear growth), 22, 28 
相等 (equality) 
在 通用 算术 系统 里 (in generic arithmetic system), 4 
3) 2.79 
表 的 (of lists), #9 2.54 
数 的 (of numbers), 12, #34102, #14294 
引用 透明 性 和 (referential transparency and), 160 
符号 的 (of symbols), 98 
相对 论 (relativity，theory of) ，219 
向 量 (数据 结构 ) (vector (data structure)), 374 
向 量 (数学 ) (vector (mathematical) ) 
操作 (operations on), 练习 2.37， 练 习 2.46 
在 图 形 语言 的 框架 里 (in picture-language frame), 91 
用 序 对 表示 (represented as pair) ， 练 习 2.46 
用 序列 表示 (represented as sequence) ， 练 习 2.37 
向 上 兼容 性 (upward compatibility) ， 练 习 4.31 
消息 传递 (message passing), 62, 127~128 
和 环境 模型 (environment model and), #33.11 
银行 账号 里 (in bank account), 153 
数字 电路 模拟 里 (in digital-circuit simulation), 192 
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和 尾 递 归 (tail recursion and)， 脚 注 31 
效率 (efficiency) ， 另 见 增 长 的 阶 (order of growth) 
编译 的 (of compilation), 398 
数据 库 访问 的 (of data-base access), Mpi#271 
求 值 的 (of evaluation), 272 
Lisp 的 (of Lisp), 2 
查询 处 理 的 (of query processing), 317 
树 形 递归 过 程 的 (of tree-recursive process), 27 
信号 ， 数 字 (signal，digital) ，189 
信号 处 理 (signal processing) 
平滑 一 个 函数 (smoothing a function)， 练 习 1.44 
平滑 一 个 信号 (smoothing a signal)， 练 习 3.75， 练 习 
3.76 
流 模型 (stream model of)，238~240 
信号 的 过 零点 (zero crossings of a signal) ， 练 习 3.74， 
练习 3.75， 练 习 3.76 
信号 处 理 和 计算 (signal-processing view of computation) , 
77 
信号 量 (semaphore)， 有 和 脚注 172 
大 小 为 mn (of size n)， 练 习 3.47 
信号 流 图 (signal-flow diagram)，77， 图 3-33 
信息 检索 (information retrieval) ， 见 数据 库 (data base) 
信用 卡 账 户 ， 国 际 (credit-card accounts, international), 
脚注 178 
形 参 (parameter) ， 见 形式 参数 (formal parameters) 
形式 参数 (formal parameters), 8 
的 名 字 (names of), 18 
的 作用 域 (scope of), 19 
序 对 (pair), 56 
公理 定义 (axiomatic definition of), 61 
盒子 和 指针 记 法 (box-and-pointer notation for), 65 
FE ie (infinite stream of), 235~238 
Tate (lazy), 284~286 
asx (mutable), 173~176 
过 程 表示 (procedural representation of), 61~62, 179, 
284 
用 向 量 表示 (represented using vectors), 302~305 
用 于 表示 序列 (used to represent sequence), 66 
用 于 表示 树 (used to represent tree), 72~74 
序列 (sequence), 66 
作为 规范 的 界面 (as conventional interface), 76~85 
作为 模块 化 的 来 源 (as source of modularity), 79 
操作 (operations on) ，77~82 
用 序 对 表示 (represented by pairs) ，66 
序列 加 速 器 (sequence accelerator), 233 
选择 函数 (selector), 55 
作为 抽象 屏障 (as abstraction barrier) ，59 
通用 型 (generic), 121, 122 


循环 结构 (looping constructs), 16, 23 
在 元 循环 求 值 器 里 实现 (implementing in metacircular 
evaluator) ， 练 习 4.9 
亚 里 士 多 德 《 论 天 》 (Aristotle’s De caelo) (Buridan 的 
评述 (commentary on) ) ， 脚 注 175 
亚历山大 的 Heron (Heron of Alexandria) ， 脚 注 21 
延 时 ， 在 数字 电路 里 (delay, in digital circuit) 
延 时 参数 (delayed argument), 242 
延 时 对 象 (delayed object) ，222 
延 时 求 值 (delayed evaluation), 149 
赋值 和 (assignment and)， 练 习 3.52 
显 式 与 自动 (explicit vs. automatic), 285 
在 惰性 求 值 器 里 (in lazy evaluator), 276~285 
正则 序 求 值 和 (normal-order evaluation and)，244~245 
打印 和 (printing and) ， 练 习 3.51 
WFN (streams and), 241~244 
严格 (strict), 277 
依赖 导向 的 回溯 (dependency-directed backtracking), 
脚注 251 
移植 一 个 语言 (porting a language) ，428 
银行 账户 (bank account)，150， 练 习 3.1] 
交换 余额 (exchanging balances)，214 
共用 (joint)，160， 练 习 3.7 
共用 ， 用 流 模拟 (joint, modeled with streams) ， 图 3-38 
共用 ， 并 发 访问 (joint, with concurrent access), 207 
用 密码 保护 (password-protected) ， 练 习 3.3 
串 行 化 (serialized) ，211 
流 模 型 (stream model), 246 
转移 款项 (transferring money), %3 3.44 
引号 (quotation), 96~98 
字符 串 (of character strings), #yiz99 À 
Lisp 数 据 对 象 (of Lisp data objects), 97 
自然 语言 里 (in natural language), 97 
引号 , 单 引 号 与 双 引 号 (quotation mark, single vs. double) , 
脚注 99 
引用 透明 性 (referential transparency) ，159 
隐藏 原理 (hiding principle), #Pi#132 
应 用 序 求 值 (applicative-order evaluation), 10 
在 Lisp 里 ，11 
与 正则 序 比 较 (normal order vs.), 练习 1.5,， 练习 1.20， 
277~278 
映射 (mapping) | 
对 表 (over lists) ，70~72 | 
RE (nested), 82~86, 304~308 
作为 转换 器 (as a transducer), 77 
对 树 (over trees), 75~76 
用 赋值 实现 (implemented with assignment), 179~180 
表 结 构 (list structure), 173~176 | 
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序 对 (pairs), 173~176 
的 过 程 表示 (procedural representation of), 179 
共享 数据 (shared data), 177 
有 理 数 (rational number) 
算术 操作 (arithmetic operations on), 55~58 
在 (in) MIT Scheme 里 ， 脚 注 23 
打印 (printing), 57 
归 约 到 最 低 项 (reducing to lowest terms), 58~59 
表示 为 序 对 (represented as pairs), 57 
有 理 数 函数 (rational function), 144~147 
归 约 到 最 低 项 (reducing to lowest terms), 146~147 
有 理 数 算术 (rational-number arithmetic), 55~58 
与 通用 算术 系统 连接 (interfaced to generic arithmetic 
system), 129 
需要 复合 数据 (need for compound data), 53 
余弦 (cosine) 
的 不 动 点 (fixed point of), 46 
WIERZ (power series for), 4:93.59 
与 门 (and-gate), 189 
and-gate, 190 
宇宙 辐射 (cosmic radiation), #pjz47 
语法 (grammar), 292 
语法 (syntax) ， 另 见 特殊 形式 (special forms) 
抽象 (abstract) ， 见 抽象 语法 (abstract syntax) 
表达 式 的， 描述 (of expressions, describing), #riz14 
程序 设计 语言 的 (of a programming language), 7 
语法 分 析 ， 与 执行 分 离 (syntactic analysis, separated 
from execution ) 
在 元 循环 求 值 器 里 (in metacircular evaluator) ，273~276 
在 寄存 器 机 器 里 (in register-machine simulator), 364~368 
语法 糖衣 (syntactic sugar)， 脚 注 11 
define, 256 
let 作 为 (as)，43 
循环 结构 作为 (looping constructs as) ，23 
过 程 与 数据 ， 作 为 (procedure vs. data as) ， 脚 注 155 
语句 (statements) ， 见 指令 序列 (instruction sequence) 
语言 (language)， 见 自然 语言 (natural language) ， 程 
序 设 计 语 言 (programming language) 
语言 的 一 级 元 素 (first-class elements in language), 51 
元 循环 求 值 器 ,Scheme (metacircular evaluator for Scheme) , 
251~268 
分 析 型 版 本 (analyzing version), 272~276 
组 合式 (过 程 应 用 ) (combinations (procedure applic- 
ations) ) ， 练 习 4.2 
的 编译 (compilation of)， 练 习 5.56， 练 习 5.52 
数据 抽象 (data abstraction in)，251，252， 练 习 5.52 
数据 导向 的 (data-directed) eval， 练 习 4.3 
派生 表达 式 (derived expressions), 258~260 
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驱动 循环 (driver loop), 265 
的 效率 (efficiency of), 272 
求 值 的 环境 模型 (environment model of evaluation in) , 
251 
环境 操作 (environment operations), 261 
evalflapply, 252~255 
eval-apply(f (cycle), 251, 4-1 
表达 式 表 示 (expression representation), 252, 255~258 
全 局 环境 (global environment), 264 
高 阶 过 程 (higher-order procedures in ) ， 脚 注 209 
被 实现 语言 与 实现 语言 (implemented language vs. 
imp-lementation language)， 有 和 脚注 210 
的 工作 (job of)， 脚 注 208 
运算 对 象 的 求 值 顺序 (order of operand evaluation), 
练习 4.1 
基本 过 程 (primitive procedures), 264~266 
环境 的 表示 (representation of environments), 261~263 
过 程 的 表示 (representation of procedures), 261 
真 和 假 的 表示 (representation of true and false), 260 
运行 (running), 264~266 
特殊 形式 (增加 的 ) (special forms (additional)), 4 
习 4.4， 练 习 4.5， 练 习 4.6， 练 习 4.7， 练 习 4.8 ， 练 
习 4.9 
特殊 形式 作为 派生 表达 式 (special forms as derived 
expressions) ，257~258 
和 符号 求 导 (symbolic differentiation and), 255 
被 求 值 语言 的 语法 (syntax of evaluated language), 
255~258， 练 习 4.2， 练 习 4.10 
未 描述 尾 递归 (tail recursiveness unspecified in), 390 
truefilfalse, 364 
元 语言 抽象 (metalinguistic abstraction), 250 
原子 操作 (atomic) test-and-set!，217 
源 程序 (source program) ，397 
源 语 言 (source language), 397 
约定 的 界面 (conventional interface) ，55 
序列 作为 (sequence as), 76~86 
愿望 思维 (wishful thinking), 56, 99 
约束 (bind), 18 
约束 (binding), 162 
UE (deep), #riz219 
约束 (constraint) 
基本 的 (primitive), 198 
的 传播 (propagation of), 198~205 
约束 变量 (bound variable), 18 
约束 的 传播 (propagation of constraints) ，198~205 
约束 网 络 (constraint network), 198 
增长 的 阶 (order of growth), 28~29 
线性 迭代 过 程 (linear iterative process), 29 


472 





线性 递归 过 程 (linear recursive process), 29 
对 数 (logarithmic), 30 
树 递归 过 程 (tree-recursive process), 29 
遮蔽 一 个 约束 (shadow a binding), 162 
折 半 法 (half-interval method), 44~45 
half-interval-method, 45 
与 牛顿 法 (Newton’s method vs.), ， 脚 注 62 
HL (true), #piz17 
真 值 保持 (truth maintenance), #4251 
整数 (integer) ， 脚 注 4 
除法 (dividing), Hpiz23 
精确 的 (exact)， 脚 注 23 
整数 除法 (division of integers) ， 脚 注 23 
整数 化 因子 (integerizing factor) ，146 
正切 (tangent) 
作为 连 分 数 (as continued fraction ) ， 练 习 1.39 
的 寡 级 数 (power series for) ， 练 习 3.62 
正弦 (sine) 
逼近 小 的 角 (approximation for small angle)， 练 习 1.15 
¥ RH (power series for) ， 练 习 3.59 
正则 序 求 值 (normal-order evaluation), 10 
与 应 用 序 (applicative order vs.) ， 练 习 1.5， 练 习 1.20， 
277~278 
和 延 时 求 值 (delayed evaluation and), 244~245 
在 显 式 控 制 求 值 器 里 (in explicit-control evaluator) , 
练习 5.25 
if 的 ， 练 习 1.5 
正则 序 求 值 器 (normal-order evaluator), s PES 2 
(lazy evaluator) 
证 明 程 序 的 正确 性 (proving programs correct), ， 脚 注 20 
执行 过 程 (execution procedure ) 
在 分 析 型 求 值 器 里 (in analyzing evaluator), 273 
在 非 确定 性 求 值 器 里 (in nondeterministic evaluator) , 
296~298 
在 寄存 器 模拟 器 里 (in register-machine simulator) , 
362, 366~372 
值 (value) 
组 合式 的 (of acombination), 4 
表达 式 的 (of an expression), 347, % RAMEN 
{4 (unspecified values) 
指令 计数 (instruction counting), 495.15 
指令 序列 (instruction sequence), 400~402 
指令 执行 过 程 (instruction execution procedure), 362 
指令 追踪 (instruction tracing), %3 5.16 
指数 (exponentiation), 29~30 
fain (modulo n), 34 
指数 性 地 增长 (exponential growth), 25 
树 递 归 斐 波 那 契 计算 (of tree-recursive Fibonacci-number 


computation), 25 
指针 (pointer) 
盒子 和 指针 记 法 (in box-and-pointer notation), 65 
带 类 型 的 (typed)，375 
中 绥 记 法 , 与 前 绥 记 法 (infix notation, prefix notation vs.) , 
练习 2.58 
仲裁 器 (arbiter) ， 脚 注 175 
朱 世 杰 (Chu Shih-chieh) ， 脚 注 35 
注释 ， 在 程序 里 (comments in programs) ， 脚 注 87 
状态 (state) 
局 部 (local) ， 见 局 部 状态 (local state) 
共享 (shared) 208 
在 流 方式 中 消失 了 (vanishes in stream formulation) , 
247 
状态 变量 (state variable) ，22，150 
局 部 (local), 150~154 
追踪 (tracing) 
虽 令 执行 (instruction execution)， 练 习 5.16 
寄存 器 赋值 (register assignment) ， 练 习 5.18 
准确 的 整数 (exact integer) ， 脚 注 23 
子 类 型 (subtype) ，135 
多 个 (multiple), 136 
字符 (character) ，109 
字符 串 (character strings ) 
的 基本 过 程 (primitive procedures for), #piz285 
的 引号 (quotation of) ， 脚 注 99 
自动 存储 分 配 (automatic storage allocation), 374 
自动 魔法 般 地 (automagically), 289 
自动 搜索 (automatic search), 286, 5 LIRA (search) 
历史 (history of) ， 脚 注 251 
自 求 值 表达 式 (self-evaluating expression), 252 
自然 对 数 ， 有 逼近 ln 2 (logarithm, approximating In 2), 
练习 3.65 
自然 语言 (natural language) 
语法 分 析 (parsing) ， 见 分 析 自 然 语言 (parsing natural 
language) 
引号 (quotation in), 96 
自由 变量 (free variable), 18 
捕获 (capturing), 19 
内 部 定义 里 (in internal definition), 19 
自由 表 (free list), #24296 
阻塞 的 进程 (blocked process) ， 脚 注 173 
组 合 的 方法 (means of combination), ，3， 另 见 闭 包 (closure) 
组 合式 (combination), 4~5 
以 组 合式 作为 组 合式 的 运算 符 (combination as operator 
of), #459 
以 复合 表达 式 作为 组 合式 的 运算 符 (compound expression 
as Operator of) ， 练 习 1.4 
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的 求 值 (evaluation of), 6~7 
lambda 表 达 式 作为 组 合式 的 运算 符 (expression as 
operator of ) ，41 

作为 树 (as a tree), 6 
组 合式 的 意义 (combination, meansof), 5 LAJE (closure) 
组 合式 的 运算 对 象 (operands of a combination) ，4 
组 合式 的 运算 符 (operator of a combination), 4 

组 合式 作为 (combination as), ， 脚 注 59 

符号 表达 式 作为 (compound expression as), #5 1.4 

lambda 表 达 式 作为 (expression as), 42 
最 大 公约 数 (greatest common divisor), 32~33, 5 & 
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GCD 
通用 的 (generic), %3 2.94 
多 项 式 的 (of polynomials), 145 
用 于 估计 (used to estimate n), 155 
用 于 有 理 数 算 术 (used in rational-number arithmetic) , 
58 
最 小 允诺 原则 (principle of least commitment), 119 
最 优 (optimality ) 
Horner 规 则 (rule), #riz82 
Huffman 编 码 (code), 112 


